|
I have a Names datatable with FirstName and Namesid columns. I'm using the following code to drive the list for the combobox.
ComboBox1.DataSource = "DataSetNames"
ComboBox1.DisplayMember = "name.firstname"
I have an Orders datatable with OrderDate and Namesid columns. When a name is choosen form the combobox list how do I write the corresponding Namesid back to the Orders table Namesid column?
Thanks in advance for any help.
|
|
|
|
|
Add this to your binding:
ComboBox1.DataSource = "DataSetNames"<br />
ComboBox1.DisplayMember = "name.firstname"<br />
ComboBox1.ValueMember = "name.Namesid"
Then when you select an item in the combox...you can return
ComboBox1.SelectedValue
which should contain the corresponding Namesid.
|
|
|
|
|
I have a textbox where a user enters his/her id number. After a click event, I want to take that id number and compare it to the id that is stored on my sql server database table, then allow the user to either proceed or stop. Any ideas how to do that?
Shannon P.
|
|
|
|
|
Use SQL to check if the value is in the table. Use the result of the SQL to decide what to do next.
More specific help would require an idea of your overall setup, and which part of this task is causing you problems.
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
What I'm attempting to do is to validate what a user's id is within a textbox with what is stored within the sql server database. If the id on the textbox matches what is inside the database, begin the application. If not, display an error message to user. That is what I'm attempting to do. Any ideas would be greatly appreciated.
Shannon P.
|
|
|
|
|
Christian gave you an idea that would work. What's the problem?
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
My problem begins at "myCommand.ExecuteScalar()". My try...catch error handler reads, "Invalid object name: EmpId". My table has a column labeled "EmpId" so I'm not actually sure what the problem is. Any ideas?
Shannon P.
Dim myConnection As New System.Data.SqlClient.SqlConnection
myConnection.ConnectionString = "workstation id=SHANNON-OUYIJ2M;packet size=4096;integrated security=SSPI;data source=SHANNON-OUYIJ2M;persist security info=False;initial catalog=WorkInstructionLibrary"
'Create a parameterised command that will return the number of matches.
Dim myCommand As New SqlCommand("SELECT COUNT(*) FROM EmpID WHERE EmpID = @employeeId", myConnection)
'Set the parameter values to the credentials entered by the user.
myCommand.Parameters.Add("@employeeId", SqlDbType.Int).Value = Me.txtEmpId.Text
myConnection.Open()
Try
Dim count As Integer
count = CInt(myCommand.ExecuteScalar())
If count = 0 Then
'generic fail message
Else
'allow application to proceed
End If
Catch ex As SqlException
Dim errorMessages As String
Dim i As Integer
For i = 0 To ex.Errors.Count - 1
errorMessages += "Index #" & i.ToString() & ControlChars.NewLine _
& "Message: " & ex.Errors(i).Message & ControlChars.NewLine _
& "LineNumber: " & ex.Errors(i).LineNumber & ControlChars.NewLine _
& "Source: " & ex.Errors(i).Source & ControlChars.NewLine _
& "Procedure: " & ex.Errors(i).Procedure & ControlChars.NewLine
Next i
Dim log As System.Diagnostics.EventLog = New System.Diagnostics.EventLog
log.Source = "My Application"
log.WriteEntry(errorMessages)
Console.WriteLine("An exception occurred. Please contact your system administrator.")
MessageBox.Show("Error: EXECUTESCALAR METHOD" & errorMessages.ToString & " <> " & ex.ToString, "Error executing EXECUTESCALAR METHOD", MessageBoxButtons.OK)
End Try
|
|
|
|
|
Found the solution! My EmpId should have been my table name. Stupid syntax error on my part! Thanks to all.
Shannon P.
|
|
|
|
|
hi,
i want to make a program that will stand between a program i use and the server it connects to so i can see the packets moving between them.
the question is, how i make my program redirect the ip:port of the other program to go through it ?
should i use winsock ? inet ? in which way ?
any suggestions ?
|
|
|
|
|
If you want to write it yourself, you have two options. You can either write your own proxy or your own network monitor. Either way, it's alot of work. Or you can use the Network Monitor that comes with Windows Servers.
No matter what, I would suggest Googling for "network packet capture windows". Clickety[^]
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Does anybody know if there is a (one command) way to change the BackColor of all controls in a form as well as the form itself?
I have an application with several forms and controls and I want to “spruce up” the look a little bit.
Thanks
Brad
|
|
|
|
|
Nope. You'll have to enumerate all the controls on the form and change them, one by one.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Okay...that's what I was affraid of.
Thanks.
|
|
|
|
|
Is it possible to create a MultiLine list box?
Any references that could point me in the right direction? Thanks!
|
|
|
|
|
Do you mean add items?
Here is how you add items:
lstBoxAddItem.Items.Add
|
|
|
|
|
|
This is the source code![Rose | [Rose]](https://www.codeproject.com/script/Forums/Images/rose.gif)
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
Report :Crystelreport 9.0
Os: XP
visual studio.net 2003
Continue...
|
|
|
|
|
Hi everyone,
I was just wondering if anybody knows the answer to this as i have looked and found nothing.
I have a form with several controls on it, i want to catch the keypress - easy enough but for all controls including the form not just the one with focus. The only way i can see is to add the event for every control, but i have about 75 controls on this form and this just doesn't seem logical.
any ideas
help is greatly appreciated.
"If i was king cigarettes would be free."
|
|
|
|
|
Your form and a majority of controls in .NET should already have a KeyPress event. It's up to you to put code into those events to perform whatever action/task you want to accomplish.
|
|
|
|
|
Sorry I read wrong...but other than placing code in the KeyPress event...it really depends if you are doing a specify task for that control. If each task is different...I don't see a way around this.
Plus, if you just capture the KeyPress on the Form you will still have to delegate the task to some event/sub of that control and knowing which one to delegate to could be a real mess!
|
|
|
|
|
No he doesn't! See Form.KeyPreview[^]
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
AFAIK, this is the only way to do what you want, without writing keyboard hooks...
Form.KeyPreview Property[^]
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
Thanks everybody for the replies.
Thought I'd let you know what i found out, although KeyPreview looked good i had just found what i wanted, this doesn't mean i not grateful for the reply as i am and i almost used it anyway as it looked good and i think i might still.
However i found two ways of doing something similar to what i wanted.
They are....
method 1, rather than have several key press events you can have one sub that handles them all if you add the keypress for each on the end of the event handles bit, although this does mean adding all 75 controls on the end like so....
Private Sub Button1_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Button1.KeyPress, ListBox1.KeyPress, Label1.KeyPress, PictureBox1.KeyPress, etc.KeyPress
End Sub
method 2, found a piece of code to add the keypress handler for a control to another sub
Public Sub AddKeyPressEvent(ByVal ControlName As Control)
AddHandler ControlName.KeyPress, AddressOf GenericKeyPressEvent
End Sub
Public Sub GenericKeyPressEvent(ByVal sender As Object, ByVal e As KeyPressEventArgs)
MsgBox(e.KeyChar)
End Sub
You just call AddKeyPressEvent(Listbox1) and then it's keypress event will be GenericKeyPressEvent,
Using this i could loop through the controls on the form and add them all at startup, clunky but effective, however keypreveiw looks good.
Thanks again
Hope this helps someone else with this problem.;P
"If i was king cigarettes would be free."
|
|
|
|
|
KeyPreview is overkill?  It's doing something very similar to what your two methods are doing in function, but with no code and is much quicker. All you're doing is putting the code your processing the keystrokes with into a different sub.
RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome
|
|
|
|
|
I am converting a working VB6 program to VB.net and am unable to
correctly pass these structures to the dll.
I think I have everything initialized correctly but am not sure.
Any help or comments on how to Marshal this data will be appreciated.
Dim TP As Transport
Dim aDevices(100) As Device
<StructLayout(LayoutKind.Sequential)> _
Private Structure Transport
Dim Encrypt As Encryption
Dim SourceAddress As EnetAddress
<VBFixedArray(47)> Dim Reserved() As Byte
Public Sub Initialize()
Encrypt.Initialize()
SourceAddress.Initialize()
ReDim Reserved(47)
End Sub
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure Device
<VBFixedArray(125)> Dim Address() As Byte
Public Sub Initialize()
ReDim Address(125)
End Sub
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure Encryption
Dim Algorithm As Byte
<VBFixedArray(2)> Dim Unused1() As Byte
<VBFixedArray(59)> Dim Key() As Byte '(null terminated)
Public Sub Initialize()
ReDim Unused1(2)
ReDim Key(59)
End Sub
End Structure
<StructLayout(LayoutKind.Sequential)> _
Private Structure EnetAddress
<VBFixedArray(19)> Dim Address() As Byte
Public Sub Initialize()
ReDim Address(19)
End Sub
End Structure
Private Declare Function PASCAL_QueryDevices Lib "hei_pas" _
(ByRef pTransport As Transport, _
ByRef pDevice As Device) As Integer
Private Sub foo()
Call TP.Initialize() 'update call
For i = 0 To 100
Call aDevices(i).Initialize()
Next
'*************THIS CALL FAILS*****************
RC = PASCAL_HEIQueryDevices(TP, aDevices(0))
'*********************************************
End Sub
meyer
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
