Necesito conectar una base de datos access

[Erick Almanza]

Hola amigos

He tratado de conectar una base de datos access utilizando adordd, pero se me cuelga el programa. Quisiera saber si pueden ayudarme utilizando la clase todbc u otra soluccion.




Saludos
Erick Almanza
fwh806 bcc55
xharbour

[Alfredo Arteaga]

Via ODBC:

Code: Select all  Expand view

      cUser:="admin"
      cPass:="paswword"
      cDSN:="MS Access Database"
      cMDB:="MyAccess.MDB"

      oODBC:=TOdbc():New(cDSN,cUser,cPass,cMDB)   // Conecta

      IF !oODBC:lSuccess
         oODBC:End()
         MsgInfo("No puede establecerse el enlace ODBC.","Precaución!")
         RETURN (NIL)
      ENDIF

      cTab:="MyTable"
      cQuery:="SELECT * FROM "+cTab+" WHERE "     // Query
      oDAcc:=oODBC:Query(cQuery)

      oDAcc:lDateAsStr:=.T.
      oDAcc:Open()
      oDAcc:Complete()
      oDAcc:GoTop()
      DO WHILE !oDAcc:EoF()
         aDat[1]:=oDAcc:Field1
         aDat[2]:=oDAcc:Field2
         aDat[3]:=...
         --- Proceso
         CursorWait()
         oDAcc:Skip(1)
      ENDDO
      aDat[1]:=oDAcc:Field1
      aDat[2]:=oDAcc:Field2
      aDat[3]:=...
      --- Proceso
      oDAcc:End()