Foros Club Delphi - No puedo extraer datos de una base de datos antigua

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - No puedo extraer datos de una base de datos antigua (https://www.clubdelphi.com/foros/showthread.php?t=91132)

Cita:

Empezado por roman (Mensaje 510925)

¿Esta es la descripción de la tabla? ¿En qué archivo la encontraste?

LineComment Saludos

Hace muchos años que no veía programas en Cobol...para mi fué una pesadilla aprender a programar en este lenguaje...Pero fue bueno recordar esos momentos...

A tu pregunta...
Los archivos fuentes son los *.CBL, miré algunos y por coincidencia los nombres de los archivos fuentes son muy parecidos a los archivos de datos...

Así que :
BIBLI001.CBL contiene esto...

Código Delphi [-] IDENTIFICATION DIVISION.
       PROGRAM-ID.                 BIBLI001.
       SECURITY.                   ABM DE LIBROS.
      *
       ENVIRONMENT DIVISION.
       CONFIGURATION SECTION.
       SOURCE-COMPUTER.            PCI.
       OBJECT-COMPUTER.            PCI.
       SPECIAL-NAMES.
               DECIMAL-POINT IS COMMA.
       INPUT-OUTPUT SECTION.
       FILE-CONTROL.

           SELECT BIBLIO ASSIGN TO DISK,
                              "bibli01.fil" 
               ORGANIZATION IS RELATIVE
               ACCESS MODE IS dynamic
               RELATIVE IS B1-CLAVE.
...
DATA DIVISION.
       FILE SECTION.
             COPY "bibli01.cop".
             COPY "bibli02.cop".
             COPY "bibli03.cop".
             COPY "bibli04.cop".
             COPY "bibli07.cop".

El FILE SECTION es donde se hace la descripción de los registros de los archivos...

Bibli01.COP

Código Delphi [-] FD BIBLIO
           label record standard.
       01 B1-REG.
           02 B1-FECHIN     PIC 9(6).
           02 B1-TITULO     PIC X(58).
           02 B1-AUTOR1     PIC X(25).
           02 B1-AUTOR2     PIC X(25).
           02 B1-AUTOR3     PIC X(25).
           02 B1-EDITOR     PIC X(18).
           02 B1-EDICION.
              03 B1-ANIO    PIC 9(4).
              03 B1-VEZ     PIC 9(2).
           02 B1-ASIGNATURA PIC X(15).
           02 B1-TOPO.
              03 B1-UB      PIC X(3).
              03 B1-EST     PIC X(3).
          02 B1-COLECCION   PIC X(20).
          02 B1-PROCEDENCIA PIC X.

Y lo demás fué cantar...

Cita:

Empezado por cloayza (Mensaje 510963)

Y lo demás fué cantar...

Bueeeno, si tú lo dices :D

Gracias por la explicación :)

LineComment Saludos

De cuál versión de delphi es ese proyecto?

Me tiraba un error, pero ya lo solucioné. Estoy viendo como funciona.

Cita:

Empezado por zeta2 (Mensaje 510973)

De cuál versión de delphi es ese proyecto?

Delphi 5 .

Claro, lo abrí en un delphi 7.

Lee re bien el archivo.fil lo que si, me exporta un xml pero no lo puedo lee, me tira un error en excel, en notepad lo leo sin problemas, en breve veo cual puede ser el problema.

Ese XML es el TClientDataSet guardado en XML. No se si Excel lo lea bien.

Para llevarlo a la DB relacional solo debes conectar el ClientDataSet a tu motor de preferencia.