fill data in combo box from SQL server

buffdaemon_live

New member
Joined
Jun 13, 2008
Messages
3
Programming Experience
Beginner
Dear all,

I wanted to fill the combo box with the data from my SQL server database.
There are two column in the table, product_id and product_name.

for example:

product_id| product_name
---------- --------------
1| pencil
2| NoteBook

I was successful in displaying the product name in combo box. The code is given below. I wanted to show the product_name in the combo box and when the user selects the product_name from combo box i should be able to get its product_id. How do i do it? Please help me guys for my academic project.

Below is my code.

VB.NET:
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  
Dim conn As New System.Data.SqlClient.SqlConnection("Network Library=DBMSSOCN;" _
& "Data Source=abacus\mydatabase;" _
& "Initial Catalog=CADCAM2;" _
& "Integrated Security =True;" _
& "MultipleActiveResultSets=True;")
        Dim strSQL As String = "SELECT * FROM product"
        Dim da As New System.Data.SqlClient.SqlDataAdapter(strSQL, conn)
        Dim ds As New DataSet
        da.Fill(ds, "product")

        With Me.cmbDropDown
            .DataSource = ds.Tables("product")
            .DisplayMember = "product_name"
            .ValueMember = "product_id"
            .SelectedIndex = 0
        End With

end sub


Private Sub cmbCproduct_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbCproduct.SelectedValueChanged

[COLOR="Red"]'when the user selects the product_name from the combo box i should be able to get the product_id.[/COLOR]
    
End Sub
 
Last edited by a moderator:
VB.NET:
Private Sub cmbCproduct_SelectedValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbCproduct.SelectedValueChanged

dim ID as integer = cmbCproduct.SelectedValue
    
End Sub
 
Back
Top