Programación General > VBA

 Combobox Y Access

(1/1)

Fernando Vergel Ferrer:
Quiubo pues...

Quiero cargar un ComboBox con los registros de una columna de una tabla de una DB de Access, la conexion con la base de datos la estoy manejando asi:

   Const BdName = "C:\DB.mdb"

   Dim cn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Dim ssql As String

En la funcion......

Set cn = New ADODB.Connection
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & BdName & ";"

    y el query seria:
ssql = "select Field1  from Table1 "
Set rs = cn.Execute(ssql)

Como puedo meter el resultado de este query para que me cargue el ComboBox  ?


Gracias,

Fernando Vergel Ferrer

Shiquilla:
Para meter los datos en el Combo sería (siguiendo con tu código):


--- Código: Text ---ComboBox.ClearWhile Not rs.OEF    ComboBox.AddItem IIf(Not IsNull(rs!NombreCampo), rs!NombreCampo, "")    rs.MoveNextWendrs.CloseSet rs = Nothing 
Saludos,

Navegación

[0] Índice de Mensajes