- Code: Select all Expand view
cPath := cGetDir()
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"
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
Y funciona muy bien, sin embargo cuando la tabla está siendo consultada desde la aplicación original ( SAE ) obtengo un mensaje de error al tratar de hacer el Open.
Alguna sugerencia.