llenar un combo box con registros de DB gracias...

rodri123
14 de Noviembre del 2005
hola hola...

me podrian ayudar como puedo llenar un combobox con registros de un base de datos , ya se que es muy facil pero mi cabe<a ya no da ni mais.........


mil gracias...

mvallejos
14 de Noviembre del 2005
Dim R As New ADODB.Recordset
Dim Sql As String

Sql = "<texto de la consulta>"
R.Open Sql, Conexion, AdOpenStatic
Combo1.Clear
Do while not R.Eof
Combo1.AddItem r!<nombre del campo>
R.MoveNext
Loop
R.Close

Saludos