SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => VBA => Mensaje iniciado por: Fernando Vergel Ferrer en Jueves 13 de Octubre de 2005, 04:17

Título: Combobox Y Access
Publicado por: Fernando Vergel Ferrer en Jueves 13 de Octubre de 2005, 04:17
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
Título: Re: Combobox Y Access
Publicado por: Shiquilla en Miércoles 19 de Octubre de 2005, 09:10
Para meter los datos en el Combo sería (siguiendo con tu código):

Código: Text
  1. ComboBox.Clear
  2. While Not rs.OEF
  3.     ComboBox.AddItem IIf(Not IsNull(rs!NombreCampo), rs!NombreCampo, "")
  4.     rs.MoveNext
  5. Wend
  6. rs.Close
  7. Set rs = Nothing
  8.  

Saludos,