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.

[[basti]]

Originally Posted by 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]]

Originally Posted by 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.