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
Necesito conectar una base de datos access
-
- Posts: 75
- Joined: Mon Sep 11, 2006 3:52 pm
- Alfredo Arteaga
- Posts: 326
- Joined: Sun Oct 09, 2005 5:22 pm
- Location: Mexico
- Contact:
Re: Necesito conectar una base de datos access
Via ODBC:
Code: Select all
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()