RETURNING-Klausel mit Delphi

[Raffigator]

Hallo,

wie kann man mit Delphi die ID des gerade gespeicherten Datensatzes herausbekommen? Ich habe Trigger in der Datenbank, die mir über Sequenzen die ID generieren. Es gibt ja für SQL die RETURNING-Klausel, aber wie kann ich diese in Delphi einbauen, oder was gibt es für eine Möglichkeit auf den aktuellen Wert der Sequenz zuzugreifen?

[Raffigator]

Ich glaube ich habe eine Möglichkeit gefunden...

select SequenzName.currval from dual;

[Elvis]

Zitat von Raffigator:

Ich glaube ich habe eine Möglichkeit gefunden...select SequenzName.currval from dual;

Das muss nicht gehen. Es geht eigentlich nur wenn die Sequence im Kontext deiner Session schonmal initialisiert wurde. Das wiederum heißt aber dass sie schon für andere Sessions um Cachesize weiter gezählt wurde.
Schaue dir mal all_sequences an.

SQL-Code:

SELECT last_number
FROM   all_sequences t
WHERE  t.sequence_owner = :DeinUser
and    t.sequence_name = :SequenceName

Aber das nach einem Insert zu machen wäre schon etwas, nunja, blöde.
Woher willst du wissen, dass zwischen Insert und deiner Abfrage niemand sonst noch ein Insert gemacht hat, hmm?
Pseudocode wie man es zu Fuß machen könnte:

Delphi-Quellcode:

var newId : Integer;
using cmd := connection.CreateCommand() do
begin
   cmd.CommandText := 'INSERT INTO Blabla(Feld1) values (:Feld1) RETURNING Id INTO :Id';
   
   var feld1 := cmd.CreateParameter();
   var id    := cmd.CreateParameter();

   feld1.Value := 'Blabla';
   id.DbType := DbType.Int32;
   id.Direction := ParameterDirection.Output;

   cmd.Parameters.Add(feld1);
   cmd.Parameters.Add(id);

   cmd.ExecuteNonQuery();
   newId := id.Value as Integer;
end;