Firebird 2.0 und RETURNING

[Roland1967]

Ich bin bei Firebird 2 auf die RETURNING-Klausel gestoßen, die die Abfrage des Generator-Wertes eleganter löst.
Doch wie kann ich in Delphi diesen Wert ermitteln? Showmessage zeigt immer 0 an. In der Datenbank stehen die Daten drin.

Hat jemand einen Tipp für mich? Das wäre super.

Zitat:

with DBank.IBC_Anschrift do
begin
Close;
SQL.Clear;
SQL.Add('INSERT INTO anschrift (AUFTRAG, Name_1, Name_2)');
SQL.Add('VALUES (''87777'', ''Schulze'', ''Nummer 2'')');
SQL.Add('RETURNING ID');
ExecSQL;

IntToStr(FieldByName('id').asInteger);
showmessage(inttostr(newid));

[mkinzler]

  newid := ParamByName('id').Value;

[Roland1967]

Leider hat der Trick nicht funktioniert.
Der Compiler meldet einen Fehler (Parameter ID nicht gefunden).

[DeddyH]

Nicht ExecSQL, sondern Open verwenden.

[Roland1967]

Wie man sich doch stundenlang mit solchen Problemen beschäftigen kann...

Ich habe es hinbekommen. Es lag an den verwendeten Komponenten von crLabs (IBDAC).
Man muß beim Rückgabewert ein RET vor den Feldnamen setzen, statt ID also RET_ID.

Delphi-Quellcode:

 
with DBank.IBC_Anschrift do
begin
  Close;
  SQL.Clear;
  SQL.Add('INSERT INTO anschrift (AUFTRAG, Name_1, Name_2)');
  SQL.Add('VALUES (''87777'', ''Schulze'', ''Nummer 2'')');
  SQL.Add('RETURNING ID');

  ExecSQL;
  NewID:= DBank.IBC_Anschrift.ParamByName('RET_ID').Value;

  ShowMessage(IntToStr(NewID);
end;

@DeddyH Das Open funktioniert aber nicht.

Trotzdem vielen Dank für die Anregungen.