Interbase: Generierte ID ermitteln ?

[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.