Trigger zur Laufzeit Syntax ?

[haentschman]

Hallo alle miteinander...

nach Stunden des Suchens und Probierens möchte ich Euch mal wieder belästigen :-D

Ich möchte zur Laufzeit einen Trigger in die Tabelle eintragen.

- die Syntax des Triggers in der Tabelle ist klar...
- der Generator ist erstellt...
- die Tabelle ist erstellt

so soll der Trigger in der Tabelle ankommen...

Delphi-Quellcode:

create trigger ANLAGEN_BI for ANLAGEN active before INSERT Position 0
 as 
   begin
     if (new.id is null) then
       new.id = gen_id(idfeld_gen,1)
   end

und damit habe ich es aus der Anwendung heraus versucht...

Delphi-Quellcode:

DMDB.ZQueryDiv.SQL.Text:= 'create trigger ANLAGEN_BI for ANLAGEN active before INSERT Position 0 as ';
DMDB.ZQueryDiv.SQL.Add('begin ');
DMDB.ZQueryDiv.SQL.Add('if (new.id is null) then ');
DMDB.ZQueryDiv.SQL.Add('new.id = gen_id(idfeld_gen,1) ');
DMDB.ZQueryDiv.SQL.Add('end');
DMDB.ZQueryDiv.ExecSQL;

...der Compiler meckert immer über das End in Zeile 5 :gruebel:

...viel kann es nicht sein... aber ich habe schon diverse Varianten probiert wie QuotedStr etc.

Danke für Eure Hilfe...

[haentschman]

...warum komme ich immer erst darauf, wenn ich schon gepostet habe... :oops:

... in meinem Code fehlte ein ';' in Zeile 4 :wall:

Delphi-Quellcode:

DMDB.ZQueryDiv.SQL.Text:= 'create trigger ANLAGEN_BI for ANLAGEN active before INSERT Position 0 as ';
DMDB.ZQueryDiv.SQL.Add('begin ');
DMDB.ZQueryDiv.SQL.Add('if (new.id is null) then ');
DMDB.ZQueryDiv.SQL.Add('new.id = gen_id(idfeld_gen,1); ');
DMDB.ZQueryDiv.SQL.Add('end');
DMDB.ZQueryDiv.ExecSQL;