CREATE TABLE desde Delphi

[[egostar]]

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.

[[maeyanes]]

Puedes usar el componente TIBScript para ejecutar scripts DDL...


Saludos...

[[egostar]]

Muchas gracias maeyanes, lo voy a probar y comento los resultados.

Salud OS.

[[egostar]]

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.

[Manuel]

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.

[[egostar]]

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.

[[egostar]]

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.

[Neftali [Germán.Estévez]]

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.

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

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

[Manuel]

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;

[[egostar]]

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.

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

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.

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.

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.

[[basti]]

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.

[[egostar]]

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.

[[egostar]]

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.

[[egostar]]

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.

[[egostar]]

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.

[[Héctor Randolph]]

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

[[egostar]]

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.

[[egostar]]

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.

[[egostar]]

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.