Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Conexión con bases de datos
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Conexión con bases de datos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #21  
Antiguo 18-11-2016
cloayza cloayza is offline
Miembro
 
Registrado: may 2003
Ubicación: San Pedro de la Paz, Chile
Posts: 910
Poder: 22
cloayza Tiene un aura espectacularcloayza Tiene un aura espectacular
Cita:
Empezado por roman Ver Mensaje
¿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...
Responder Con Cita
  #22  
Antiguo 18-11-2016
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Poder: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Cita:
Empezado por cloayza Ver Mensaje
Y lo demás fué cantar...
Bueeeno, si tú lo dices

Gracias por la explicación

LineComment Saludos
Responder Con Cita
  #23  
Antiguo 18-11-2016
Avatar de zeta2
zeta2 zeta2 is offline
Miembro
 
Registrado: feb 2007
Posts: 95
Poder: 18
zeta2 Va por buen camino
De cuál versión de delphi es ese proyecto?
Responder Con Cita
  #24  
Antiguo 18-11-2016
Avatar de zeta2
zeta2 zeta2 is offline
Miembro
 
Registrado: feb 2007
Posts: 95
Poder: 18
zeta2 Va por buen camino
Me tiraba un error, pero ya lo solucioné. Estoy viendo como funciona.
Responder Con Cita
  #25  
Antiguo 18-11-2016
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Poder: 20
movorack Va camino a la famamovorack Va camino a la fama
Cita:
Empezado por zeta2 Ver Mensaje
De cuál versión de delphi es ese proyecto?
Delphi 5 .
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita
  #26  
Antiguo 18-11-2016
Avatar de zeta2
zeta2 zeta2 is offline
Miembro
 
Registrado: feb 2007
Posts: 95
Poder: 18
zeta2 Va por buen camino
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.
Responder Con Cita
  #27  
Antiguo 18-11-2016
Avatar de movorack
[movorack] movorack is offline
Miguel A. Valero
 
Registrado: feb 2007
Ubicación: Bogotá - Colombia
Posts: 1.346
Poder: 20
movorack Va camino a la famamovorack Va camino a la fama
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.
__________________
Buena caza y buen remar... http://mivaler.blogspot.com
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
extraer ficheros de base de datos sqlite campo blob juank1971 Conexión con bases de datos 3 03-10-2013 23:55:34
extraer datos de un documento word o txt e insertalo en la base de datos Secundino Conexión con bases de datos 5 28-02-2011 11:27:39
Como puedo extraer el PATH de mi base de datos? BillyYakira Firebird e Interbase 2 21-09-2010 08:28:57
no puedo eliminar una base de datos pablopessoa Conexión con bases de datos 2 12-01-2009 18:42:55
Extraer scipt's de base de datos subzero Firebird e Interbase 1 23-05-2007 11:10:59


La franja horaria es GMT +2. Ahora son las 11:58:03.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi