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

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

[Casimiro Notevi]

Insisto que un simple insert retorna el campo indicado.
Ejemplo, tenemos una tabla 'tbEjemplo' con los campos id y texto, hacemos:

Código SQL [-]
insert into tbEjemplo values (2,'hola') returning id

Retorna '2'

Código SQL [-]
insert into tbEjemplo values (5,'saludos') returning texto

Retorna 'saludos'

Y un 'insert' es 'execute', no es 'open', ya que este último es solamente para 'select'.

[servicomp]

La instrucción que nos das, funciona perfectamente en la consola de Firebird o el el IBExpert, pero si lo queremos hacer en muestro programa y llevarlo a una variable, este no se puede realizar.

Me comentan compañeros que cambie a OPEN, pero cuando el procedimiento se compila, tampoco funciona. solo funciona con EXECSQL.

Exploraré la forma automática que me hicieron llegar y también la forma de un procedimiento en la Firebird que me pase la variable al programa. Esta última opción nunca la he usado, así que me tocará estudiarla primero, de como es pasar una variable que devuelve un procedimiento de la base de datos firebird a una variable entera en DElphi.

De antemano muchas gracias por toda su colaboración, y es grato saber que el delphi sigue muy vivo como lenguaje de programación.