|
|
|
|
 Click here to copy the following block | Dim Conn As SqlConnection
Dim Cmd As SqlDataAdapter
Dim ds As DataSet
Conn = New SqlConnection("Data Source=(local);Initial Catalog=dbName;User Id=username;Password=password;")
Cmd = New SqlDataAdapter("SELECT * FROM Emplookup", Conn)
ds = New DataSet
Try
Conn.Open()
Cmd.Fill(ds)
ComboBox1.DataSource = ds.Tables(0).DefaultView
ComboBox1.DisplayMember = "fname"
ComboBox2.DataSource = ds.Tables(0).DefaultView
ComboBox2.DisplayMember = "lname"
ComboBox3.DataSource = ds.Tables(0).DefaultView
ComboBox3.DisplayMember = "AnotherFieldName"
Conn.Close()
Catch ex As Exception
MessageBox.Show(ex.StackTrace.ToString, ex.Message.ToString)
End Try |
|
|
|
|
|
|
Submitted By :
Nayan Patel
(Member Since : 5/26/2004 12:23:06 PM)
|
 |
|
|
Job Description :
He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting. |
|
View all (893) submissions by this author
(Birth Date : 7/14/1981 ) |
|
|