ايجاد ارتباط بين ComboBox و ديتابيس

[zahramostafa]

سلام من قصد دارم در VB.NET يك combo box رو به ديتابيس(از نوع SQL) ارتباط بدم كدي رو نوشتم
Displey Member توسط اين كد ارتباط پيدا مي كنه ولي Value member هيچ مقداري را بر نمي گرداند برام مهمه كه همگام با انتخاب مقدار ظاهري ComboBox در پس پرده به ID(كه در Value memberست شده ) دسترسي پيدا كنم ممنون ميشم كمكم كنيد


Dim strcon3 As String
Dim s As New BindingSource()
strcon3 = "Data Source=mostafa.cntbldg4.com;Initial Catalog=sabteAghlam;User id=sa;password=123"
Dim con3 As New SqlConnection
con3 = New SqlConnection(strcon3)
Dim objCommand As New SqlCommand
Dim TAvahed As New SqlDataAdapter
Dim DSsabt As New DataSet
objCommand.CommandType = CommandType.Text
objCommand.CommandText = "select * from Table_vahed "
objCommand.Connection = con3
TAvahed.SelectCommand = objCommand
con3.Open()
TAvahed.Fill(DSsabt, "Table_vahed")
s.DataSource = DSsabt.Tables("Table_vahed")
ComboBox1.DataSource = s
ComboBox1.DisplayMember = "name_vahed"
ComboBox1.ValueMember = "ID_vahed"
TextBox1.Text = ComboBox1.ValueMember
con3.Close()

[hesam_hma]

dt_Jayegah.Clear()
sc_Jayegah = New SqlCommand("select * from tblJayegah_Printer", con)
sc_Jayegah.CommandType = CommandType.Text
sc_Jayegah.ExecuteNonQuery()
da_Jayegah.SelectCommand = sc_Jayegah
da_Jayegah.Fill(dt_Jayegah)

cmbCodeJayegah.DataSource = dt_Jayegah.DefaultView
cmbCodeJayegah.DisplayMember = dt_Jayegah.Columns(0).ToString
cmbNameJayegah.DataSource = dt_Jayegah.DefaultView
cmbNameJayegah.DisplayMember = dt_Jayegah.Columns(1).ToString

[shadi khanum]

ComboBox1.DataSource = DSsabt.Tables("Table_vahed")
ComboBox1.DisplayMember = "name_vahed"
ComboBox1.ValueMember = "ID_vahed"

این "name_vahed" و "ID_vahed" باید از فیلدهای انتخاب شده توی Selectتون باشه