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

[orodriguezca]

Eso debería funcionar correctamente. ¿El error es durante la compilación o en ejecución?. ¿Cual es exactamente el error?

[servicomp]

Después de solicitar, sale el error con el siguiente mensaje

Project autoincremento.exe raised  exception class eDataBaseError
 'SQLQuery: Field 'ID' not found'

Al parecer el componente TSQLQuery no devuelve la información.

Que otra solución se podría tener para afrontar este tropiezo.

[Casimiro Notevi]

¿Y el campo se llama ID?

[dec]

Hola a todos,

Me meto donde no debería acaso... pero... ¿qué tal algo así?

Código SQL [-]
Insert into TABLA (valor1, valor2) values ('xxx', 'ccc') returning ID into :ID

... o en todo caso, comprobar que la inserción se lleva a cabo, pues, parece que, sino es así, no se retornará nada o se retornará "null".

https://firebirdsql.org/refdocs/lang...21-insert.html

[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

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