Combobox y access
Hola
Me es necesario cargar un comboox a partir de una tabla de access el código que utilizo es el siguiente:
Option Explicit
'Objetos DAO a utilizar
Dim sdg As DAO.Database
Dim est As DAO.Recordset
Private Sub Form_Load()
'Abrimos la base de datos desde que cargamos el form
Set sdg = OpenDatabase("sdg.mdb")
'Abrimos el Recordset referente a la base de datos
Set est = sdg.OpenRecordset _
("Select * from est", dbOpenDynaset, dbOptimistic)
With Combo1
.Clear
sdg.Refresh **********ACA FALLA********
While Not sdg.Recordset.EOF
.AddItem sdg.Recordset!est ' nombre del campo de la tabla que tiene en la base de datos
sdg.Recordset.MoveNext
Wend
End With
End Sub
Pero al compilar me falla en "sdg.refresh" devolviéndome el error ( no se encontró método) estoy usando Visual 6.
Desde ya agradezco cualquier ayuda.
Me es necesario cargar un comboox a partir de una tabla de access el código que utilizo es el siguiente:
Option Explicit
'Objetos DAO a utilizar
Dim sdg As DAO.Database
Dim est As DAO.Recordset
Private Sub Form_Load()
'Abrimos la base de datos desde que cargamos el form
Set sdg = OpenDatabase("sdg.mdb")
'Abrimos el Recordset referente a la base de datos
Set est = sdg.OpenRecordset _
("Select * from est", dbOpenDynaset, dbOptimistic)
With Combo1
.Clear
sdg.Refresh **********ACA FALLA********
While Not sdg.Recordset.EOF
.AddItem sdg.Recordset!est ' nombre del campo de la tabla que tiene en la base de datos
sdg.Recordset.MoveNext
Wend
End With
End Sub
Pero al compilar me falla en "sdg.refresh" devolviéndome el error ( no se encontró método) estoy usando Visual 6.
Desde ya agradezco cualquier ayuda.
1 Respuesta
Respuesta de avleyva
1
Prueba lo siguiente:
Dim sdg As Database
Set sdg = OpenDatabase("sdg.mdb")
Dim est As Recordset
Set est = sdg.OpenRecordset("Select * from est", dbOpenDynaset, dbOptimistic)
With Combo1
.Clear
While Not sdg.Recordset.EOF
.AddItem est.Fields("NombreCampo").Value
Est. MoveNext
Wend
End With
Dim sdg As Database
Set sdg = OpenDatabase("sdg.mdb")
Dim est As Recordset
Set est = sdg.OpenRecordset("Select * from est", dbOpenDynaset, dbOptimistic)
With Combo1
.Clear
While Not sdg.Recordset.EOF
.AddItem est.Fields("NombreCampo").Value
Est. MoveNext
Wend
End With
