|
|
The best way to do it is to not change the column names in the SELECT statement. Instead of relying on the automatic column creation for you DataGrid, make your own columns. You can control what columns they're bound to in your DataSet and what their HeaderText names are, as well as a slew of other thing.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
|
OK,
It me again.
Now I want to know if it is possible to have a search button on one form. When I click on the button it should take all the data from the Database and display it on the other two forms. I know for sure that I might be able to do this by calling funtions but don't know if it will work. If any of you have ever done this kind of coding please help this poor guy.
Thanks.
|
|
|
|
|
I believe that I understand your problem. This is how you would go about doing it. I don't know what server you are trying to run off of (MS Sql server, oracle, an internal dataset application, whatever) but you would have to setup a dataconnection to call the information from the server, then you would have to setup a dataset off of that dataconnection to actually go in and retrieve the data, once you put the dataset control in your environment you have to bind the properties of it so that it uses the dataconnection. I believe the property is datasource (if you set the data source to your connection which could be named mydbcon or whatever you named it) the data source allows the dataset to connect through the dataconnection type which actually the dataconnection only connects to the server, logs in, then the dataset retrieves the information requested from the server. .Net has server control boud functions for this that login to a server and retrieve data from it based off of data connections and datasets. These controls should automatically be placed inside your toolbox in VStudios. The next step that I am about to arrive at is binding the button search to display the dataset on the next control. This is probably the easiest part. We will display Form2 with the dataset control on the form using the nice easy
With New function that is supported in VB.Net. This is how you would call Form2 to load on the button click event to display with the dataset object:
Private Sub btnsearch_Clicked(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click<br />
With New Form2<br />
.Show()<br />
End With<br />
End Sub<br />
Now I don't know how you have your environment setup but if you have the dataset object to display on the load of form2 then you have to set the search results to bind with the search query given. Again you can do this using the with New function.
I apologize if this sounds confusing, I am at school and don't have Visual Studios on me so I am having to do this all off my head  If you have any further questions or problems MSDN libraries is a great resource on explaining how to connect datasets to dataconnections and dataconnections to servers (or any other programming problems you may arrive at). Thanks hope this helps!
~ Mike
|
|
|
|
|
Thanks alot Mike,
I really appreciate your time and effort.
I am using Access DB and this is the code in my search button.
Right now it does'nt even work for Form1. By that I mean I am missing simple code to open the database. I am using stored procedures by the way.
Take a look and let me know if it makes sense.
-----------------------------------------------------------------------------
Private Sub btnsearch_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsearch.Click<br />
<br />
Dim data As New dbAccess<br />
Dim logNumber As Long<br />
'data.GetAllChangeControl(CDate(txtdtrqst.Text), CDate(txttrgdt.Text), CDate(txttime.Text), txtrqstby.Text, txtprojname.Text, txtdscp.Text, txtusers.Text, txtdpt.Text)<br />
logNumber = data.GetAllChangeControl<br />
Dim srch As Change<br />
srch.DateRequested = txtdtrqst.Text<br />
srch.TargetDate = txttrgdt.Text<br />
srch.Time = txttime.Text<br />
<br />
'txtdtrqst.Text = srch.DateRequested<br />
<br />
End Sub
----------------------------------------------------------------------------
This is the class called dbAccess
<br />
<br />
Public Function GetAllChangeControl() As String<br />
Dim con As OleDbConnection<br />
Dim cmd As OleDbCommand = New OleDbCommand<br />
<br />
con = New OleDbConnection(connectionstring)<br />
cmd.Connection = con<br />
<br />
cmd.CommandText = "EXECUTE GetAllChangeControl"<br />
con.Open()<br />
GetAllChangeControl = CStr(cmd.ExecuteScalar()):mad:<br />
con.Close()<br />
<br />
End Function
----------------------------------------------------------------------------
This is another class which only has all the stored procedures and they refletct the stored procedures in Access. I mean the same code is in Access.
sSQL = "CREATE PROC GetAllChangeControl AS SELECT * FROM ChangeControl WHERE LogNumber = @LogNumber;"
CreateStoredProc(sSQL)
---------------------------------------------------------------------------
When I run the program I get the error message where you see the mad face.
err msg "An unhandled exception of type 'System.Data.OleDb.OleDbException' occurred in system.windows.forms.dll"
Any help would be appreciated.
Thanks.
|
|
|
|
|
I think you may be running into problems on this specific function cmd.ExecuteScalar(). I need to know what data its trying to pull. Try puting a breakpoint on the line and executing it. When it stops at that line open up the immediate window (down by your output for compilation) and type into it
?GetAllChangeControl
It would be good if it said NULL or Nothing, which I am sure it will sense it dies at that point. Does Visual Studios give you the key dropdown after you type cmd.? If it doesn't that is where the problem would be. I'm just throwing out a list of ideas here, try the debugging with the immediate window and let me know what the output of it is.
~ Mike
|
|
|
|
|
Try the following with your function:
Public Function GetAllChangeControl() As String
Dim con As OleDbConnection
Dim cmd As OleDbCommand = New OleDbCommand
con = New OleDbConnection(connectionstring)
cmd.Connection = con
cmd.CommandText = "EXECUTE GetAllChangeControl"
con.Open()
'---------------------------------------------
' Here is the change
Dim retVal As Object
Try
retVal = cmd.ExecuteScalar()
If Not(IsNothing(retVal)) Then
Return Cstr(retVal)
Else
Return String.Empty
End If
Catch ex As OledbException
Throw ex
Finally
con.Close()
If Not con Is Nothing Then con.Dispose
If Not cmd Is Nothing Then cmd.Dispose
End Try
'------------------------------------------
End Function
Let me explain, it is possible that your "cmd.ExecuteScalar" is not returning anything and you are not checking for that, so what I've done here is do a simple check and return the appropriate value. I have also enclosed the procedure in a Try statement to capture the Exception, and make sure that even if an Exception is thrown, the connection is closed and you realease your resources.
I hope this helps.
|
|
|
|
|
I would like to be able to click on the drop down arrow. Pick the date and once I click it should show the date in a seperate text box.
Does anyone know the code for that.
Any help would be appreciated.
Thanks.
|
|
|
|
|
Handle the DateTimePicker's ValueChanged event. Get the Value from your DateTimePicker control, convert it to a String in the format you want and set the Text property of your TextBox.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks Dave,
How do I put all this in code language.
I am sorry for being so dumb but I am new to VB.Net and just want to get over with this stupid project.
Please help!
|
|
|
|
|
shakizil wrote: I am new to VB.Net and just want to get over with this stupid project.
Why does this scream "HOMEWORK ASSIGNMENT"???
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Dave Kreskowiak wrote: Why does this scream "HOMEWORK ASSIGNMENT"???
Don't look the people in that way. I usually meet this problem. I don't have any home work from school. But sometime i have my own idea to build an application, sometime i have an idea to do it but don't know how to code it.
|
|
|
|
|
Roath Kanel wrote: But sometime i have my own idea to build an application,
I seriously doubt that's the case here, simply because of this one statement he made:
...just want to get over with this stupid project.
This is telling me it's something he doesn't want to do. The only thing that fits his profile of a newbie and an assignment he/she doesn't want is homework.
I, and many people here, will not write someones homework assignment for them. That's what RentACoder is for! We'll help with code that is already written, but won't write it for them.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Originally yes, the first reply is correct, although another alternative would be to set the textbox.text property value. Say for instance you have a text box named txtbxdate and a date & time picker named datetm. You would need to set the code of the text box to equal the date selected from the date & time drop down. It would look something like this
txtbxdate.text = datetm.selecteddate
or something like that I'm not actually running visual studios so I don't know exactly what the date & time picker property looks like but i know you can set the text of a text box to the date & time selected on the date & time box.
~ Mike
|
|
|
|
|
Never mind. I got it.
Its only a one line code that takes care of the problem.
Private Sub DateTimePicker1_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DateTimePicker1.ValueChanged<br />
Me.txttrgdt.Text = Me.DateTimePicker1.Value.ToString("MM/dd/yyyy")<br />
End Sub
There you go guys.
And Dave this is not a HOME WORK ASSIGNMENT.
Thanks.
|
|
|
|
|
Hi,
What is the correct way of determining whether or not (part of) a control is visible on the screen? (i.e. when graphics in the control is continuously being updated, requiring a lot of processing that you'd want to save if the control is not even visible (when its parent window is minimized or overlapped by other windows, etc.)
Thanks
Jim
|
|
|
|
|
If Windows wants the control redrawn, it'll tell you. You don't have to worry about redrawing if you don't get a Paint message. What you might want to do is check to make sure your controls Visible property is set and not paint your control if it's false.
Simply, if your control is not visible, Windows won't send you any Paint messages, even if Invalidate is called on your control. No Paint messages means your control won't paint until Windows determines that your control has, at least, a tiny bit of it visible.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks, but I am talking about the situation when I (not Windows) want to have it redrawn because I want to change its contents, not because it needs repainting. (so there won't be any Paint event).
|
|
|
|
|
Well, the only other method you have is redrawing on a Timer event. In the tick, you Invalidate your own control. Then you'll get the Paint event sent to you, IF any part of your control is visible.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks. My application is multithreaded so I wont need the timer event. However, your answer reminded me that I should use Invalidate and the Paint event instead of directly calling redrawing functions! 
Thanks again
|
|
|
|
|
I have a small program in vb.net that until today worked perfectly. All i did was change some icons (form icons and the program icon) and recompile . Now i am seeing some odd behavior and cant figure out why. The program still works perfectly when run from the IDE (VS2003) but the built exe generates an error which i can trap. The other odd thing is that the file size of the exe has dropped from 567kb to 450kb.
Any ideas?
Jon
|
|
|
|
|
jonathan15 wrote: but the built exe generates an error
And that would be ______________________________??
Without that, it's pretty impossible to tell you anything useful. The code that generated the error would also help.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
The error is "Object reference not set to an instance of an object. at In_Sync.frmMain.StartMe() in C:\Visual Studio Projects\In-Sync2\In-Sync\Forms\Form1.vb:line 229" which i log in the event log.
This relates to this section of code:
For Each parkToChange In setupDetail.Parks
SetAvail(parkToChange.ParkCode)
Next
Setupdetail.parks is a shared property so in form1 this is not instanced it is simply called. Of course in setupdetail an instance of the 'Parks' object is created and populated with 'Park' Items as in this next bit of code (setupdetail.loadvalues).
Dim myparks As parks = New parks
If Not mFirstRun Then
Do While secureReader.Read
Dim mypark As park = New park(secureReader.GetString(1), crypto.Decrypt(secureReader.GetString(3)), secureReader.GetString(0))
myparks.Add(mypark)
Loop
Else
Form1 is set as the startup object and should call Setupdetail.loadvalues before calling the startme rutine which is generating the error. As in the code below:
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
setupDetail.LoadValues()
StartMe()
'Add any initialization after the InitializeComponent() call
End Sub
The thing is it all works when run through the IDE so debugging is not possible. I have tried to log events at key stages and found that Setupdetail.loadevents is never entered. So that is why i get the error because setupdetail.parks does not exist. My real question is why is it never run. Could the form be corrupted.
Jon
|
|
|
|
|
Let me get this straight:
Public Class Form1
Public Sub New()
MyBase.New()
'This call is required by the Windows Form Designer.
InitializeComponent()
setupDetail.LoadValues()
StartMe()
'Add any initialization after the InitializeComponent() call
End Sub
Public Sub StartMe()
For Each parkToChange In setupDetail.Parks
SetAvail(parkToChange.ParkCode)
Next
End Sub
End Class
Public Class setupDetail
Public Shared Property
blah, blah, blah
End Property
Public Shared LoadValues()
Dim myparks As parks = New parks
If Not mFirstRun Then
Do While secureReader.Read
Dim mypark As park = New park(secureReader.GetString(1), _
crypto.Decrypt(secureReader.GetString(3)), secureReader.GetString(0))
myparks.Add(mypark)
Loop
Else
...
End If
End Sub
End Class
Is this about correct?
Why is this setupDetail class using all Shared stuff? What you're doing would be much better off as a normal class where all the methods to populate and manipulate the Parks collection are public, not shared. Everything you're doing is manipulating public data from outside the class that contains it. This is a no-no according to normal OOP practices.
I'd rewrite your Parks collection into its own class, supplying public methods to initialize itself and manipulate the collection and its data. You can then create an instance of this class, even follow the Singleton Pattern[^] to create a globally single instance of it.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
