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

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

[Casimiro Notevi]

Tengo una tabla tbDebug con los campos id, texto. El primero se autoincrementa mediante un generador y su correspondiente trigger. El segundo es un campo de texto.

En un proyecto he añadido un IBsql de los componentes IBX y el código:

Código SQL [-]
'insert into tbDebug (texto) values (:text) returning id';

He añadido un botón para ejecutarlo y, como puedes ver en el video enlazado, retorna el ID creado, como era de esperar.
Si no funciona con los componentes que estás usando, será problema de esos componentes.
Enlace a video captura.

El código es tan simple como:

Código Delphi [-]
  ibsql2.Close;
  ibsql2.SQL.Text := 'insert into tbdebug (texto) values (:text) returning id';
  ibsql2.Params[0].AsString := ed2.Text;
  ibsql2.ExecQuery;
  ed1.Text := ibsql2.Fields[0].AsString;