ATENCIÓN AL CLIENTE: +34 923 199 148

Rellenar un ComboBox

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.

Quizá te interese...