zahramostafa
سه شنبه 26 بهمن 1389, 10:16 صبح
سلام من قصد دارم در 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()
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()