Obtener campo autoinc con Firedac

[Casimiro Notevi]

Empezado por amadis

Utilizo Firebird 3, y el campo clave ID es un AUTOINCREMENT IDENTITY COLUMN
El código que utilizo, lo puse antes arriba, es el siguiente, lo ejecuto en un FDQuery
Código SQL [-]insert into tabla (campo) values ('prueba') returning id

Vale, entonces ese es el código que usas, bien.

[fduron.mx]

En firebird 3.0 se introdujo el uso de las columnas tipo IDENTITY, este tipo de campos producen identificadores únicos en la columna declarada utilizando un generador interno; para soportar este tipo de columnas se han agregado un par de campos a la tabla RDB$RELATION_FIELDS:

• RDB$GENERATOR_NAME (almacena el nombre del generador que se ha creado automáticamente en RDB$GENERATORS)
• RDB$IDENTITY_TYPE (almacena un 0 para las columnas definidas como IDENTITY y NULL para las demás)

Hasta el momento la única manera de obtener el valor actual de un generador, es a través de la la función GEN_ID(<nombreDelGenerador>, 0) no entraré en detalles en el uso de esta función.

Ahora bien, al momento de declarar una columna de tipo IDENTITY no es necesario crear el disparador, tampoco creamos un generador por nuestra cuenta, todo esto se realiza internamente por el motor de Firebird 3. Sin embargo, el generador existe, y para obtener el valor actual del generador que le fue asignado a nuestro columna, primero debemos averiguar que nombre le ha puesto Firebird a dicho generador, para lo cual, realizamos una consulta a la tabla RDB$RELATION_FIELDS de la siguiente manera:

Código SQL [-]
select rdb$generator_name

from rdb$relation_fields

where rdb$relation_name = 'TABLA_X'
and rdb$field_name = 'ID'

El resultado de esta consulta nos arrojará el nombre del generador que se le ha asignado a la columna ID en la tabla TABLA_X (supongamos que el resultado fue RDB$3), enseguida solo resta ejecutar las instrucciones ya conocidas para el manejo e incremento de generadores:


Para obtener el valor actual del generador
usando instrucciones SQL:

Código SQL [-]
 select GEN_ID(RDB$3, 0) from RDB$DATABASE

Desde Delphi:

Código Delphi [-]
FDQuery1.Connection.GetLastAutoGenValue('RDB$3');

Para obtener el siguiente valor del generador

Código SQL [-]
 select NEXT VALUE FOR RDB$3 from RDB$DATABASE

A partir de Firebird 2.0 se recomienda usar NEXT VALUE FOR en lugar de GEN_ID(<NombreGenerador>, <Incremento>) a menos que se desee incrementar el generador en un valor diferente a 1

Finalmente, una vez que hemos identificado el nombre del generador de nuestra columna IDENTITY podemos obtener el valor del generador mientras se ejecuta la sentencia INSERT, por ejemplo:

Código SQL [-]
insert into tabla
(id, campo)
values
(next value for RDB$3, 'prueba')
 returning id

Desde delphi usando las propiedades del componente FDQuery

Código Delphi [-]
FDQuery1.UpdateOptions.AutoIncFields := 'ID';
FDQuery1.UpdateOptions.FetchGeneratorsPoint := gpImmediate;
FDQuery1.UpdateOptions.GeneratorName := 'RDB$3';

gpImmediate incrementa en 1 el valor del generador RDB$3 justo en el momento en el que se inserta un nuevo registro en la tabla, y le asigna el valor obtenido al campo ID, sin la necesidad de incluir la instrucción NEXT VALUE FOR en la sentencia SQL