Recuperar el valor de Returning

[santiago14]

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.

[santiago14]

Esto dice en la página 49 de Firebird 2.1 Release Notes

Rules for Using a RETURNING Clause

...

2 - The presence of the RETURNING clause causes an INSERT statement to be described by the API as
isc_info_sql_stmt_exec_procedure rather than isc_info_sql_stmt_insert. Existing connectivity
drivers should already be capable of supporting this feature without special alterations.

Creo entender que los componentes que estamos usando deberían de alguna manera capturar el dato que viene en Returning sin demasiado problema... la pregunta es como.
Bueno, espero que aporte algo esto.

Santiago.

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

[Casimiro Notevi]

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 Notevi]

De todas formas he dicho IBX, no DBX.

[pnsd_89]

Ok probare con los IBX

[santiago14]

Empezado por pnsd_89

Ok probare con los IBX

De seguro que con los IBX la cosa irá bien.

[Casimiro Notevi]

Empezado por santiago14

De seguro que con los IBX la cosa irá bien.

Claro, es que "returning" es posterior a la última versión de MDO, por eso no lo implementa.

[pnsd_89]

hola todo mal con IBDataBase
Cuando intento conectarme tengo los siguientes mensajes.
Si coloco en el DatabaseName = C:\BD\bd_local.FDB
Me lanza el siguiente mensaje "Unavailable database"
En cambio si coloco de esta manera = 127.0.0.1:C:\BD\bd_local.FDB
me lanza lo siguiente "connection rejected by remote interface."

Lo curioso es que en el mismo DM tengo un TSQLConnetion el cual apunta a la misma BD y se conecta sin ningún problema.
Les ha pasado esto alguna vez?

[Casimiro Notevi]

Poco podemos hacer si no explicas algo más, pones código, etc.
Yo diría que estás conectando cuando ya está conectada.

[pnsd_89]

Lo que pasa es que no hay mucho codigo mas que los componentes en el IDE.
Solo inserte el componente IBDataBase en mi DataModule
Le coloque la ruta de mi BD, el usuario y contraseña y al darle TRUE en la propiedad connected del IBDataBase ya tira ese error.

[Casimiro Notevi]

http://www.clubdelphi.com/foros/showthread.php?t=68708
http://www.intitec.com/varios/Delphi...rd_con_ibx.pdf

[pnsd_89]

Muchas gracias Casimiro por los enlaces, los he leído pero de igual manera era lo que yo ya estaba haciendo.
Cuando seleccione Local me sale un mensaje luego de apretar el test.
Y cuando selecciono remote me da el otro mensaje de error.

No creo que sea mi gds32.dll ni el fbclient.dll por que en el mismo DataModule tengo un TSqlConnetion que apunta a la misma base de datos en los parámetros y se conecta perfectamente, como también me conecto desde el IBExpert. Es por eso que me parece muy raro que me cree problemas el IBDatabase que estoy intentando conectar.

Empezado por pnsd_89

Local = "Unavailable database"
Remote = "connection rejected by remote interface."

Desde ya muchisimas gracias por la ayuda de siempre.. y espero poder conseguir capturar el bendito returning