Hallo,
diese Unit erstellt eine Datenbank auf einem Interbase-Server zur Laufzeit des Programms. Es wird nicht mehr die IBConsole gebraucht. Dazu kann man im Memo noch ein SQL-Skript ablaufen lassen zum erstellen der Tabellen. Probiert es einfach aus.
Geprüft mit Delphi 5 Enterprise und der der Version 5.x von Zeos.
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: 32: 33: 34: 35: 36: 37: 38: 39: 40: 41: 42: 43: 44: 45: 46: 47: 48: 49: 50: 51: 52: 53: 54: 55: 56: 57: 58: 59: 60: 61: 62: 63: 64: 65: 66: 67: 68: 69: 70:
| unit Unit1;
interface
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ZTransact, ZIbSqlTr, DB, ZQuery, ZIbSqlQuery, ZConnect, ZIbSqlCon;
type TForm1 = class(TForm) Button1: TButton; Memo1: TMemo; Button2: TButton; ZIbSqlQuery1: TZIbSqlQuery; ZIbSqlTransact1: TZIbSqlTransact; ZIbSqlDatabase1: TZIbSqlDatabase; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); private public end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject); begin ZIbSqlDatabase1.Database := '<<Pfad zu Datenbank>>'; ZIbSqlDatabase1.Host := 'testserver'; ZIbSqlDatabase1.Password := 'masterkey'; ZIbSqlDatabase1.Login := 'SYSDBA'; ZIbSqlDatabase1.CreateDatabase(''); end;
procedure TForm1.Button2Click(Sender: TObject); begin ZIbSqlDatabase1.Database := '<<Pfad zu Datenbank>>'; ZIbSqlDatabase1.Host := 'testserver'; ZIbSqlDatabase1.Password := 'masterkey'; ZIbSqlDatabase1.Login := 'SYSDBA'; ZIbSqlQuery1.SQL.Clear; ZIbSqlQuery1.SQL.AddStrings(memo1.Lines); ZIbSqlQuery1.ExecSQL; end;
procedure TForm1.Button3Click(Sender: TObject); begin ZIbSqlDatabase1.Database := '<<Pfad zu Datenbank>>'; ZIbSqlDatabase1.Host := 'testserver'; ZIbSqlDatabase1.Password := 'masterkey'; ZIbSqlDatabase1.Login := 'SYSDBA'; ZIbSqlDatabase1.DropDatabase; end;
end. |
<<Pfad zur Datenbank>> könnt Ihr als Edit-Text machen oder im Code hart verdrahten funktioniert beides.
Moderiert von jasocul: Delphi-Tags korrigiert.