1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:

uses DBLogDlg;

procedure TForm1.ButtonClick(Sender: TObject);
var
  s : string;
begin
  s := 'CREATE TABLE STEUER '
       + '('
       + '  ST_CODE  INTEGER NOT NULL, '
       + '  ST_PROZENT  DOUBLE PRECISION, '
       + '  ST_AB_CODE  VARCHAR(4) CHARACTER SET ISO8859_1, '
       + ' PRIMARY KEY (ST_CODE) '
       + ');' ;

  //zur Datenbank verbinden
  IBD.Connected := true;
  //neue Transaktion starten
  if not IBT.InTransaction then
    IBT.StartTransaction;
  
  //SQL-String setzen
  IBSQL.SQL.Clear;
  IBSQL.SQL.Add(s);
  //SQL Anweisung ausführen
  IBSQL.ExecQuery;

  //Änderungen in DB speichern 
  IBT.Commit;
  
  IBD.Connected := false;
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

//Soll eine neue Datenbank erstellt werden?
IBDatabase.DatabaseName:=EDserver.Text+':'+EDpath.Text;
IBDatabase.Params.Clear;
IBDatabase.Params.Add('USER "'+userED.Text+'"');
IBDatabase.Params.Add('PASSWORD "'+pwED.Text+'"');
IBDatabase.Params.Add('PAGE_SIZE 4096');
IBDatabase.SQLDialect:=3;
 try
  IBDatabase.CreateDatabase;
  //Wenn Neu, dann SQL-Script ausführen
  IBDatabase.Connected:=True;
  IBTransaction2.Active:=True;
  SQLScript:=TResourceStream.Create(hInstance,'SQLScript',RT_RCDATA);
  Script:=TStringList.Create;
  Script.LoadFromStream(SQLScript);
  for i:=0 to Script.Count-1 do begin
       if (Script.Strings[i]='') then Continue;
       if (Script.Strings[i][1]<>' ') AND (Script.Strings[i][1]<>'/') then begin
           IBSQL1.SQL.Text:=Script.Strings[i];
           IBSQL1..ExecQuery;
           end;
       end;
  finally IBDatabase.Connected:=False;end;