Bekomme kein INSERT mit FB und IBDAC hin!?!

[scrat1979]

Hallo,

ich werd' noch verrückt. Folgende Anweisung wird mit einem Fehler abgewiesen (Token unknown). Hab auch schon
TIBCSQL durch TIBCQuery ersetzt, gleiches Problem... Exakt die gleiche Abfrage funktioniert unter einer Firebird-GUI einwandfrei.
Die Schleife (to 31) sowie das entsprechende Datum habe ich zu Demonstrationszwecken in einen festen Wert geändert.

Delphi-Quellcode:

procedure TPlanner.PCreateMonthInDB(Month: Byte; Year: Integer);
VAR TMPSQL : TIBCSQL;
    i      : Integer;
begin
  (* Kalender in Datenbank erstellen *)
  TMPSQL := TIBCSQL.Create(nil);

  for I := 1 to 31 do begin
    TMPSQL.SQL.Add('INSERT INTO TBLCALENDAR(ISHOLIDAY,DATUM) VALUES(0,''13.07.2010'');');
  end;
  TMPSQL.AutoCommit := True;
  TMPSQL.Execute;

   (* Abfrage freigeben *)
  TMPSQL.Free;
end;

Meine Tabelle sieht so aus:

SQL-Code:

CREATE TABLE TBLCALENDAR (
  ID INTEGER NOT NULL,
  DATUM DATE NOT NULL,
  ANWESEND SMALLINT,
  BEREITSCHAFT SMALLINT,
  NOTARZT SMALLINT,
  ISHOLIDAY SMALLINT DEFAULT 0 NOT NULL);


ALTER TABLE TBLCALENDAR ADD PRIMARY KEY (ID);


SET TERM ^ ;

CREATE TRIGGER BI_TBLCALENDAR_ID FOR TBLCALENDAR
ACTIVE BEFORE INSERT
POSITION 0
AS
BEGIN
  IF (NEW.ID IS NULL) THEN
      NEW.ID = GEN_ID(TBLCALENDAR_ID_GEN, 1);
END^

SET TERM ; ^

Ich greife über Firebird embedded darauf zu, Verbindung und auch Abfragen funktionieren tadellos

Danke für Eure Hilfe!

SCRaT