Rellenar un ComboBox

Autor: Dámaso Velázquez Álvarez

Para rellenar un ComboBox, tenemos que realizar lo siguiente:

Dim sql As String
Dim cn as MySqlConnection
Dim cm As MySqlCommand
Dim da As MySqlDataAdapter
Dim ds as DataSet

cn = new MySqlConnection("Data Source=servidor;Database=base_de_datos;User ID=usuario; Password=clave; Allow Zero Datetime=True; CHARSET=latin1")
cn.open()

sql = "SELECT valor1,valor2 FROM tabla_que_corresponda"

cm = New MySqlCommand()
cm.CommandText = sql
cm.CommandType = CommandType.Text
cm.Connection = cn

da = New MySqlDataAdapter(cm)
ds= New DataSet()
da.Fill(ds)

cmbSeccion.DataSource = ds.Tables(0)
cmbSeccion.DisplayMember = "valor1"
cmbSeccion.ValueMember = "valor2"


El campo valor1 se mostrará en el combo, mientras que el campo valor2 se almacenará en la propiedad Value de dicho combo.

Podría interesarte...

Rellenar un dataset con una consulta SQL
Rutina para rellenar un dataset con una consulta SQL procedente de una base de datos MySQL con ADO.NET
Rellenar un dataset con una consulta SQL y volcarlo a un DataGridView
Rutina para rellenar un dataset con una consulta SQL procedente de una base de datos MySQL con ADO.NET
Rellenar un dataset con una consulta SQL
Rutina para rellenar un dataset con una consulta SQL procedente de una base de datos MySQL con ADO.NET