.net - studio - llenar un combobox con una consulta sql

Rellenar ComboBox desde la consulta de la base de datos

Question

Veo muchas de las respuestas a preguntas similares donde la gente dice que para obtener el valor del artículo cargado en el cuadro combinado, debe usar

 combobox1.displayMamer =""
combobox1.valuemember=""
combobox1.datasource=""

Pero esto no funciona ...

aquí es lo que tengo ....

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Using con As New SqlConnection(sConnection)
con.Open()
Using com As New SqlCommand("Select Code1, Code2 from tblTable6 where fldname =''Things''", con)
Using rdr = com.ExecuteReader
If rdr.HasRows Then
Do While rdr.Read = True
ComboBox1.Items.Add(rdr.GetString(0))
''''''''missing something here
Loop
con.Close()
End If
End Using
End Using
End Using
End Sub

Estoy seleccionando Código1 y Código2 de la Tabla, quiero poder mostrar el código1 y, cuando estoy seleccionado, quiero poder tener el valor de Código2, pero con displayMember y ValueMember no veo ningún resultado.

EDITAR: Aquí está todo mi código:

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Using con As New SqlConnection(sConnection)
Using com As New SqlCommand("Select Label, Code from Table.....", con)
con.Open()
Dim dt As New DataTable()
Dim rows = dt.Load(com.ExecuteReader)
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "Code"
ComboBox1.ValueMember = "Label"
con.Close()
End Using
End Using
End Sub

Dim rows = dt.Load (com.ExecuteReader) --- esta línea se subraya

ERROR dice: Expresión no produce valor

EDIT2:

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Using con As New SqlConnection(sConnection)
con.Open()
Using com As New SqlCommand("Select Label, Code from tblData where fldname =''M''", con)
Dim dt As New DataTable()
ComboBox1.DataSource = dt
ComboBox1.DisplayMember = "Code"
ComboBox1.ValueMember = "Label"
con.Close()
End Using
End Using
End Sub

Ahora aparece otro error que dice: No se puede vincular al nuevo miembro de valor. Esto sucede en combobox1.valuemember = "Etiqueta"

Answer 1

En lugar de poblar la colección de elementos, puede vincular una DataTable al control para que se utilice como Datasource . Luego, puede decirle qué elemento mostrar y qué valor le enviará cuando haya una selección:

Using con As New SqlConnection(sConnection)
Using com As New SqlCommand("Select Id, Name FROM ....", con)
con.Open()
Dim dt As New DataTable()
dt.Load(com.ExecuteReader)
cbox1.Datasource = dt
cbox.DisplayMember = "Name"
cbox.ValueMember = "Id"
End Using
End Using

"Nombre" e "Id" serían nombres de columnas de la tabla de la base de datos. El evento con el que probablemente desee trabajar en este caso sería SelectedValueChanged y SelectedValue contendría el ID relacionado con el elemento seleccionado. Esto se devolverá como Object por lo que es posible que tengas que devolverlo a lo que sea.

También puede enlazar a List(Of T) colecciones de la List(Of T) de la misma manera. En ese caso, SelectedItem podría ser el objeto completo. Por ejemplo, al usar una List(of Employee) , SelectedItem sería el objeto para el Empleado que el usuario seleccionó.