Foros Club Delphi - Problema refresco IBX con Firebird 2 y Delphi 2006

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Conexión con bases de datos (https://www.clubdelphi.com/foros/forumdisplay.php?f=2)

- - Problema refresco IBX con Firebird 2 y Delphi 2006 (https://www.clubdelphi.com/foros/showthread.php?t=30441)

Problema refresco IBX con Firebird 2 y Delphi 2006

Como no podía ser de otra forma, soy un grandísimo novato en esto de SGDB's y me he decantado a probar Firebird y como soy un "campeón" pues me he conseguido la versión 2.0.

Pues el problema es que cuando inserto un registro en una tabla, si en el AfterPost del IBDataSet hago un commit y vuelvo a abrir la tabla, todo va de maravilla, a excepción de que pierdo el puntero al registro insertado, pero si hago un commitretaining me inserta en la dbgrid los valores del primer registro de esa tabla, hasta que cierro y abro otra vez la tabla, que está todo correcto.

La transacción la tengo en read commited.

Y ya estoy por coger la opcion de abrir la tabla y buscar el registro cada vez, pero no me parece lógico.

Lo que he encontrado extraño es que no me deja coger en DefaulAction la de TARollBackRetaining dandome el error Format %s invalid o incompatible with argument cada vez que solicito esta opción de la propiedad de IBTransaction.

Gracias

PD:

RefreshSQL:
select ORDEN,TIPO,NUMERO,SITUACION,POSX,POSY from INSTALACIONES order by ORDEN

SelectSQL:
select * from INSTALACIONES ORDER BY ORDEN

InsertSQL:
insert into instalaciones (TIPO,NUMERO,SITUACION,POSX,POSY) values (:TIPO,:NUMERO,:SITUACION,:POSX,:POSY)

Siendo ORDEN un autoinc:

Generador:
CREATE GENERATOR GEN_INSTALACIONES_ID;

Trigger:
CREATE TRIGGER INSTALACIONES_BI FOR INSTALACIONES
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
IF (NEW.ORDEN IS NULL) THEN
NEW.ORDEN = GEN_ID(GEN_INSTALACIONES_ID,1);
END

Se me olvidaba que la forma de introducir los datos es por código. Estoy traspasando datos de una tabla Paradox 7.0 a Firebird.

Código:

    with Dato.Instalaciones do begin

        Insert;

        Fields[1].AsInteger:=Table1.FieldByName('TIPO').AsInteger;

        Fields[2].AsInteger:=Table1.FieldByName('NUM').AsInteger;

        Fields[3].AsString:=Table1.FieldByName('SITUACION').AsString;

        Fields[4].AsInteger:=Table1.FieldByName('POSX').Asinteger;

        Fields[5].AsInteger:=Table1.FieldByName('POSY').Asinteger;

        Post;

    end;

Una parte ya está resuelta.

Bueno, pues en el evento AfterPost hago un CommitRetaining y luego un Refresh al IBDataSet.

Me actualiza o me refresca los datos correctamente menos el campo Autoinc, que no me muestra nada, está vacio, pero si abro y cierro la tabla está bien.
HAgo un:

Código:

Showmessage(IntToStr(IBDataSet1.FieldByName('ORDEN').AsInteger));

y me devuelve siempre 0, pero cuando cierro y abro me da su valor correcto.

La solucion para que me refresque la tabla bien sin necesidad de hacer un Commit es la sentencia del RefreshSQL:

RefreshSQL:
select ORDEN,TIPO,NUMERO,SITUACION,POSX,POSY from INSTALACIONES where ORDEN=:ORDEN

¡¡¡Funciona correctamente!!! (Menos lo del refresco de la Columna ORDEN)

El problema de que te devuelva 0 es porque el valor ha sido generado en la base de datos, y si no cierras y abres de nuevo la consulta no lo verás reflejado. La alternativa que tienes es obtener el valor del generador desde tu programa y asignarlo tú manualmente.

Gracias por la respuesta.

Entonces, lo que me aconsejais es que lo haga desde mi programa (asignar el valor) o la otra opción sería un ¿Procedimiento Almacenado?

Gracias.

Edito: Aunque en el proceso que digo tampoco es tan traumatico el volver a abrir la tabla. Lo único será crear un evento para que los clientes se enteren y actualicen sus tablas.

Cada vez estoy más contento de cambiar a bases de datos "de verdad". Vaya montón de posiblidades.