Conocer el campo autoincremento después de hacer la inserción

[servicomp]

De antemano muchas gracias por su colaboración

En primera medida ID es el nombre del campo que se autoincrementa cada vez que hacemos la inserción con su respectivo disparador. En segunda media usando Into :ID, da error ya que desconoce el Into en esta instrucción. Si colocamos la instrucción en el IBExpert funciona perfecto, pero con el Into nos da un error.

[servicomp]

Compañeros se pudo hace funcionar la instrucción cono el siguiente código, aunque no es aplicable ya que no se puede capturar la variable.

Código Delphi [-]
SQLPrueba.SQL.Clear;
SQLPrueba.SQL.Add('INSERT INTO TABLA (VALOR1, VALOR2) VALUES (:V1, :V2) RETURNING ID');
SQLPrueba.ParamByName('V1').AsString:='PRUEBA';
SQLPrueba.ParamByName('V2').AsString:='MAS DE PRUEBA';
SQLPrueba.ExecSQL(False);

Al tratar de recoger el valor de Id con el siguiente codigo da el error

Código Delphi [-]
j:=SQLPrueba.FieldByName('ID').AsInteger;

Se presenta el error

Field 'ID' not found

[Caminante]

Hola


Y si pruebas usando parambyname en vez de fieldbyname. Nunca he usado returning asi que no se si sera correcto hacerlo asi. Pero no pierdes nada probando.


Saludos

[servicomp]

El mensaje es el mismo del anterior. Error

Usando el anterior código, efectivamente se inserta los campos, pero seguimos sin poder capturar el valor que retorna de la variable ID

De nuevo muchas gracias por sus respuestas

[servicomp]

El problema al parecer se presenta es en el Delphi, bueno en el Embarcadero, ya que desde la consola de Firebird, inserta los campos y devuelve el valor del campo incrementado.

Al parecer desconozco la técnica para capturar el ID de una campo auto incremento al momento de insertar algunos campos.

[orodriguezca]

Empezado por servicomp

Código Delphi [-]
SQLPrueba.SQL.Clear;
SQLPrueba.SQL.Add('INSERT INTO TABLA (VALOR1, VALOR2) VALUES (:V1, :V2) RETURNING ID');
SQLPrueba.ParamByName('V1').AsString:='PRUEBA';
SQLPrueba.ParamByName('V2').AsString:='MAS DE PRUEBA';
SQLPrueba.ExecSQL(False);

Creo que el problema está en

Código Delphi [-]
SQLPrueba.ExecSQL(False);

En su lugar utiliza

Código Delphi [-]
SQLPrueba.Open;

[Casimiro Notevi]

Creo que debes usar Fields:

Código Delphi [-]
iValor := Query.Fields[0].AsInteger;

[Kiranov]

Buenos dias,

si estas usando los componentes de FireDAC, revisa la funcion GetLastAutoGenValue del componente TFDConnection, yo lo utilizo de la siguiente manera para recuperar el ultimo registro insertado:

Código Delphi [-]
fdquery1.SQL.Text:='insert into laboralperiods(useropening,iniamount,cajaopening) values(: paramuser,: paraminiamount,: paramcajaopenin)';
fdquery1.ParamByName('paramuser').AsString:=rzlabel8.Caption;
fdquery1.ParamByName('paraminiamount').AsFloat:=AdvMoneyEdit1.Value;
fdquery1.ParamByName('paramcajaopenin').AsString:=rzlabel3.Caption;
fdquery1.ExecSQL;
fdquery1.SQL.Text:='Select * from laboralperiods where control=: paramcontrol';
fdquery1.ParamByName('paramcontrol').AsInteger:= fdconnection1.GetLastAutoGenValue('Control');
fdquery1.Open();

"control" es el campo autoincrementado en la tabla de la base datos mysql.

Espero te sirva de algo,
Saludos.

[servicomp]

Cordial saludo compañeros y un feliz 2020 para todos

Acerca del RETURN en Firebird, este solo funciona en la consola o en el IBExpert, según el catalogo.

Al parecer para que funcione, lo tenemos que hacer desde un procedimiento en la base de datos que envíe el valor de return a una variable de nuestro programa y así poder grabar los registros de la tabla detalle. Claro esta que hasta el momento no he necesitado un procedimiento de estos, no lo he realizado, así que me tocará ensayar y luego les comento.

Otro compañero me dice que también se puede realizar de forma automática usando un SQLDataset, un DataSetprovide y un ClientDataSet para el maestro, y un SQLDataset y un ClientDataset con el Detalle, y que se enlazan con un DataSource. Funciona muy bien de forma automática.

Esperamos hacer las prácticas suficientes y su comportamiento para saber como trabajan mejor

[orodriguezca]

Yo insisto en que el problema es que estas ejecutando la consulta con ExecSQL y deberías hacerlo con Open. Revisa la entrada #11 de este hilo.