Firebird: Generierte ID ermitteln ?

[Jens Schumann]

Hallo Rolf,
wenn ich nach dem Posten die ID haben will, hole ich mir mit einer StoredProc vor dem Post die nächste GeneratorID. Dafür habe ich in der Datenbank eine StoredProc angelegt.
Hier die Metadaten

Code:

COMMIT WORK;
SET AUTODDL OFF;
SET TERM ^ ;
/* Stored procedures */
CREATE PROCEDURE "GET_MAIL_ID" 
RETURNS
(
  "NEWID" INTEGER
)
AS
BEGIN EXIT; END ^
ALTER PROCEDURE "GET_MAIL_ID" 
RETURNS
(
  "NEWID" INTEGER
)
AS
BEGIN
  NewID = GEN_ID(DBFILES_GEN,1);
END
 ^
SET TERM ; ^
COMMIT WORK;
SET AUTODDL ON;

Mit folgender Funktion hole ich im Programm dann die GeneratorID

Delphi-Quellcode:

function TDBM_Main.GetNewMailID: Integer;
begin
  Result:=-1;
  IBTransaction.StartTransaction;
  Try
    IBStoredProcMailID.ExecProc;
    Result:=IBStoredProcMailID.Params[0].AsInteger;
  Finally
    IBTransaction.Commit;
    end;
end;