Interbase: Generierte ID ermitteln ?

[Gast]

Nun... Lemmy ... ob es vorher oder nachher ist... ins hier irrelevant... denke ich... Eine SELECT Anweisung an dieser Stelle... bringt hier immer Gefahren (was wenn zwei User gleichzeitig diese Abfrage weg-schicken?)...In meinen Augen ist Deine Storage-Prozedure die richtige Lösung...

Gruß

Paul Jr.

[mschaefer]

Hallo Paul, hallo Lemmy

bin wirklch begeistert ! An dem Ding beisse ich mir schon einige
Zeit die Zähne aus. Damit habt Ihr glatt die Borland-Interbase Newsgroup
in den Schatten gestellt. Die Procedure von Lemmy ist sicherlich
der eleganteste Weg. Da ich nun mit den Zeos-Komponenten auf Interbase
(genaugenommen Firebird) zugreife mag ich nochmal auf die vorweggenommene ID-Abfrage kommen.

Hiermit könnte ich im Ereignis beforePost der Query mit einer temporären
Querykomponente ein automatisch generierte SQL abschicken, die mir den Generator liefert, den ich dann ins Primarykey-Feld der Hauptquery eintragen kann. (da kann ich ja glatt noch ´ne Komponente draus basteln...)


Wenn ich das richtig verstanden habe sollte es auch kein Problem machen,
wenn zwei zur selben Zeit auf die Gerneratroabfrage zugreifen. Irgendwie wird eine zuerst bearbeitet, die Id erhöht und jeder bekommt seine Eigene. Oder hab ich was übersehen ?


Viele Grüße // Martin

[Lemmy]

Zitat:

Zitat von Paul Jr.

Eine SELECT Anweisung an dieser Stelle... bringt hier immer Gefahren (was wenn zwei User gleichzeitig diese Abfrage weg-schicken?)

Nein, ganz sicher nicht!
1. Die Generatoren in IB/FB sind Transaktionsunabhängig
2. Eine Select wird immer nur in ihrer Transaktion ausgeführt!

d.h. Selbst wenn 2 User gleichzeitig diese Select ausführen, erhalten beide einen eindeutigen Generator-Wert, da dieser die Anfragen nacheinander ausführt!

Letztendlich mache ich in der SP doch genau dasselbe: Ich selektiere eine ID und verwende die anschließend in einer InsertSQL. Selbst wenn 100 User diese SP gleichzeitig ausführen kann da nix schiefgehen....

Grüße
Lemmy

[Gast]

... da gebe ich mich geschlagen... 8)

Bei mir habe ich jetzt folgende Prozedur gefunden (ist eine nette Ergänzung zu unserem Thema)... wohl gemerkt die Spalte Bezeichnung ist hier NOT NULL und Eindeutig...

Code:

SET TERM ^ ;
CREATE PROCEDURE INSERT_TABLE1 (
   XBEZEICHNUNG VARCHAR(50)
) RETURNS (
   XID INTEGER
) AS
BEGIN
   xID = GEN_ID(TABLE1_ID_GEN, 1);
   INSERT INTO TABLE1 (ID
   , BEZEICHNUNG)
   VALUES(:xID
   , :xBEZEICHNUNG);
   WHEN SqlCode -803 DO
   BEGIN
      SELECT MAX(ID) FROM TABLE1
      WHERE
      (BEZEICHNUNG = :xBEZEICHNUNG)
      Into :xID;
      SUSPEND;
   END
END^

Gruß

Paul Jr.

[Gast]

Hallo Martin :D ,

solltest Du Probleme haben mit Verwendung dieses Konstruktes... dann Frage ganz einfach weiter..., da es ist schon wichtig für Dich bzw. für Deine Anwendung... die Art und Weise wie Du es anbindest... bzw. wo...

Als erstes solltest Du zuerst diese Prozedur überhaupt aus Deinem Programm ansprechen... und dann überlege wie Du diese einsetzen wirst...


Gruß

Paul Jr.

[Ralf Stehle]

Ich habe den Code für die Generatorabfrage ausprobiert, bin aber gescheitert

Delphi-Quellcode:

DM.IBQuery1.Active := False;
 DM.IBQuery1.SQL.Text := 'Select Gen_ID(GEN_UDAT, 1) AS ID from rdb§database';
 DM.IBQuery1.Active := true;

Ich bekomme nur die Fehlermeldung Table unknown rdb
:?:

[Gruber_Hans_12345]

$, nich §

Delphi-Quellcode:

DM.IBQuery1.Active := False;
 DM.IBQuery1.SQL.Text := 'Select Gen_ID(GEN_UDAT, 1) AS ID from rdb$database';
 DM.IBQuery1.Active := true;

[Ralf Stehle]

Ich hab´s. Da war ein Tippfehler bei einem Beitrag im Forum
(§ ist falsch $ ist richtig)

so muß es richtig heißen:

Delphi-Quellcode:

 DM.IBQuery1.Active := False;
 DM.IBQuery1.SQL.Text := 'Select Gen_ID(GEN_UDAT, 1) AS ID from rdb$database';
 DM.IBQuery1.Active := true;

[Ralf Stehle]

wow, du warst eine sekunde schneller. Vielen Dank.
Hast Du auch eine Idee was in dieser Zeile falsch ist?

Delphi-Quellcode:

Insert Into UDAT (ID, UNTERSUCHUNGSDATUM, PATIENT) VALUES (Gen_ID(GEN_UDAT,1),''2004-10-15'',''Thomas Cook'')

Der Datensatz wird nicht eingefügt. Es kommt aber auch keine Fehlermeldung.


2. Wie kann ich einen neuen Generator per SQL-Befehl erzeugen?
Kann ich einem neuen Generator ein Nummer zuweisen, wenn ich z.B. schon Daten in einer Tabelle habe und ab sofort per Generator incrementieren möchte?

[Gruber_Hans_12345]

Zitat:

Zitat von Ralf Stehle

wow, du warst eine sekunde schneller. Vielen Dank.
Hast Du auch eine Idee was in dieser Zeile falsch ist?

Delphi-Quellcode:

Insert Into UDAT (ID, UNTERSUCHUNGSDATUM, PATIENT) VALUES (Gen_ID(GEN_UDAT,1),''2004-10-15'',''Thomas Cook'')

Der Datensatz wird nicht eingefügt. Es kommt aber auch keine Fehlermeldung.


2. Wie kann ich einen neuen Generator per SQL-Befehl erzeugen?
Kann ich einem neuen Generator ein Nummer zuweisen, wenn ich z.B. schon Daten in einer Tabelle habe und ab sofort per Generator incrementieren möchte?

zu 1. Ich würde mit Parameter arbeiten, bin mir nicht sicher, wie Interbase das Datum erwartet. Wenn du per Parameter und .AsDateTime arbeitetst dann sollte es keine Probleme geben (natürlich nur wenn UNTERSUCHUNGSDATUM ein TIMESTAMP oder DATE ist !)

kannst du den ganzen Code posten (samt ExecSQL; und Transaktion ... )

2.) 'CREATE GENERATOR MEINGENERATOR;' (mit ExecSQL)
'SET GENERATOR MEINGENERATOR TO 12;'