martes, 31 de agosto de 2010

Llenar un ComboBox en VB.NET con una base de datos.

Explicaremos brevemente como llenar un combo desde una base de datos, ésto se puede hacer mediante propiedades de los controles pero aqui lo explicaré mediante código conectando una base de datos SQL, tambien funcionas con base de datos ACCESS solo con cambiar el objeto.

Dim comando As SqlCommand = New SqlCommand
Dim adaptador As SqlDataAdapter = New SqlDataAdapter
Dim dataproveedor As DataSet = New DataSet
comando.Connection = conexion
comando.CommandText = "select equipo from equiposmoviles order by equipo"
adaptador.SelectCommand = comando
adaptador.Fill(dataproveedor, "tabla")
ComboBox1.Items.Clear()
Dim tabla As DataTable
Dim fila As DataRow
tabla = dataproveedor.Tables("tabla")
For Each fila In tabla.Rows
ComboBox1.Items.Add(fila.Item("equipo"))
Next
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList