Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 29-03-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.435
Poder: 20
egostar Va por buen camino
Migrar estructura de tablas paradox a Firebird

Hola todos

Quiero ejecutar un script para crear tablas de firebird pero desde Delphi.

Ya he conseguido crear la tabla desde Delphi pero ahora no encuentro como crear las tablas.

¿alguno de ustedes me puede decir como hacer esto?

Salud OS y gracias.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney

Última edición por egostar fecha: 04-04-2007 a las 03:02:27. Razón: Para una mejor comprensión del tema.
Responder Con Cita
  #2  
Antiguo 30-03-2007
[maeyanes] maeyanes is offline
Capo de los Capos
NULL
 
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.728
Poder: 19
maeyanes Va por buen camino
Puedes usar el componente TIBScript para ejecutar scripts DDL...


Saludos...
Responder Con Cita
  #3  
Antiguo 30-03-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.435
Poder: 20
egostar Va por buen camino
Muchas gracias maeyanes, lo voy a probar y comento los resultados.

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #4  
Antiguo 30-03-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.435
Poder: 20
egostar Va por buen camino
Bueno pues muchas gracias maeyanes, las tablas fueron creadas perfectamente.

Ahora les voy a comentar el porque de esto, resulta que como soy muy flojo, como dirian por aqui algunos "soy un vago", estoy migrando los sistemas que tengo de Paradox a Firebird, pero (como siempre hay un pero), me da flojera estar creando las tablas desde el IBExpert.

Por tal razón me puse a la tarea de crear un programita para migrar las definiciones de las tablas sin tener que escribir nada, es decir, solo selecciono el Alias que quiero migrar y el sistema me genera el script de la base.

Una vez que el script está generado, con un simple click creo la base de datos en Firebird y las tablas.

Aquí les pego el código fuente para quien le interese y también al igual que yo le de flojera esta migración.

Hay algunos detalles que no se como atacarlos, por ejemplo, los campos Blob o Memo de paradox, no se su correspondencia en Firebird, de igual forma no he puesto todos los tipos de datos, solo incluí los digamos tipos estandard.

Se que por aqui habrá quien le de su toque maestro y espero que éste se vea favorecido por sus aportaciones.

Edito: Hay un bug, pero es por la razón que les comenté, no he incluido todos los tipos de datos, por lo tanto, les puede enviar un error cuando el último campo de la tabla es de un tipo NO incluido.

Otra cosa, aun me falta asignar las llaves, los campos NOT NULL, pero estoy trabajando en eso.

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney

Última edición por egostar fecha: 30-03-2007 a las 00:59:05.
Responder Con Cita
  #5  
Antiguo 30-03-2007
Avatar de Manuel
Manuel Manuel is offline
Miembro
NULL
 
Registrado: may 2003
Ubicación: San Pedro de la Paz/Chile
Posts: 316
Poder: 17
Manuel Va por buen camino
Esto te puede servir

Código SQL [-]
        tabla := 'T12345';
        Query6.Close;
        Query6.SQL.Clear;
        Query6.SQL.Add('CREATE TABLE '+tabla+'(');
        Query6.SQL.Add('CODIGO DOUBLE PRECISION NOT NULL,');
        Query6.SQL.Add('nota SMALLINT,');
        Query6.SQL.Add('INSUFICIENTE SMALLINT,');
        Query6.SQL.Add('SUFICIENTE SMALLINT,');
        Query6.SQL.Add('BUENO SMALLINT,');
        Query6.SQL.Add('MUYBUENO SMALLINT,');
        Query6.SQL.Add('total SMALLINT,');
        Query6.SQL.Add('PROMEDIO DOUBLE PRECISION)');
        Query6.ExecSQL;

lo puedes hacer para los para las llaves, etc.
__________________
Manuel Muñoz L. Trabajando con delphi 7.0 , migrando sistema a Delphi XE8, matando BDE y pasando FIREDAC.
Responder Con Cita
  #6  
Antiguo 30-03-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.435
Poder: 20
egostar Va por buen camino
Gracias por tu comentario Manuel.

Pues yo sigo con el tema, hubo unos cambios en el programita, cambie el TQuery por un TTable para poder encontrar los índices, en este primer cambio ya logre ingresar el primer índice y funciona bien, sigo aún con el bug de los campos NO incluidos, pero quise primero ver lo de los índices.

En esta parte solo se crea el índice pero no la llave primaria, sigo buscando información para poder lograrlo.

Aquí pueden bajar el código fuente.

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #7  
Antiguo 30-03-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.435
Poder: 20
egostar Va por buen camino
Sigo tratando de mejorar el programa y debo pedirles una disculpa a los que ya hayan bajado el mismo porque no lo habia subido completo.

Aqui la última versión la cual ya genera las llaves primarias.

Espero les guste y sobre todo que les sea de utilidad.

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #8  
Antiguo 30-03-2007
Avatar de Neftali [Germán.Estévez]
Neftali [Germán.Estévez] Neftali [Germán.Estévez] is offline
[becario]
 
Registrado: jul 2004
Ubicación: Barcelona - España
Posts: 15.953
Poder: 10
Neftali [Germán.Estévez] Tiene un aura espectacularNeftali [Germán.Estévez] Tiene un aura espectacular
Hola egostar.
Si queres puedes subir el código fuente al FTP público; No he querido hacerlo yo, por si tienes algun inconveniente.
Lo digo porque así seguro que "perdura" más tiempo y lo tenemos más accesible si más adelante queremos buscarlo.

Gracias por el código.
__________________
Germán Estévez => Web/Blog
Guía de estilo, Guía alternativa
Utiliza TAG's en tus mensajes.
Contactar con el Clubdelphi

P.D: Más tiempo dedicado a la pregunta=Mejores respuestas.
Responder Con Cita
  #9  
Antiguo 30-03-2007
Avatar de Lepe
[Lepe] Lepe is offline
Miembro Premium
NULL
 
Registrado: may 2003
Posts: 7.424
Poder: 24
Lepe Va por buen camino
Un detalle, no uses double precision, usa NUMERIC(10,2) para campos monetarios en Dialecto 3, o tendrás problemas de redondeos y verás que guarda valores que no se corresponden con los introducidos.

Me ha extrañado que al ser un campo indexado, añadas la restricción NOT NULL, eso más bien sería si el campo es obligatorio (Required) ¿no?. Bueno, quizás tú lo necesites así.

Por lo demás me parece fantastico el código.

Si se puede aportar algo... así puedes saber cual es la clave primaria y crear los índices.
Código Delphi [-]
 with Table1.IndexDefs[i] do
        begin
          if ixPrimary in Options then
            Opc:= Opc + 'ixPrimary ';
          if ixUnique in Options then
            Opc:= Opc + 'ixUnique ';
          if ixDescending in Options then
            Opc:= Opc + 'ixDescending ';
          if  ixCaseInsensitive in Options then
            Opc:= Opc + 'ixCaseInsensitive ';
          if  ixExpression in Options then
            Opc:= Opc + 'ixExpression ';
          if  ixNonMaintained in Options then
            Opc:= Opc + 'ixNonMaintained ';

Saludos
__________________
Si usted entendió mi comentario, contácteme y gustosamente,
se lo volveré a explicar hasta que no lo entienda, Gracias.

Última edición por Lepe fecha: 30-03-2007 a las 14:23:27.
Responder Con Cita
  #10  
Antiguo 30-03-2007
Avatar de Manuel
Manuel Manuel is offline
Miembro
NULL
 
Registrado: may 2003
Ubicación: San Pedro de la Paz/Chile
Posts: 316
Poder: 17
Manuel Va por buen camino
Otro pequeño aporte:
Código SQL [-]
       tabla := 'T12345';
        Query6.Close;
        Query6.SQL.Clear;
        Query6.SQL.Add('ALTER TABLE '+tabla+'(');
        Query6.SQL.Add('ADD CONSTRAINT codigoPRIMARYKEY1)');
        Query6.SQL.Add('PRIMARY KEY (CODIGO)');
        Query6.ExecSQL;
__________________
Manuel Muñoz L. Trabajando con delphi 7.0 , migrando sistema a Delphi XE8, matando BDE y pasando FIREDAC.
Responder Con Cita
  #11  
Antiguo 30-03-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.435
Poder: 20
egostar Va por buen camino
Cita:
Empezado por Neftali
Hola egostar.
Si queres puedes subir el código fuente al FTP público; No he querido hacerlo yo, por si tienes algun inconveniente.
Lo digo porque así seguro que "perdura" más tiempo y lo tenemos más accesible si más adelante queremos buscarlo.

Gracias por el código.
Muchas gracias Neftali, lo haré la siguiente vez, aún estoy haciendo modificaciones.

Cita:
Empezado por Lepe
Un detalle, no uses double precision, usa NUMERIC(10,2) para campos monetarios en Dialecto 3, o tendrás problemas de redondeos y verás que guarda valores que no se corresponden con los introducidos.
Gracias, así lo haré.

Cita:
Empezado por Lepe
Me ha extrañado que al ser un campo indexado, añadas la restricción NOT NULL, eso más bien sería si el campo es obligatorio (Required) ¿no?. Bueno, quizás tú lo necesites así.
Si yo no le pongo el NOT NULL no me permite crear la llave primaria, da error al tratar de generarla si no lo tiene.

Cita:
Si se puede aportar algo... así puedes saber cual es la clave primaria y crear los índices.
Muchas gracias, lo voy a incluir ahora mismo.

Cita:
Empezado por Manuel
Otro pequeño aporte:
Gracias Manuel, eso mismo estoy haciendo, en lugar de usar el ALTER TABLE, usar el CONSTRAINT.

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #12  
Antiguo 30-03-2007
[basti] basti is offline
Miembro Premium
NULL
 
Registrado: ago 2004
Posts: 388
Poder: 15
basti Va por buen camino
Cita:
Empezado por egostar

Hay algunos detalles que no se como atacarlos, por ejemplo, los campos Blob o Memo de paradox, no se su correspondencia en Firebird, de igual forma no he puesto todos los tipos de datos, solo incluí los digamos tipos estandard.
Salud OS.
El tipo memo de Paradox se corresponde con blob sub_type 1 en firebird, el resto de los tipos blob (Graphic, OLE, etc.) son blob sub_type 0.
Responder Con Cita
  #13  
Antiguo 30-03-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.435
Poder: 20
egostar Va por buen camino
Cita:
Empezado por basti
El tipo memo de Paradox se corresponde con blob sub_type 1 en firebird, el resto de los tipos blob (Graphic, OLE, etc.) son blob sub_type 0.
Muchas gracias basti, ahora mismo lo pruebo.

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #14  
Antiguo 30-03-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.435
Poder: 20
egostar Va por buen camino
Ya he conseguido incluir las mejoras que amablemente me han dejado saber.

Ahora y tomandole la palabra a Neftali, quiero subir el programa al FTP de Club Delphi, pero tengo una pregunta, como es un programa que aún creo le faltan muchas mejoras, al subirlo al FTP, ¿puedo sobreescribirlo con las últimos cambios posteriormente? o se agrega uno cada vez que lo subo (por supuesto que lo haría con el mismo nombre).

Salud OS y gracias.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #15  
Antiguo 30-03-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.435
Poder: 20
egostar Va por buen camino
Bueno, pues he alojado el programa en el FTP de Club Delphi.

[Herramienta] Migrar estructura de bases Paradox a Firebird Pdox2FB.zip
  • Se agregó llaves primarias e indices secundarios y se cambio el tipo moneda de DOUBLE PRECISION a NUMERIC(10,2) (gracias al aporte de Lepe)
  • Se agregó la creación de la llave primaria con CONSTRAINT .... PRIMARY KEY (gracias al TIP de Manuel)
  • Se agregaron otros tipos de datos (gracias al aporte de basti)
  • Gracias a Neftali por su atención y ofrecimiento del FTP Público
Espero sea de utilidad y serán bienvenidos todos los comentarios y criticas al mismo.

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #16  
Antiguo 12-04-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.435
Poder: 20
egostar Va por buen camino
Hola amigos

Antes que nada, agradezco a todos los que han leido este hilo.

Y pues yo sigo con mi "juguete" de migrar tablas Paradox a Firebird y la intención de este nuevo mensaje es la de dejarles saber que además de la estructura de la base de datos ya he podido migrar los datos de las tablas Paradox a Firebird.

Se que aún quedan muchas cosas por hacer y algunos problemas de casting pero mi pobre conocimiento me limita a hacerlo muy lentamente.

Se que hay herramientas poderosas que hacen esto mismo, pero como les digo, es un juguete que se me ocurrio desarrollar y que me ha evitado algunos minutos de trabajo extra al estar migrando mis sistemas a Firebird.

Ya he subido al FTP del Club la nueva versión y espero que les agrade, si fuera posible me gustaría que me retroalimentaran con sus comentarios, criticas y sugerencias.

Aqui pueden bajar este pequeño aporte de mi parte, no tiene restricción alguna, asi que no le he puesto licencia de ningún tipo.

[Herramienta] Migrar Tablas Paradox a Firebird Pdox2FB.zip

Saludos y gracias por leerme.

Sinceramente

Eliseo.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #17  
Antiguo 13-04-2007
Avatar de Héctor Randolph
[Héctor Randolph] Héctor Randolph is offline
Miembro Premium
NULL
 
Registrado: dic 2004
Posts: 882
Poder: 15
Héctor Randolph Va por buen camino
Hola Eliseo!

Antes que nada quisiera felicitarte por tu trabajo, me parece una genial idea esta herramienta para automatizar la conversión entre bases de datos.

Esperé hasta llegar a mi casa para poder descargarlo y probarlo con calma, me gustaría hacerte algunas observaciones de lo que me he encontrado hasta ahora.

En primer lugar yo tengo Delphi 7 y veo que tu usas una versión más reciente, mi pregunta es ¿puedo utilizar Turbo Delphi Explorer para compilarlo?.

Con respecto a la aplicación, mi primera prueba fue la siguiente:

Tomé el Alias que viene incluido al instalar las bases de datos Demo de Delphi 7, es decir DBDEMOS, la aplicación llena la lista con todas las tablas que encuentra la ruta, sin embargo no todas las tablas tienen la extensión *.db algunas son *.dbf. Como consecuencia al intentar crear el script para la primera tabla que es Animals.DBF me genera el siguiente error:



Mi segunda prueba fue abrir un Alias con unas tablas de paradox que tenía guardadas, el problema según veo es que coloqué acentos en los nombres de las tablas.

Me genera el script para crear las tablas, pero los acentos son permitidos en Paradox y no en Firebird, por lo tanto me envía un error al crear la base de datos.



Por último me gustaría hacer una sugerencia, sería excelente poder guardar una copia de los scripts que se hayan creado con tu aplicación, incluyendo la sentencias que crean la base de datos y los INSERT para la migración de datos. Esto en ocasiones es útil ya que me puedo llevar estos archivos para ejecutarlos desde la consola o en IBExpert y así me das la oportunidad de agregarle o quitarle líneas para afinar detalles antes de crear la base de datos.

Algo así como esto:

Código SQL [-]
/*************************************************************************/
/**** Generado por "Migración de Tablas Paradox a Firebird" 13/04/2007 ***/
/*************************************************************************/

SET SQL DIALECT 3;

CREATE DATABASE 'PRUEBAS'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 1024
DEFAULT CHARACTER SET NONE;

CREATE TABLE ASEGURADOS
(
 Nombre VARCHAR(50),
 Calle VARCHAR(50),
 Numero VARCHAR(10),
 Colonia VARCHAR(40),
 CP VARCHAR(5),
 Entidad_Federativa VARCHAR(40),
 Ciudad VARCHAR(40),
 Delegacion VARCHAR(40),
 RFC VARCHAR(16),
 Telefono VARCHAR(11),
 Fax VARCHAR(11),
 Correo_Electronico VARCHAR(30),
 CONSTRAINT PK_Asegurados PRIMARY KEY (No_Asegurado)
);

CREATE INDEX Asegurados_IDX1 ON Asegurados (Nombre);

Bueno, por el momento es todo y quedo en espera de que me indiques como lo puedo compilar para colaborar en algo.

Saludos

Última edición por Héctor Randolph fecha: 13-04-2007 a las 08:51:27.
Responder Con Cita
  #18  
Antiguo 13-04-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.435
Poder: 20
egostar Va por buen camino
Muchas gracias por tu interes Hector.

Si efectivamente no me ha funcionado mas que para base de datos del tipo Paradox (db), seguiré investigando para que lo haga con las DBF.

También agregaré la parte de quitar acentos, muchas gracias por la nota, yo nunca he utilizado acentos por lo que no visualice esté punto.

Por la parte de crear el archivo, agregaré esa opción muchas gracias por el apunte también.

Te agradezco mucho tus comentarios.

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #19  
Antiguo 14-04-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.435
Poder: 20
egostar Va por buen camino
Cita:
Empezado por Héctor Randolph
Bueno, por el momento es todo y quedo en espera de que me indiques como lo puedo compilar para colaborar en algo.
Lo hice con Turbo Delphi, no recuerdo si Turbo Explorer tiene los controles de Interbase, que es lo único que requiere, todo lo demás son controles estandar.

Muchas gracias.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #20  
Antiguo 14-04-2007
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.435
Poder: 20
egostar Va por buen camino
Hola amigos,

Pues nada, he realizado algunos cambios al codigo de mi "juguetito" en base a los comentarios de Héctor Randolph (muchas gracias) y bueno ya he subido la nueva versión al FTP del Club.

[Herramienta] Migrar Tablas Paradox a Firebird v1.zip

Salud OS.
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
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
Enviar correo desde fastnet desde delphi. uper Internet 1 20-02-2007 01:32:11
create view en delphi piyugo SQL 3 02-09-2004 00:33:00
Utilización del EXTERNAL con CREATE TABLE feruiz Firebird e Interbase 4 01-06-2004 07:15:27
Problema en Create table Red_Delphi Oracle 1 09-02-2004 15:04:02
error en el create table xerkan Firebird e Interbase 3 07-10-2003 15:43:24


La franja horaria es GMT +2. Ahora son las 21:13:42.


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