Cargar datos en un combo box
Hola, quisiera que alguien me ayudara. Lo que necesito es cargar los datos de un registro de una tabla, en un combo box. ¿Cómo lo puedo hacer?. Gracias.
Hola Ricardo,
te pongo un ejemplo con ADO.
Sub cargarDatos()
Dim strSql as String
Dim rs as New ADODB.RecordSet
Dim oConexion as New ADODB.Connection
oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open "C:BBDD.mdb"
' Tu sentencia SQL
strSql = "select Campo from Tabla where Condicion"
rs.Open strSql, oConexion,
if rs.RecordCount <> 0 then
do while not rs.EOF
ComboBox.AddItem rs("NombreCampo")
rs.MoveNext
loop
endif
rs.Close
oConexion.Close
End Sub
Un saludo
sdemingo
te pongo un ejemplo con ADO.
Sub cargarDatos()
Dim strSql as String
Dim rs as New ADODB.RecordSet
Dim oConexion as New ADODB.Connection
oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open "C:BBDD.mdb"
' Tu sentencia SQL
strSql = "select Campo from Tabla where Condicion"
rs.Open strSql, oConexion,
if rs.RecordCount <> 0 then
do while not rs.EOF
ComboBox.AddItem rs("NombreCampo")
rs.MoveNext
loop
endif
rs.Close
oConexion.Close
End Sub
Un saludo
sdemingo
Para que luego se vea un elemento en el combo:
' Una vez cargado con todos los elementos
ComboBox.Text = ComboBox.List(0)
Un saludo
sdemingo
' Una vez cargado con todos los elementos
ComboBox.Text = ComboBox.List(0)
Un saludo
sdemingo