Ayuda Sobre Paradox

[ruben Dario]

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.

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


 

[karinha]

http://www.lawebdelprogramador.com/foros/Clipper_FiveWin/1035209-Acceder_a_Paradox_7.x.html

http://www.pctoledo.com.br/forum/viewtopic.php?t=6772

http://wiki.fivetechsoft.com/doku.php?id=sqlwin_development

http://www.pctoledo.com.br/forum/viewtopic.php?f=1&t=6876

[ruben Dario]

Gracias Karina, Este ejemplo no me funciona, solamente me funciona la primera parte la conexión, pero la segunda parte cuando requiero usar la tabla es donde genera el error.
En mi función Abrtabl_a(cString,cPath)
Abriba:Open( cSelect , cString ,1, 3 )
Aquí es donde genera el error

El sistema Operativo que tengo es Windows 8.1, No se si son de Driver.

o Si alguien tiene un ejemplo funcionado con paradox.

//--------------------------------------------------------------------------
Function Bas_paradox( ) //Se mod ene 9 2013
Local Retorno:=.F.
LOCAL rs, oErr,oCs,cPath,oServer,oADOStream,oADOIndex,oADOCatalog,oADOoSl

cPath := "K:\Dt"


TRY
StrConnection := "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+cPath+";Extended Properties=Paradox 5.x;"

oServer := TOLEAUTO():New("adodb.connection")
oServer:CommandTimeOut := 200
oServer:ConnectionTimeOut := 10
CursorLocation := adUseClient
oServer:Mode := adModeShareDenyNone
oServer:Open( StrConnection )
Retorno:=.T.

Abrtabl_a(StrConnection,cPath)

CATCH oErr
MSGAlert("Error : No se tiene acceso al servidor *" + CRLF +;
"por favor verifique conexion a red o que el servidor este funcionando", ;
"Error: " + oErr:Operation + " -> " + oErr:Description )
Retorno:=.F.
END

Return Retorno

//-----------------------------------------------------------------------------

Function Abrtabl_a(cString,cPath)
Local Abriba,oError
Local oCommand

cSelect := "select * from Alumnos" //"select * from "+cTabla
Abriba:= TOleAuto():New( "ADODB.Recordset" )
oCommand := TOLEAUTO():New("adodb.command")

Abriba:CacheSize := 50
Abriba:CursorLocation := adUseClient
Abriba:CursorType := adOpenStatic
Abriba:LockType := adLockPessimistic
alert(cSelect +" "+ cString)
TRY
Abriba:Open( cSelect , cString ,1, 3 )
CATCH oError
MsgStop(oError:Operation+CRLF+oError:Description,"No se pudo abrir La Tabla Seleccionada.! ")
RETURN NIL
END

Return