Hallo Zusammen!
Ich probiere in meinem Delphi-Programm eine neue Tabelle zu erstellen innerhalb der Datei EMPLOYEE.GDB. Hierzu benutze ich TIBQuery. Im
SQL-property habe ich den später beschriebenen
SQL-code erfasst. Ich probiere dieses Programm von einem Client her aus zu führen. Leider ergibt dieser Code den Fehler "Database not assigned". Meine Frage: Kann ich ein solches Programm überhaupt vom Client ausführen und so ja was vergesse ich dann?
[delphi]var
SQLBITSFrm1 : TSQLBITSFrm1;
BITSDB : TIBDataBase;
BITSTR : TIBTransaction;
BITSTAB : TIBTable;
BIndex : TIndexOptions;
procedure TSQLBITSFrm1.BITSDBLogin(Database: TIBDatabase;
LoginParams: TStrings);
var
UNameStr : String[20];
PassWStr : String[20];
begin
UNameStr:='SYSDBA';
PassWStr:='masterkey';
LoginParams.Values['USER_NAME']:=UNameStr;
LoginParams.Values['PASSWORD'] :=PassWStr;
end;
procedure TSQLBITSFrm1.BITSSQL;
begin
BITSDB :=TIBDataBase.Create(Self);
BITSDB.OnLogin :=BITSDBLogin;
BITSDB.DatabaseName :='\\LCServer\D:\BitsSQL\examples\EMPLOYEE.GDB';
BITSDB.Connected :=True;
BITSTR :=TIBTransaction.Create(Self);
BITSTR.DefaultDatabase:=BITSDB;
BITSTR.Active :=True;
With BSQL do
begin
SQL.Clear;
SQL.Add
( ' CREATE DOMAIN STR1 AS STRING(1) '
+ ' CREATE DOMAIN STR4 AS STRING(4) '
+ ' CREATE TABLE BSUSER ( '
+ ' GB_SysNr STR4 NOT NULL UNIQUE, '
+ ' GB_Name STRING(20), '
+ ' GB_Gehm STRING(10), '
+ ' GB_Equiv STR4, '
+ ' GB_GGrupp STR4, '
+ ' GB_Sprache STR1, '
+ ' GB_SMod STR4, '
+ ' GB_Typus STR1, '
+ ' PRIMARY KEY (GB_SysNr)); ');
ExecSQL;
end;
end;