Buenas, tengo lo siguiente:
Código Delphi
[-]
procedure insert_con_returning(query:TMDOQuery);
begin
with query do
begin
Close;
sql.Clear;
SQL.Add('Insert into familias (cod_familia, fecha_ingreso_familia, estado_familia) ');
sql.Add('Select gen_id(Select ibe$log, 1), current_timestamp, ');
sql.Add('''A'' From rdb$database ');
sql.Add('returning cod_familia ');
try
ExecSQL;
except
raise;
end;
end;
end;
Hasta aquí todo bien, resulta que quiero recuperar el valor que viene en
Returning y no se como hacerlo. ¿Alguna sugerencia?
Uso Delphi 7, Firebird 2.1, MDO version 0.8.8.
Gracias.