Recuperar el valor de Returning

[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...

[Casimiro Noteví]

Quizás puedas adaptarlos fácilmente. En todo caso podrás usar IBX que viene con delphi, son casi iguales, pero algo más avanzados.

[pnsd_89]

Estoy peleando con los DBX pero no le encuentro el lado aún.
Si encuentro una solución la publico

[Casimiro Noteví]

De todas formas he dicho IBX, no DBX.