[firebase-br] RES: Como criar um Banco de Dados FB no delphi em tempo de execução

[Francisco José Bononi]

Segue exemplo com Delphi e o componente IBX:

 If not FileExists('c:\programa\banco.gdb') then
  begin
  IBDataBase1.Connected := False;
  IBDataBase1.DatabaseName := 'c:\programa\banco.gdb';
  IBDataBase1.Params.Clear;
  IBDataBase1.Params.Add('user "SYSDBA"');
  IBDataBase1.Params.Add('password "masterkey"');
  IBDataBase1.Params.Add('page_size 4096');
  IBDataBase1.SQLDialect := 3;
  IBDataBase1.CreateDatabase;
  end;

Chico.

________________________________
Esta mensagem (incluindo qualquer anexo) é confidencial, de propriedade de Auditec Contabilidade e Assessoria LTDA EPP e destinada somente às pessoas para as quais foi endereçada, doravante denominadas pessoas autorizadas. O recebimento desta mensagem por qualquer pessoa não autorizada não implica qualquer perda de confidencialidade do seu conteúdo. Caso a presente mensagem tenha sido recebida por engano, por favor, devolva a mesma imediatamente ao seu remetente e a elimine completamente do seu sistema. A disseminação, encaminhamento, impressão, cópia ou utilização, sob qualquer forma, do todo ou parte desta mensagem ou dos arquivos a ela anexados por qualquer pessoa não autorizada são expressamente proibidos.

This message (including any attachments) contains confidential information, that belongs to Auditec Contabilidade e Assessoria LTDA EPP and intended only for the people indicated in the electronic address, hereinafter "authorized people". The receipt of this message by any person who is not indicated in the electronic address does not result in a waiver of the confidentiality treatment that shall be provided to its contents. If you have received this message by mistake, please, immediately return it to its sender and entirely eliminate it from your system. Any disclosure, distribution, printing, copying or the use, in any way, of this message or the files attached to it by any unauthorized person is strictly prohibited.