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