¿Como recuperar un valor de un campo autoincrementable?

[SyncMaster]

Hola,

Cual es la forma correcta de recuperar un valor de un campo que es autoincrementable. Dentro de una tabla "X" tengo un campo de tipo Integer el cual me genera un numero correlativo. Dicho evento (Tigger) esa asignado al "BEFORE INSERT"

  CREATE TRIGGER AI_ECLJOB_INDICE FOR ECLJOB ACTIVE
  BEFORE INSERT POSITION 0
  AS
  BEGIN
    IF (NEW.INDICE IS NULL) THEN
        NEW.INDICE = GEN_ID(ECLJOB_INDICE_GEN, 1);
  END

Actualmente lo que hago para recuperar el valor al insertar un nuevo registro es :

  With TABLA Do
	   Begin
		  Append;
		  FieldByName('NOMNBRE').AsString:='Yo';
		  FieldByName('DIRECCION'').AsString:='Mi direccion';
		  Post;
		  // Aqui lo recupero
		  Active:=False;
		  Active:=True;
		  Last;
		  Valor:=FieldByName('INDICE').AsInteger;
		End;

Como se darán cuenta debo desactivar y volver a activar el component IBTable y luego irme al ultimo registro ingresado y ahi leer el valor asignado.

Me pregunto si este metodo funcionara en forma correcta si existen dos usuarios conectados a la misma tabla ingresando información y ambos guardan un registro nuevo al mismo tiempo.

¿Se recuperara en forma correcta?

Existe alguna otra forma mas adecuada y eficiente.

Gracias!!!

Saludos de Chile.

[jachguate]

No hay forma de recuperar un valor establecido a un campo que pertenece a la llave primaria de esta forma. Esto debido a que los componentes del IBX se basan en la misma llave primaria para refrescar. Pero el IBTable tiene una propiedad llamada Generator (o algo asi) que puede asignar automáticamente un valor obtenido del generador justo antes de enviar el registro a la BD. De esta forma, no tenes que recuperarlo, pues simplemente será el establecido en el campo del dataset después de hacer el post.

Hasta luego.

[SyncMaster]

Hola jachguate,

he estado investigando en el componente TIBTable tratando de buscar esa propiedad de clase pero no he tenido suerte!!

Podrías ser un poco mas especifico al respecto, te lo agradeceria un montón

Gracias!!!

[jachguate]

Hola. Lamento el error. El componente no es el TibTable, sino el TibDataSet, y la propiedad se llama GeneratorField.

Hasta luego.