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;