Cargar datos en un combo box

Ricardo
29 de Octubre del 2003
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.

sdemingo
29 de Octubre del 2003
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

sdemingo
29 de Octubre del 2003
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

Tester
29 de Octubre del 2003
Una vez estas recorriendo el recorset de la tabla usa Combo1.AddItem Recorset![Nombre del campo]

Sin mas, Ismael G. Jiménez