Criacao de banco de dados em run-time

25/11/2004

0

bom dia, sou iniciante em FireBird e Delphi, programo em C++ e gostaria de saber como faço para executar um script em um programa feito
em delphi, exemplo do script:

SET SQL DIALECT 3;

CREATE DATABASE ´C:\database\SuperBox FB\vendas.fb´ USER ´SYSDBA´ PASSWORD ´masterkey´;

CREATE DOMAIN T_YESNO AS CHAR(1) DEFAULT ´N´ CHECK((VALUE IS NULL) OR (VALUE IN (´N´,´Y´)));

CREATE TABLE ´ACADPROD´
(
´CODIGO´ VARCHAR(13) CHARACTER SET ISO8859_1 NOT NULL,
´GRUPO´ VARCHAR(6) CHARACTER SET ISO8859_1,
´FORNECEDOR´ VARCHAR(6) CHARACTER SET ISO8859_1,
´NOME´ VARCHAR(70) CHARACTER SET ISO8859_1,
´REFERENCIA´ VARCHAR(25) CHARACTER SET ISO8859_1,
´UNIDADE´ VARCHAR(3) CHARACTER SET ISO8859_1,
´SALDO_INI´ NUMERIC(10,2),
´BALANCA´ T_YESNO
);

ALTER TABLE ´ACADPROD´ ADD CONSTRAINT ´ACADPROD_PRIMARY´ PRIMARY KEY (´CODIGO´);
CREATE INDEX ´UNIDADE´ ON ´ACADPROD´ ´UNIDADE´;

COMMIT WORK;
SET AUTODDL OFF;
SET TERM^;

no ibexpert funciona perfeitamente, mas eu preciso fazer um programa que faça o mesmo que no
ibexpert, ah eu notei que no ibexpert nao é necessario conectar o banco de dados. ate porque eu vou
cria-lo no script.
obrigada a todos pela ajuda.


Katiucy_gyn

Katiucy_gyn

Responder

Posts

25/11/2004

Gandalf.nho

Use o componente IBScript da paleta IBX


Responder

25/11/2004

Katiucy_gyn

muito obrigada gandalf.nho, sua dica foi de grande ajuda. so troquei o IBScript pelo MDOScript, funcionou perfeitamente.


Responder

Assista grátis a nossa aula inaugural

Assitir aula

Saiba por que programar é uma questão de
sobrevivência e como aprender sem riscos

Assistir agora

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar