Existe Algun Libreria o RDD para Paradox

[ruben Dario]

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

[Antonio Linares]

Ruben,

Esto parece que te podría servir:

http://www.codeproject.com/Articles/13/ ... E-from-Vis

[ruben Dario]

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

[Antonio Linares]

Ruben,

Has buscado en google el error que te aparece ?

[ruben Dario]

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

[Antonio Linares]

Muy bien

[Joaquim Ferrer]

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

Code: Select all

/*
 * 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
 * https://www.connectionstrings.com/
 * Visores y utilidades Paradox
 * http://www.mitec.cz/Data/XML/data_downloads.xml
 * http://www.sportamok.com/development/download-components/delphi/paradox-dbase-setup.exe 
 */

#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.

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