Autor Tema: Datos De Base De Datos En Conbobox (Leído 1499 veces)

zero_ls · « **en:** Martes 7 de Agosto de 2007, 07:08 »

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 variables
Private conexion As ADODB.Connection
Private WithEvents rs As ADODB.Recordset
 
'Constante para la base de datos
rutaBase = &#34;basededatos.mdb&#34;
 
    'Se crean nuevos objetos
    Set conexion = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    'Establezco la conexion
    With conexion
        .ConnectionString = &#34;Provider=Microsoft.Jet.OLEDB.4.0;Data Source=&#34; & rutaBase & &#34;;&#34;
        .Open
    End With
 
   'Creo el recordset con el campo para llenar mi combo
    rs.Open &#34;SELECT usuario FROM usuarios&#34;, 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

SoloCodigo

Autor Tema: Datos De Base De Datos En Conbobox (Leído 1499 veces)

zero_ls

Datos De Base De Datos En Conbobox

CUPER

Re: Datos De Base De Datos En Conbobox

robbie110487

Re: Datos De Base De Datos En Conbobox