![]() |
Datenbank: Firebird • Version: 2.5 • Zugriff über: Unidac
Firebird Autoincrement
Hallo zusammen
Ich bin daran von AbsoluteDatabase auf Firebird umzusteigen. Firebird ist Neuland und ich habe ein Problem mit Autoincrement-Feldern bzw. mit dem Import von Daten mittels Delphi. Von AbsoluteDB gewohnt: tabelle.Insert; tabelle.Fieldbyname('yx').AsString :='Text....'; tabelle.Fieldbyname('yx').AsString :='Text....'; tabelle.Post. Soweit so gut - das Autoincrement-Feld wird dabei automatisch erhöt und der Wert mitgespeichert. Dass es bei Firebird kein Autoincrement-Feld gibt weis ich - habe deshalb auch einen Generator und einen Trigger angelegt bzw. das hat SQL-Manager erledigt. Erfasse ich Daten innerhalb des SQL-Managers funktioniert die Zählung des Autoincrement-Feldes. Versuche ich jedoch über Delphi Daten analog der oben beschriebenen Vorgehensweise zu erfassen, erscheint die Meldung Feld "id" (das besagte Autoincrement-Feld) muss einen Wert haben - scheinbar muss ich da noch etwas unternehmen dass ein Wert vom Generator geliefert und in das id-Feld eingetragen wird. Ich benutze die Unidac-Komponenten von Devart Leider komme ich nicht weiter - aber vielleicht hat ja hier jemand einen Tipp, jedenfalls schon Danke im Voraus für eure Hilfe. Gruss Bruno |
AW: Firebird Autoincrement
Moin...:P
Prinzipiell geht das auch. :P Zeige mal den Trigger und den Generator. z.B. Trigger mit Generator (id_gen):
Delphi-Quellcode:
begin
if (new.id is null) then new.id = gen_id(id_gen,1); end |
AW: Firebird Autoincrement
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. |
AW: Firebird Autoincrement
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 |
AW: Firebird Autoincrement
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. |
AW: Firebird Autoincrement
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 |
AW: Firebird Autoincrement
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).
|
AW: Firebird Autoincrement
Zitat:
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 ; ^ |
AW: Firebird Autoincrement
Ich bin noch nicht weiter aber bereits herzlichen Dank für die zahlreichen Antworten!
|
AW: Firebird Autoincrement
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:
Delphi-Quellcode:
in
IF (NEW.ID IS NULL) THEN
Delphi-Quellcode:
und dann als ID -1 übergeben.
IF (NEW.ID IS NULL) or (NEW.ID = -1) THEN
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 ; ^ |
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:12 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz