Hi,
Wie kann ich am besten eine InterBase Tabelle mit ADO zur Laufzeit anlegen. Ich verwende die ADOExpress Komponenten und Delphi 5 Prof. Die Datenbank hab ich schon hinbekommen. Wenn ich nun über ADOQuery eine Tabelle erstellen will erhalte ich immer die Fehlermeldung "SQL Properties missing".
Ich habs so versucht:
with ADOQuery1 do
begin
try
ConnectionString := 'Provider=SIBPROVI.SIBProvider;'
+ 'Password=' + EditPassword.Text + ';'
+ 'User ID=' + EditUserName.Text + ';'
+ 'Data Source='
+ EditDBPAth.Text + '.gdb;'
+ 'Location=' + verz + ';'
+ 'Extended Properties="";'
+ 'Connect Timeout=0;'
+ 'Persist Encrypted=True;'
+ 'Encrypt Password=True;'
+ 'Mask Password=True;'
+ 'Cache Authentication=True;'
+ 'Persist Security Info=True;'
+ 'CHARACTER SET=ISO8859_1;'
+ 'ROLE=""';
// Verbindung zur neuen Datenbank herstellen
active := true;
// TQuery-Instanz erstellt die neue Tabelle
with SQL do
begin
Clear;
Add('CREATE TABLE testtable ');
Add('(KundenID INTEGER NOT NULL UNIQUE,');
Add('Vorname CHAR(15), Nachname CHAR(30) NOT NULL');
execSQL
end;
ich wäre froh, wenn mir jemand da ganz schnell helfen könnte.
Gruß Elke
Wie kann ich am besten eine InterBase Tabelle mit ADO zur Laufzeit anlegen. Ich verwende die ADOExpress Komponenten und Delphi 5 Prof. Die Datenbank hab ich schon hinbekommen. Wenn ich nun über ADOQuery eine Tabelle erstellen will erhalte ich immer die Fehlermeldung "SQL Properties missing".
Ich habs so versucht:
with ADOQuery1 do
begin
try
ConnectionString := 'Provider=SIBPROVI.SIBProvider;'
+ 'Password=' + EditPassword.Text + ';'
+ 'User ID=' + EditUserName.Text + ';'
+ 'Data Source='
+ EditDBPAth.Text + '.gdb;'
+ 'Location=' + verz + ';'
+ 'Extended Properties="";'
+ 'Connect Timeout=0;'
+ 'Persist Encrypted=True;'
+ 'Encrypt Password=True;'
+ 'Mask Password=True;'
+ 'Cache Authentication=True;'
+ 'Persist Security Info=True;'
+ 'CHARACTER SET=ISO8859_1;'
+ 'ROLE=""';
// Verbindung zur neuen Datenbank herstellen
active := true;
// TQuery-Instanz erstellt die neue Tabelle
with SQL do
begin
Clear;
Add('CREATE TABLE testtable ');
Add('(KundenID INTEGER NOT NULL UNIQUE,');
Add('Vorname CHAR(15), Nachname CHAR(30) NOT NULL');
execSQL
end;
ich wäre froh, wenn mir jemand da ganz schnell helfen könnte.
Gruß Elke
Comment