Ich habe in einer Prozedur folgendes geschrieben:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
| if Linked then
begin
if trans.InTransaction then
trans.Commit;
trans.StartTransaction;
if not query.Prepared then
query.Prepare;
query.SQL := SQLText;
query.ExecSQL;
Trans.Commit;
Result := True;
end
else
Result := False; |
Linked überprüft u.a., ob meine IBDatabase verbunden ist.
SQLText ist eine Übergabe-Variable, die folgenden Wert hat:
Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
| CREATE TABLE "OLM15_TEST"
(
"ID" INTEGER NOT NULL,
"NAME" TSTR25,
"VORNAME" TSTR25,
"STRASSE" TSTR30,
"PLZ" TPLZ,
"ORT" TSTR30,
"EMAIL" TSTR30,
CONSTRAINT "PK_OLM15_TEST" PRIMARY KEY ("ID")
); |
Wenn ich dieses Script direkt ausführe (IBConsole), dann funktioniert es
.
Nur wenn ich das mit obiger Routine mache, dann sagt er Empty SQL-Statement. Das es aber nicht leer ist habe ich überprüft: Wenn ich noch folgenden Befehl hinzufüge (am Ende):
Quelltext
1:
| CREATE GENERATOR "GEN_OLM15_Test"; |
..., dann sagt er ERROR: unknown "CREATE" in line 14 Pos -1 (oder so ähnlich).
Was soll das denn ?
Wer kann mir helfen ?
Danke schonmal.
Viele Grüsse.
P.S.: Für schnelle Hilfe wäre ich sehr dankbar
(wieder mal)
.