Firebird embedded

[Ghostwalker]

Tja..oder per API direkt

Code:

Procedure CreateDB
var
  fdbname : STRING;
  params  : STRING;
  SQLDialect: Integer;
  tr_handle : TISC_TR_HANDLE;
  fhandle : TISC_DB_HANDLE;
  st  : PISC_STATUS;
begin
  FDBNAME := 'h:\firebird\test2\test.fdb';
  Params := 'USER "SYSDBA" PASSWORD "masterkey" PAGE_SIZE 4096';
  SQLDialect := 3;
  st := NIL;
  tr_handle := 0;
  fhandle := 0;
  isc_dsql_execute_immediate(st, @FHandle, @tr_handle, 0,
                               PChar('CREATE DATABASE ''' + FDBName + ''' ' + {do not localize}
                               Params), SQLDialect, nil);
end;