extrair Metadados - interbase

Delphi

03/04/2004

No aplicativo ´EMS interbase/Firebird Manager´ tem uma opção ´extrair Metadados´
esse processo salva em um arquivo SQL todas as informações da base.

como posso fazer pelo delphi ele criar esse arquivo em formato *.sql
e depois como atualizar atraves desse arquivo

pelo que verifiquei atualizar/inserir dados dessa forma é bem mais rapido



<<<<< Código gerado pelo aplicativo: >>>>>

SET SQL DIALECT 3;

CREATE DATABASE ´C:\Sis-Transportes IB\Tabelas\CONTROLE.gdb´
USER ´SYSDBA´ PASSWORD ´masterkey´
PAGE_SIZE 1024
DEFAULT CHARACTER SET WIN1251;

CREATE TABLE ESPECIE (
ESPECIE VARCHAR (15) CHARACTER SET WIN1251 NOT NULL COLLATE WIN1251,
CODFILIAL CHAR (3) CHARACTER SET WIN1251 COLLATE WIN1251);

CREATE TABLE SEGURADORA (
SEGURADORA VARCHAR (40) CHARACTER SET WIN1251 NOT NULL COLLATE WIN1251,
APOLICE CHAR (7) CHARACTER SET WIN1251 COLLATE WIN1251,
FONE CHAR (16) CHARACTER SET WIN1251 COLLATE WIN1251,
PERC FLOAT,
CORRETOR VARCHAR (40) CHARACTER SET WIN1251 COLLATE WIN1251,
CELULAR CHAR (16) CHARACTER SET WIN1251 COLLATE WIN1251,
DATINICIO DATE,
DATFINAL DATE);


INSERT INTO ESPECIE (ESPECIE, CODFILIAL) VALUES (´BIG-BEG´, NULL);
INSERT INTO ESPECIE (ESPECIE, CODFILIAL) VALUES (´FARDOS´, NULL);
...

COMMIT WORK;

INSERT INTO SEGURADORA (SEGURADORA, APOLICE, FONE, PERC, CORRETOR, CELULAR, DATINICIO, DATFINAL) VALUES (´SUL AMERICA SEGUROS´, NULL, NULL, NULL, NULL, NULL, NULL, NULL);

COMMIT WORK;


/* Primary keys definition */

ALTER TABLE ESPECIE ADD CONSTRAINT PK_ESPECIE PRIMARY KEY (ESPECIE);
ALTER TABLE SEGURADORA ADD CONSTRAINT PK_SEGURADORA PRIMARY KEY (SEGURADORA);


Valdemar_d

Valdemar_d

Curtidas 0
POSTAR