Fórum Criar BD Firebird pelo sistema #327568

olá amigo,
tenho aqui uma rotina pra criar um banco de dados Firebird,
espero que possa ajuda-lo:



uma braço !!!!

Valeu Fabiano,

mas eu ainda preciso saber o caminho do security.fdb pois a sua funcao tambem ira precisar estar conectada a um BD para poder criar outro BD. Este que é o problema.
Em resumo, só preciso pegar o caminho de instalação do FB no registro do sistema. Depois fica facil, é só conectar a ele e rodar o script de criação do BD que eu quero.

Te mais.

Olá, testei a função do colega acima e deu certo, uso Delphi 7 e Fibebird 1.5. Tente usar esta abaixo, coloque um componente IBDatabase, não precisa mudar nada, coloque um button e no evento do botão:

procedure TForm1.Button1Click(Sender: TObject);
begin

with IBDatabase1 do
begin
SQLDialect := 3;
DatabaseName := ´Localhost:C:\DADOS.FDB´;
Params.Clear;
Params.Add(´USER ´´SYSDBA´´´);
Params.Add(´PASSWORD ´´masterkey´´´);
Params.Add(´PAGE_SIZE 4096´);
Params.Add(´DEFAULT CHARACTER SET ISO8859_1´);
try
CreateDatabase;
except
ShowMessage(´Deu porco !´);
end;
end;

end;

Se você quiser criar as tabelas, coloque um IBQuery e um IBTransaction, não precisa configurar nada pos configurei em tempo de execução, coloquei um novo button e no evento:

procedure TForm1.Button2Click(Sender: TObject);
begin

IBTransaction1.DefaultDatabase:= IBDatabase1;
IBQuery1.Database:= IBDatabase1;
IBQuery1.Transaction:= IBTransaction1;

with IBQuery1 do
begin
SQL.Clear;
SQL.Add(´CREATE TABLE DINHEIRO (LANCAMENTO CHAR(10) NOT NULL,OBSERVACAO VARCHAR(20),DATA DATE);´);
try
ExecSQL;
except
ShowMessage(´Deu porco !´);
end;
end;

end;

Faltou criar um índice, coloquei um button e no evento:

procedure TForm1.Button3Click(Sender: TObject);
begin

with IBQuery1 do
begin
SQL.Clear;
SQL.Add(´ALTER TABLE DINHEIRO ADD CONSTRAINT PK_LANCAMENTOS PRIMARY KEY (LANCAMENTO);´);
try
ExecSQL;
except
ShowMessage(´Deu porco !´);
end;
end;

end;

Testei as tres dicas e aqui funcionou(Delphi 7 + Firebird 1.5), coloquei cada coisa em um Button, assim fica mais fácil para os outros usuários entenderem, poderia colocar em um evento OnShow por exemplo, mas antes era bor ver se o DB e/ou Tabelas existem mas, para isso, teria que tentar se conectar a ele e não simplesmente ver se o arquivo existe.

Espero ter ajudado, sou iniciante e conhecí o Firebird a apenas duas semanas através da Internet, basicamene só sei fazer isso por enquanto, estou usando o DB Access mas queria trabalhar com o FB; o pouco que aprendo, tento colocar no fórum para ajudar outros como eu.

Valeu !

:D