Recuperar el valor de Returning

[Combat-F2D]

procedure insert_con_returning(query:TMDOQuery);

var tVardelTipodelField: tipo;

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;

      tVardelTipodelField := FieldbyName('cod_familia').as....;

except
raise;
end;
end;
end;

[santiago14]

Hola Combat
Al hacer lo que sugieres me sale el siguiente error:

query: Field 'cod_familia' not found

[luisgutierrezb]

bueno y si en lugar de execsql se usa open?

[santiago14]

Usando Open me dice lo mismo: query: Field 'cod_familia' not found.

[santiago14]

Ya le encontré la vuelta... un segundo por favor que ya lo publico...

[santiago14]

Bueno la cosa viene así:
Pongo el código y luego lo explico, aunque es muy claro.

Código Delphi [-]
procedure insert_con_returning(codigo:Integer;query:TMDOSQL);
//procedure insert_con_returning(codigo:Integer;query:TMDOQuery);
var
  valor:Integer;
begin
  with query do
  begin
    Close;
    sql.Clear;
    SQL.Add('Insert into familias (cod_familia, fecha_ingreso_familia, estado_familia) ');
    sql.Add('Select (select nc.nro from nuevo_codigo(:nro_codigo) nc), current_timestamp, ');
    sql.Add('''A'' From rdb$database ');
    sql.Add('Returning cod_familia ');


    //ParamByName('nro_codigo').AsInteger:=codigo;
    Params.ByName('nro_codigo').AsInteger:=codigo;
    try
      //ExecSQL;
      ExecQuery;
      valor:= FieldByName('cod_familia').AsInteger;
    except
      raise;
    end;
  end;
  Application.MessageBox(PChar(inttostr(valor)), 'Resultado', MB_OK);
end;

En primer lugar debemos usar un TMDOSQL en lugar de un TMDOQuery, la consulta va igual, asignamos los parámetros de entrada con Params.ByName. Hacemos ExecQuery en lugar de ExecSQL y recuperamos el valor a través de FieldByName... Bueno esto funcionó bien.
Abajo pongo un Message para ver en la pantalla el id devuelto.
Con eso podemos recuperar de una sola vuelta los valores generados por gen_id sin tener que hacer cosas raras.
Espero haber ayudado, gracias a todos por los aportes.

Saludos.

[pnsd_89]

Hola Amigos como estan.. Estoy tratando de Recuperar el valor del returning.
Me emocione al ver que lo han logrado con el MDO.
Pero yo utilizo DELPHI XE y Firebird 2.5 y al parecer no existen mas los componentes MDO para el XE de delphi.. alguna sugerencia?
he buscado mucho y no lo encuentro...