ENLACE A ACCES

miguel
02 de Octubre del 2003
Alguien me puede enviar un ejercicio en el que pueda enlazar mi programa de visual con acces por medio del control ADO, espero que puedan ayudarme lo mas pronto posible , gracias

sdemingo
02 de Octubre del 2003
Public oConexion As New ADODB.Connection
Public rs As ew ADODB.RecordSet

Private Sub Form_Load()

Dim strSql as String

oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open "C:BD.mdb"

strSql = "Select * From Tabla"
rs.Open strSql, oConexion, adOpenKeyset, adLockOptimistic
If rs.RecordCount <> 0 then
Do while Not rs.EOF
msgbox rs("NombreCampo")
rs.MoveNext
Loop
End If
rs.Close

oConexion.Close

End Sub


Espero que te sirva algo

Un saludo
sdemingo