|
This is the source code
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Data.SqlClient
Imports System.Data
Private str_connection As String = "workstation id=""MAX-IT10Q0"";packet size=4096;integrated security=SSPI;initia" & _
"l catalog=Addressbook;persist security info=False"
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cnsql As SqlConnection
Dim load_dataset As New DataSet
Dim rpt As ReportDocument
Dim str_query As String
rpt = New ReportDocument
rpt.Load("..\CrystalReport2.rpt")
cnsql = New SqlConnection(str_connection)
cnsql.Open()
str_query = "select name,Address from tb_abook"
Dim load_adapter As New SqlDataAdapter(str_query, cnsql)
load_adapter.Fill(load_dataset, "tb_abook")
rpt.SetDataSource(load_dataset)
CrystalReportViewer1.ReportSource = rpt
End Sub
The report is loading properly but data is nothing no error message
Report :Crystelreport 9.0
Os: XP
visual studio.net 2003
Continue...
|
|
|
|
|
I am not sure I am calling this user defined function correctly. I have set the variable ID equal to the value from a drop down list and am trying to pass the variable to the user defined function.
Dim id As String
id = ddlDriver.SelectedValue.ToString
Dim conn As SqlConnection
Dim cmd As SqlCommand
Dim dn As DataSet = New DataSet
Dim da As SqlDataAdapter = New SqlDataAdapter
conn = New SqlConnection(server information)
cmd = conn.CreateCommand()
cmd.CommandText = "dbo.get_tractor'" + id + "'"
da.SelectCommand = cmd
da.Fill(dn, "tractor")
I keep getting an error and have checked the dataset through the quickwatch and it always comes back null.
Scott Moore
|
|
|
|
|
cmd.commandtext = "select dbo.get_tractor('" & id & "')"
"People who never make mistakes, never do anything."
My blog
http://toddsnotsoamazinglife.blogspot.com/
|
|
|
|
|
|
|
|
I just need some help on how to build a file & folder finder (any).
I want to use a textbox, a button and a msgbox to display the findings.
I can find files by using " exists " and hard code path, but I'd like to do it
differently, like more user friendly, like typing the file name (any file) in the textbox and then
clicking the " find " button.
I'd know how to use the system.io namespace for file & folder manipulation, but i do not know how
to combine both.
Like how can you type a file name in a textbox, and get the location of that file?
Is that possible?
|
|
|
|
|
|
Thank you, thank you.
I had been working on this thing for at least 2 weeks. It would had been more without your help!!.
Thank you, again.
It is like... learning a new language.
|
|
|
|
|
I created a dataset in form1. A button on form1 calls form2. How can I get access to the dataset on form1 while in form2? Thanks for any help provided?
|
|
|
|
|
Read this[^]. It's alittle bit on the VB6 to .NET upgrade, but it also shows you how to pass data between forms.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I am currently trying to read binary values from the windows registry, with the requirement to compare and set a specific option in my program. I have tried using the following: Imports Microsoft.Win32, but have so far failed to read or write binary to the registry. If any one has code or knows how this is possible, your help would be much appreciated.
|
|
|
|
|
Got a sample of the code your using? Also, what's the registry data type you're trying to read and under what key?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
k, at the moment i dont have sample code to read and write binary, thats what i need. However this is the key im trying to use
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Video\{3A293CEE-EFF6-475C-9F1F-730951135E97}\0000
This stores entries for the settings for the NVIDI Gfx settings which im making a tweak tool for, and cant read most of the values as they are binary.
Any help would be appreciated. I can get this working in VB6, but however would rather use .NET as I am able to add Navigation bars and office style buttons.
|
|
|
|
|
First, yoiu should be opening CurrentControlSet, not ControlSet001.
Dim rk As RegistryKey
rk = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Video\{yada yada yada}\000")
Dim data as Byte() = rk.GetValue("ValueName")
Will return whatever the data for ValueName is in the registry. If you have to return the default value (unnamed) for a key, just use:
Dim data as Byte() = rk.GetValue("")
I think you can figure out how to write the data back.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks for the reply Dave Kreskowiak, however, this does not work.
What I need to do is read a value from the registry, which may be:
01 00 00 10, then I need that to go to a variable, which I then need to check and change a picturebox.image and listbox.selectedindex, depending on what the value is. Also need to write a specific binary value back to the registry, if the user changes the setting.
The above method just won't work and I'm unsure why.
|
|
|
|
|
I have no idea what your doing wrong because "just doesn't work" doesn't explain what's going on. Does it return Nothing when you call OpenSubKey? If so, then you have the registry path wrong.
This works perfectly on mine:
Dim rk As RegistryKey
rk = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Video\{3BAC59C8-BD30-404A-9093-F454D23FF17F}\0000")
Dim data As Byte() = rk.GetValue("_Wow.exe:D3DOGL_67207556")
It returns the 4 byte value array of 0x01 0x00 0x00 0x08.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Hmm, i'll try with the example of what you did above, can the byte array be output to a label or was it to console.
|
|
|
|
|
So long as you provide the code to do either, yes.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Is it possible for you to email me the form or a small project showing how to do this, or paste the code here. My email is supernorman1@hotmail.com
Thanks for all your help so far
|
|
|
|
|
Dim rk As RegistryKey
rk = Registry.LocalMachine.OpenSubKey("SYSTEM\CurrentControlSet\Control\Video\{3BAC59C8-BD30-404A-9093-F454D23FF17F}\0000")
Dim data As Byte() = rk.GetValue("_Wow.exe:D3DOGL_67207556")
Dim i As Integer
For i = 0 to data.GetUpperBound(0)
TextBox1.Append(String.Format("Value at index {0}: {1}" & Environment.NewLine, i, data(i))
Next
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
... is this possible?
I have a form with a calendar wich a show as modal ... I want to be able to close that form when I click outside ... is this possible?
Is it possible to simulate this behaviour when using a NoModal form?
//Maw
|
|
|
|
|
you could try an event like
Private Sub Form1_MouseLeave(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.MouseLeave
me.close
End Sub
or
Onmouse leave turn modal off then when lostfocus close the form.
have a go with that?
Does my head look big in this!!!!
|
|
|
|
|
Doesn't this defeat the purpose of having a modal form in the first place!?!
Just place a close button on your modal form!
|
|
|
|
|
First off, that defats the purpose of a modal form.
Second, it goes against the normal UI practices followed for Windows. This isn't an intuitive action the users are going to be used to when using Windows.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|