Conexion a una BD Firebird

[FelipeDiaz]

Bueno... Lepe antes que me contestes... se me ocurrio esta solucion y creo que me funcionara y es sencilla.

1. Gbak -b permite hacer copia de cada BD. pero si cambias -b por -m Copiaras los Metadatos. osea la estructura.

2. Luego se vuelve a restaurar con el nuevo nombre. Y listo.

En el mismo directorio tienes otra BD igualita.

El primer problema que em surgio es como ejecutar Gbak desde Delphi, luego de varios intentos por codigo... no obtuve sino una copia que al parecer estaba mala.

El codigo es algo parecido a esto:
ShellExecute(handle,'open','"C:\Archivos de programa\Firebird\bin\gbak.exe"',' -m -user SYSDBA -password masterkey "C:\Documents and Settings\Luis Felipe\AGENDA.FDB C:\Documents and Settings\Luis Felipe\COPIA.GBAK"',nil, SW_SHOWNORMAL);

En todo caso.....

Creo haberlo resuelto usando IBBackupService1 y pFIBRestoreService1, son dos componentes que vienen en la paleta FIBPLUSservices que s einstala junto a los FIBPLUS....solo se configuran y se puede hacer copia y restaurar BD de Firebird haciendo un solo Click.

.... Con todo esto ya creo poder crear la Aplicacion que me permita interactuar entre varias BD's Sobretodo, Crear nuevas a partir de un modelo.


En la medida que avance espero compartir mis inquietudes,


Saludos

[[Lepe]]

Otra idea:

Con Ib Expert o EMS puedes extraer todos los metadatos. Esos metadatos los guardas en un archivo de texto. Dicho archivo se carga en un FIBScript (no conozco ese componente, pero debe tenerlo).

Quedaría algo así:

Código SQL [-]
/******************************************************************************/
/****         Generated by IBExpert 2005.06.07 11/10/2007 22:19:27         ****/
/******************************************************************************/

SET SQL DIALECT 3;

SET NAMES ISO8859_1;

CREATE DATABASE 'd:\sistema\nombre1.FDB'
USER 'SYSDBA' PASSWORD 'masterkey'
PAGE_SIZE 4096
DEFAULT CHARACTER SET ISO8859_1;

.... aqui continua, pero lo corto para no extenderme más

Para crear una nueva BBD, solo tienes que modificar la línea del "CREATE DATABASE", después ejecutas el script: FIBScript.Execute y listo, BBDD creada y sin datos.



Saludos