Fórum Como criar BD firebird em tempo de execuçao #324316

var DataBase : TIBDatabase;
begin
  DataBase :=  TIBDatabase.Create( nil );
    try
      with DataBase do
        begin
          DatabaseName := ´c:\TESTE.GDB´;
          SQLDialect   := 3;
          Params.Clear;
          Params.Add(´USER ´´SYSDBA´´´);
          Params.Add(´PASSWORD ´´masterkey´´´);
          Params.Add(´PAGE_SIZE 4096´);
          Params.Add(´DEFAULT CHARACTER SET ISO8859_1´);
          CreateDatabase;
        end; // WITH CriaBanco DO
    finally
      FreeAndNil( DataBase );
    end;
end; // procedure CreateDataBase(const DataBaseName: String);

with query do 
  begin
    close;
    sql.clear;
    sql.add( ´Instrução sql (create table, create domain, etc ...)´ );
    ExecSql;
  end;