Saludos Al F贸rum, Existe Algina Librer铆a o RDD para manejar base de datos Paradox. O Alquien Tiene alg煤n ejemplo que funcione,
Gracias
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour Existe Algun Libreria o RDD para Paradox
Ruben,
Esto parece que te podr铆a servir:
http://www.codeproject.com/Articles/13/Accessing-the-Borland-Database-Engine-BDE-from-Vis
Esto parece que te podr铆a servir:
http://www.codeproject.com/Articles/13/Accessing-the-Borland-Database-Engine-BDE-from-Vis
Gracias, Antonio, Voy a revisarlo.
Antonio he Intentado con ADO, me hace la conexi贸n , pero al Abrir la tabla me genera error, Ya que necesito hacer una actualizaci贸n ha unas tablas en tablas paradox.
Gracias
Ruben,
Has buscado en google el error que te aparece ?
Gracias. Lineares, Lo que tu dec铆as el DBE de Borland,
Parece que el driver que tiene Windows no Funciona o esta desactualizado, lo solucione de esta manera.
Baje en Runtain de Paradox Versi贸n 11. Lo instale , hay viene el DBE , ya con esto ya me funciona desde mi programa manejando ADO.
Seg煤n veo este DBE , tiene los Driver de Paradox.
Gracias
Muy bien 
Aunque ha pasado el tiempo y puede que hayais solucionado el tema, dejo mi experiencia.
As铆 ampliar la base de conocimiento por si alguien algun dia tiene que volver a 'lidiar' con esto.
He realizado, lo siguiente
1) Crear origen de datos, llamando a Odbcad32.exe
2) Crear un fichero vacio, con extension UDL (gracias @TheFull) y vincularlo al origen de datos anterior
3) Ejecutar el siguiente test, es importante en la SELECT hacer referencia a la tabla con extension .db
Saludos
As铆 ampliar la base de conocimiento por si alguien algun dia tiene que volver a 'lidiar' con esto.
He realizado, lo siguiente
1) Crear origen de datos, llamando a Odbcad32.exe
2) Crear un fichero vacio, con extension UDL (gracias @TheFull) y vincularlo al origen de datos anterior
3) Ejecutar el siguiente test, es importante en la SELECT hacer referencia a la tabla con extension .db
Saludos
/*
* v.1.0 23-02-2016
* (c)2016 Joaquim Ferrer <quim_ferrer@yahoo.es>
* Programa:
* Acceso a tablas Paradox > 5.x mediante FW ADO
* Recursos:
* Obtener cadena de conexi贸n
* <!-- m --><a class="postlink" href="https://www.connectionstrings.com/">https://www.connectionstrings.com/</a><!-- m -->
* Visores y utilidades Paradox
* <!-- m --><a class="postlink" href="http://www.mitec.cz/Data/XML/data_downloads.xml">http://www.mitec.cz/Data/XML/data_downloads.xml</a><!-- m -->
* <!-- m --><a class="postlink" href="http://www.sportamok.com/development/download-components/delphi/paradox-dbase-setup.exe">http://www.sportamok.com/development/do ... -setup.exe</a><!-- m -->
*/
#include "fivewin.ch"
function main()
// Antiguo driver CA-Clipper, sirve hasta Paradox 3.x
// No se ha migrado a Harbour
//REQUEST DBPX
//USE familia INDEX familia VIA "DBPX"
local cProvider, cDataSource, cString, cSelect, cBuffer
local oServer, oRecord
/* Paradox database */
cProvider := "Microsoft.Jet.OLEDB.4.0"
cDataSource := "db"
cProperties := "Paradox 5.x"
cString := "Provider="+ cProvider +';'
cString += "Data Source="+ cDataSource +';'
cString += "Extended Properties="+ cProperties
/* Connection */
oServer:= CreateObject( "ADODB.Connection" )
oServer:CommandTimeOut := 0
TRY
oServer:Open( cString )
CATCH oError
? oError:Description, "No es posible abrir una conexi贸n global con "+ cDataSource
return .F.
END
oRecord:= CreateObject( "ADODB.Recordset" )
oRecord:CacheSize := 50
oRecord:CursorLocation := 3 //adUseClient
oRecord:CursorType := 2 //adOpenStatic
oRecord:LockType := 3 //adLockOptimist
cSelect := 'SELECT * FROM idiomas.db'
TRY
oRecord:Open( cSelect, oServer )
CATCH oError
? oError:Operation, oError:Description, cSelect
return .F.
END
/*
Estructura
adVarWChar 202 Indicates a null-terminated Unicode character string.
adVarNumeric 139 Indicates a numeric value.
*/
cBuffer :=""
for i:= 1 to oRecord:Fields:Count
cBuffer += oRecord:Fields:item(i-1):Name
cBuffer += cValToChar(oRecord:Fields:item(i-1):Type)
cBuffer += cValToChar(oRecord:Fields:item(i-1):DefinedSize)
next
? cBuffer
? "RecordCount", oRecord:RecordCount
/* Registros */
cBuffer :=""
do while !oRecord:Eof()
cBuffer += oRecord:fields("NOMBRE"):value + CRLF
oRecord:MoveNext()
enddo
oRecord:Close()
oServer:Close()
? cBuffer
return .T.
//---------------------------------------------------------------------------------------------------------//Fivewinner desde 1.9, programador PHP y Javascript, PWA & HTML5 evangelista