Necesito conectar una base de datos access

Posts: 85

Joined: Mon Sep 11, 2006 03:52 PM

Necesito conectar una base de datos access
Posted: Mon Jul 20, 2009 03:22 PM

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

Posts: 326

Joined: Sun Oct 09, 2005 05:22 PM

Re: Necesito conectar una base de datos access
Posted: Mon Jul 20, 2009 04:39 PM

Via ODBC:

Code (fw): Select all Collapse

      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()

FiveTech Support Forums

Continue the discussion