Firebird Autoincrement

[NicoDE]

edit: Upz, habe UniDAC überlesen. Ich lasse das folgende für FireDAC trotzdem stehen

Interessant für dich sind "UpdateOptions.AutoIncFields" und optional "UpdateOptions.GeneratorName" (wenn der Before-Insert-Trigger sich nicht darum kümmert).
Wenn du mit persistenten Feldern arbeitest, dann sieh dir am Schlüsselfeld die Eigenschaft "AutoGenerateValue" an. Sollte auf "arAutoInc" stehen (mindestens "arDefault"), damit das Dataset sich nach der Aktion den Wert holt (intern mit RETURNING INTO, damit es sich nicht über den Schlüssel ("UpdateOptions.KeyFields" bzw. "ProviderFlags" [...,pfInWhere,pfInKey]), mit einer weiteren Abfrage, die aktuelle Zeile holen muss). Dazu muss am Feld "Required" natürlich auf "False" stehen.

[kretabiker]

Ich habe zwar nicht UNIDAC, aber IBDAC vom gleichen Hersteller, vielleicht gibt es da Ähnlichkeiten.

Es müssen in den Komponenten folgende Felder gesetzt sein (Beispiel für IBCQuery):
- Key Generator (auf den Namen des Generators in FB)
- Key Field (auf das Feld in der Tabelle, welches als "Autoinc" dient)
- evtl. noch den GeneratorMode wechseln von gmPost auf gmInsert

So klappt es bei mir mit Pseudo-Autoinc-Feldern

*** Ups, übersehen, dass du einen Trigger einsetzt. Meine Lösung funktioniert ohne Trigger. Vielleicht hat noch jemand eine Idee bezüglich des Triggers

[Neutral General]

Man muss bei den Komponenten nix einstellen.
Wenn Trigger und Generator korrekt sind reicht es einfach die ID nicht zu setzen und dann wird sie automatisch beim Insert generiert!

Zeig am besten mal den Trigger Code und stell sicher, dass der Trigger als BEFORE INSERT eingestellt und nicht deaktiviert ist.

[mrtwo12]

Moin,

ich meine, wenn mich meine grauen Zellen nicht trügen, es gibt ein Parameter unter Options->RequiredFields in der Table Komponente, die false sein soll.

War, bzw. ist es nicht so, dass der Fehler bei Feld notNull richtig ist wenn man nichts übergiebt, was ja hier richtig ist.

mfg
S.Simon

[scrat1979]

Also ich habe bisher bei den Komponenten noch NIEMALS einen Generator oder Trigger angegeben, sondern lediglich den Trigger in der Datenbank (OnBeforeInsert oder OnBeforePost - weiß ich nicht genau) mit Hilfe eines DB-Managers eingerichtet und gesetzt. Bisher hat alles prima beim Insert über die Komponenten funktioniert... Liegt der Fehler vielleicht doch an einem nicht ausgelösten Trigger?! (Verwende IBDAC und UniDAC von DevArt).

[brunoM]

Zitat von Neutral General:

Man muss bei den Komponenten nix einstellen.
Wenn Trigger und Generator korrekt sind reicht es einfach die ID nicht zu setzen und dann wird sie automatisch beim Insert generiert!

Zeig am besten mal den Trigger Code und stell sicher, dass der Trigger als BEFORE INSERT eingestellt und nicht deaktiviert ist.

Nachfolgend der Code der durch SQl-Manager generiert worden ist - und der auch intern im SQL-Manager funktioniert:

SET TERM ^ ;

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

SET TERM ; ^

[brunoM]

Ich bin noch nicht weiter aber bereits herzlichen Dank für die zahlreichen Antworten!

[nahpets]

Wie ist denn ID in der Datenbank definiert? Als Not Null?
Wenn das von der Datenbank vor dem Ausführen des Triggers geprüft wird, hast Du ohne Angabe einer ID keine Chance.

Ggfls. dashier ändern: IF (NEW.ID IS NULL) THEN in IF (NEW.ID IS NULL) or (NEW.ID = -1) THEN und dann als ID -1 übergeben.

Bei mir funktionieren Tabellen-, Generator- und Triggerdefinitionen:

SQL-Code:

CREATE TABLE TEXTVERWALTUNG
(
  TEXTVERWALTUNGID Integer,
  ...
);

CREATE GENERATOR GEN_TEXTVERWALTUNGID;

SET TERM ^ ;
CREATE TRIGGER TR_TEXTVERWALTUNGID_BI FOR TEXTVERWALTUNG ACTIVE
BEFORE INSERT POSITION 0
AS BEGIN
  if (NEW.TextverwaltungID is NULL) then NEW.TextverwaltungID = GEN_ID(gen_TextverwaltungID, 1);
END^
SET TERM ; ^

[Neutral General]

Zitat von nahpets:

Wie ist denn ID in der Datenbank definiert? Als Not Null?
Wenn das von der Datenbank vor dem Ausführen des Triggers geprüft wird, hast Du ohne Angabe einer ID keine Chance.

Wird es aber nicht.

[DataCool]

Hi Bruno,

ich verwende genau die gleiche Konstellation in einem Projekt (Firebird + UniDac).

Ich habe in der Firebird DB auch einen Generator und einen Trigger(Before Insert):

Code:

         if  ( (new.id is null) OR (NEW.ID = 0) ) then
             new.ID = GEN_ID(GEN_IDPOOL,1);

Jetzt gibt es 2 Varianten die funktionieren sollten:

1. Im Objekt-Inspektor, beim dem PK Field die Property "Required" auf false setzen

2. Im Delphi-Code im Event im Event "OnBeforePost" das Feld selber befüllen über den Generator:

Delphi-Quellcode:

procedure TfrmKonzepte.tbl_DataBeforePost(DataSet: TDataSet);
var iID : Int64;
begin
  inherited;
  // Neuer Datensatz ?
  if DataSet.State = dsInsert then begin
    // neue ID selber ermitteln und setzen dazu Stored procedure verwenden,
    // die den internen Generator benutzt
    iID := dmGlobalDB.GetGeneratorValueFromSP(dmGlobalDB.DBCon, cSPGetPrimaryKey, 0);
    if iID > 0 then // erfolgreich die neue PK-ID ermittelt diese dann setzen
      tbl_DataID.AsLargeInt := iID;
  end;
end;

function TdmGlobalDB.GetGeneratorValueFromSP(AConnection: TUniConnection;
                                             const AStoredProcedureName: string;
                                             iDefault: Int64): Int64;
var Qry : TUniQuery;
begin
  Result := iDefault;
  Qry := TUniQuery.Create(nil);
  try
    Qry.Connection := AConnection;
    Qry.SQL.Text := 'SELECT * FROM '+AStoredProcedureName;
    Qry.Active := True;
    if not Qry.Eof then begin
      if not Qry.Fields[0].IsNull then
        Result := Qry.Fields[0].AsLargeInt;
    end;
    Qry.Active := False;
  finally
    FreeAndNil(Qry);
  end;
end;

Ich selber verwende Variante 2.

Gretes Data