Programación General > Visual Basic para principiantes

 Datos De Base De Datos En Conbobox

(1/1)

zero_ls:
hola, me gustaria que me explicaran como puedo jalar los registros de un campo de una base de datos, y desplegarlos en forma de lista en un comboBox, utilizando ADODB?

CUPER:
Estimdo una de las formas mas simples y siempre y cuando la lista no sea extensa

Private Sub LISTA_Verduras_Enter()
With COMP
.Clear
.AddItem "Papas"
.AddItem "cebollas"
.AddItem "manzanas"
End With
End Sub

robbie110487:
Claro, pero imagina que los datos son 100000, no vas a hacer un additem a cada de cada uno, aparte luego si modificas la base de datos tendras que modificar el codigo para agregar otro additem.

Lo que yo uso para agregar los datos es hacer un recordset exclusivo con el campo del cual se alimentara el combo y luego ya mediante un ciclo while se añaden, algo mas o menos asi:


--- Código: Text ---'Se declaran las variablesPrivate conexion As ADODB.ConnectionPrivate WithEvents rs As ADODB.Recordset 'Constante para la base de datosrutaBase = "basededatos.mdb"     'Se crean nuevos objetos    Set conexion = New ADODB.Connection    Set rs = New ADODB.Recordset        'Establezco la conexion    With conexion        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & rutaBase & ";"        .Open    End With    'Creo el recordset con el campo para llenar mi combo    rs.Open "SELECT usuario FROM usuarios", conexion, adOpenDynamic, adLockOptimistic        'Mientras el recordsert no llegue a su fin     'Se añade el campo en la posicion 0 (es el unico) y movemos a la sig posicion del rs    While Not rs.EOF        lstUsuario.AddItem rs.Fields(0)        rs.MoveNext    Wend  
Espero te haya servido...

Saludos

Navegación

[0] Índice de Mensajes