Saludos al F贸rum.
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.
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.
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