Mi pregunta alguien ha accesado una tabla de paradox , alguien tiene un ejemplo, el paradox es versión 9.
Hago la conexión , pero me genera error al Accesar la tabla, algo estoy haciendo mail
La conexión Me funciona del Driver me funciona, me genera error cuando voy a usar la tabla Alumnos.db.
- Code: Select all Expand view
Function Bas_paradox()
Local Abriba,cPath,oError
//cPath := cGetDir()
cPath := "K:\Dt"
cString := "Driver={Microsoft Paradox Driver (*.db )};"+;
"collatingsequence=ASCII;"+;
"dbq="+ cPath +";"+;
"defaultdir="+ cPath +";"+;
"driverid=538;"+;
"fil=Paradox 7.X;"+;
"paradoxnetpath="+ cPath +";"+;
"paradoxnetstyle=4.x;"+;
"paradoxusername=Administrador;"+;
"safetransactions=0;"+;
"threads=3;"+;
"uid=administrador;"+;
"usercommitsync=Yes"
// cString := "Driver={Microsoft Paradox Driver (*.db )};DriverID=538;Fil=Paradox 5.X;"+;
// "DefaultDir=K:\Dt;Dbq=K:\Dt;CollatingSequence=ASCII;"
oConexionAdo := TOLEAUTO():New("adodb.connection")
TRY
oConexionAdo:Open( cString )
oError := TOLEAUTO():New("adodb.Error")
CATCH oError
MsgStop(oError:Operation+CRLF+oError:Description,"Ado Connection")
RETURN NIL
END
Abrtabla(cString,cPath)
Return
//-----------------------------------------------------------------------------
Function Abrtabla(cString,cPath)
Local Abriba,oError
Local oCommand
cSelect := "Alumnos.db" //"select * from "+cTabla
Abriba:= TOleAuto():New( "ADODB.Recordset" )
// oConexionAdo := TOLEAUTO():New("adodb.connection")
// oRecordset := TOLEAUTO():New("adodb.recordset")
oCommand := TOLEAUTO():New("adodb.command")
Abriba:CursorLocation := adUseClient
Abriba:CursorType := adOpenStatic
Abriba:LockType := adLockPessimistic
alert("Paso 1 "+cSelect )
TRY
Abriba:Open( cSelect , cString ,1, 3 )
CATCH oError
MsgStop(oError:Operation+CRLF+oError:Description,"Ado Connection")
RETURN NIL
END
Return