• Lunes 29 de Abril de 2024, 07:11

Autor Tema:  Combobox Y Access  (Leído 1616 veces)

Fernando Vergel Ferrer

  • Nuevo Miembro
  • *
  • Mensajes: 3
    • Ver Perfil
Combobox Y Access
« en: Jueves 13 de Octubre de 2005, 04:17 »
0
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

  • Miembro MUY activo
  • ***
  • Mensajes: 188
  • Nacionalidad: es
    • Ver Perfil
    • http://www.songesoft.com
Re: Combobox Y Access
« Respuesta #1 en: Miércoles 19 de Octubre de 2005, 09:10 »
0
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,
« §hÿqµïllæ »