Clipper/FiveWin - Acceder a Paradox 7.x

   
Vista:

Acceder a Paradox 7.x

Publicado por SuperIndio (64 intervenciones) el 22/10/2008 22:15:06
Alguien Tiene un ejemplo de como conectarme a PARADOX 7.x y hacer un select
Uso harbour
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Acceder a Paradox 7.x

Publicado por Gabriel Pascual (914 intervenciones) el 23/10/2008 03:09:11
Con Harbour puro no es posible, porque no tiene acceso a OLE.

Necesitas usar xHarbour o en su defecto tendras que conseguir la libreria HBOLE.LIB

Luego, vas a necesitar el controlador ODBC para paradox, que normalmente viene instalado en todos los windows, para verificar si existe entra en Panel de Control / Herramientas Adminsitrativas / Origenes de datos ODBC /pestaña CONTROLADORES y ahi debe de aparecer el Microsoft Paradox Driver

Si ya lo tienes instalado, este pedazo de codigo xHarbour hace la magia.

Luego nos conectamos por ADO:

oConexion := TOleAuto():New("adodb.connection")
oConexion:Open("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" )

WITH OBJECT oRecordSet := TOleAuto():New("adodb.recordset")
:LockType := adLockOptimistic
:CursorType := adOpenDynamic
:ActiveConnection(oConexion)
:Source := "Select * from Clientes"
:Open()
END
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Acceder a Paradox 7.x

Publicado por SuperIndio (64 intervenciones) el 23/10/2008 17:18:10
Es Exactamente lo que hice....
Me puedo conectar sin problemas el problema ocurre cuando
ejecuto oRs:Open(cSQL)

ahi se cierra toda la aplicacion y no me deja ningun rasto de lo que paso
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar