Firebird Autoincrement funktioniert nicht

[_Sebastian_]

Hallo.
Ich greife über IB-Komponenten von Turbodelphi auf einen kleine Firebird Datenbank zu.
Die Tabellen habe ich mit dem SQLManager für Firebird und Interbase erstellt. Link

Über Delphi öffne ich jetzt die Tabelle und möchte einen neuen Datensatz hinzufügen.
Das mache ich über .Append und dann weise ich die Felder per FieldByName zu.
Wenn ich jetzt über Post speichern möchte bekomme ich die Fehlermeldung 'Feld 'ID' muss einen Wert haben'. ID ist ein Integer Feld mit Autoincrement und mein Primary Feld.
Weise ich ID einen Wert zu, so wird dieser übernommen, bzw. wenn schon vorhanden gibs nen unique / Primary Fehler.

Eigentlich sollte er die ID ja automatisch setzten.

Hat da jemand ne Idee wo mein Fehler liegt?

Nen bischen code...

Delphi-Quellcode:

 data := dbHandler.TableCreate(getTableName); // hier wird die Tabelle geöffnet..
 data.Open;
 if not data.Locate('ID',ID,[]) then
  begin
    data.Append;
  end else
  begin
    data.Edit;
  end;

  SaveToDB(data); // hier werden die Felder gesetzt

  data.Post;
  FID := data.FieldByName('ID').AsInteger;
  data.Close;
  data.Free;

Im dbHandler habe ich die Database, Transaction Klassen und erzeuge dort die Query und Table klassen.

Delphi-Quellcode:

function TDBHandler.TableCreate(Tablename: String): TIBTable;
var table : tibtable;
begin
    table := TIBTable.Create(nil);;
    table.Transaction := FTransaction;
    table.Database := FDatabase;
    table.TableName := Tablename;
    result := table;
end;

[mkinzler]

Wie hast du den autoinc deklariert (Trigger)?
Wie sieht SaveToDB aus?

[_Sebastian_]

in SaveToDb werden je nach klasse die Daten in die Table geschrieben.
alle im Stiel von

Delphi-Quellcode:

  data.FieldByName('Bezeichnung').AsString := FBezeichnung;

Die AutoIncrement hat der SQL-Manager angelegt.
Ich habe für jede Tabelle einen Trigger und einen Generator

Trigger:

Delphi-Quellcode:

BEGIN
  IF (NEW.ID IS NULL) THEN
      NEW.ID = GEN_ID(CODECOCONTAINER_ID_GEN, 1);
END

Generator:
Im SQL-Manager hab ich unter Generator den namen und eine Value die ich ändern kann.
Dann nen Reiter DDL zum Generator mit diesem Inhalt:

Delphi-Quellcode:

CREATE GENERATOR CODECOCONTAINER_ID_GEN;

SET GENERATOR CODECOCONTAINER_ID_GEN TO 1;

Ich hab eben probiert im Trigger das If .. Then wegzulassen, aber dann bekomme ich eine Primary / unique violation. :(

[mkinzler]

Setzt du innerhalb von SaveToDb auch das Feld 'ID' ?

[_Sebastian_]

Nein.
Ich hab das zum Testen mal gemacht, aber dann übernimmt er meinen Wert (was ich ja nicht will) oder es gibt ne Fehlermeldung.

[edit: Die richtige Meldung]
Violation of PRIMARY or UNIQUE KEY contraint "INTEG_12" on table "CODECOMSG"

[mkinzler]

Das sagt ja eher, daß versuchst wird, einen schon vorhandene wert des PK zu setzen.

[_Sebastian_]

Ich glaube ich hab meinen Fehler gefunden.
Ich hab keinen Procedure Wrapper? erstellt.
Jedenfalls hab ich das eben nochmal mit einer neuen Tabelle probiert und damit hat das geklappt.

Ich danke für deine Hilfe..