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]

Delphi-Quellcode:

  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... :roll:

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. :-)