Uso de post con Firebird

[martin17476]

Hola a todos, tengo una aplicación en paradox y Delphi 2010 la cual estoy pasando a Firebird (con Zeos). Ya tengo todas las tablas en Firebird y en general el programa va funcionando con el código original con pequeñas correcciones. Pero me he encontrado con un problema: cuando actualizo un registro de una tabla mediante un post, el cursor se pierde y parece que va al primer registro de la tabla y pierdo el registro actual.

Seguro que se debe a mi inexperiencia con Firebird; quiza haya que hacer algo más. ¿Alguien me puede indicar como resolver este problema? Gracias

[AgustinOrtu]

Parece extraño, hay algun indice en el DataSet? Usas Insert (http://docwiki.embarcadero.com/Libraries/en/Data.DB.TDataSet.Insert) o Append (http://docwiki.embarcadero.com/Libraries/en/Data.DB.TDataSet.Append) para crear el nuevo registro?

Hay algun evento que se dispare despues del Post? Como refrescas los datos en pantalla luego del Post? Pon el codigo que usas para grabar y los eventos y propiedades relevantes

Lo que podes hacer es usar un TBookmark (http://docwiki.embarcadero.com/Libraries/en/Data.DB.TDataSet.Bookmark)


procedure ...
var
bkm: TBookmark;
begin
bkm := TuDataSet.GetBookmark; // guarda la posicion actual en el DataSet
try
// realizar el post
finally
TuDataSet.GotoBookmark(bmk); // volver a posicionarse en donde estabas antes
TuDataSet.FreeBookmark(bkm); // liberar memoria
end;
end;


Mas info sobre Bookmarks (http://docwiki.embarcadero.com/RADStudio/en/Marking_and_Returning_to_Records)

[martin17476]

Muchas gracias Agustin. Paso a explicarte la situación:

El Dataset no tiene índices.
Uso append.
No hay eventos asociados al post.
No uso pantalla con esta porción de código.
Porción de código:

Table1.Append;
Table1.Campo1 := var1;
....
Table1.Post;
....
valor1 := Table1.Campo1;
....



Aquí da el fallo. Valor 1 recibe valor 0, cuando debería recibir otro. Este campo1 es la clave primaria y es autoincrement.
He comprobado el valor de Table1.Campo1 y es correcto.

He usado BookMark y tampoco funciona.

Esto no se refleja en pantalla. Con otra tabla, que si refleja en pantalla, y que tiene un campo autoincrement y es clave primaria, para ver dicho valor, he de hacer post y después refrescar.

Espero que tengas toda la información que necesitas.

[Neftali [Germán.Estévez]]

cuando actualizo un registro de una tabla mediante un post, el cursor se pierde y parece que va al primer registro de la tabla y pierdo el registro actual.

Cuando realizas un Edit+Post (UPDATE) no debería moverse el puntero sobre el que está el registro, a no ser que posteriormente realices un REFRESH (o similar).
Si realizas un REFRESH, tal y como te comenta Agustín, para recuperar el registro que estaba activo, debes utilizar Bookmarks.

[Neftali [Germán.Estévez]]

Por favor, utiliza TAG's cuando añadas código Delphi. (http://tinyurl.com/bvzsyhb)


El Dataset no tiene índices.
Uso append.


Estábamos hablando de UPDATE, ahora hablamos de APPEND (insertar uno nuevo), que son cosas diferentes.



Aquí da el fallo. Valor 1 recibe valor 0, cuando debería recibir otro. Este campo1 es la clave primaria y es autoincrement.
He comprobado el valor de Table1.Campo1 y es correcto.


Es normal, porque ese valor no lo asignas tú, sino que al ser autoincrement lo asigna la Base de Datos de forma automática cuando se inserta el registro. Por lo tanto, para saber qué valor ha asignado la Base de Datos, debes hacer un Refresh o consultar manualmente ese valor asignado.




Esto no se refleja en pantalla. Con otra tabla, que si refleja en pantalla, y que tiene un campo autoincrement y es clave primaria, para ver dicho valor, he de hacer post y después refrescar.


Correcto. Pues eso justo es lo que has de hacer aquí.

¿Entonces cual es el problema?

[martin17476]

Gracias a todos por vuestra ayuda. Siento no haber usado el TAG de Delphi.
Leyendo con atención todo lo que habéis compartido aún sigue habiendo problemas. El código que he usado es:

Table1.Insert;
Table1.Campo2 := Valor2; //el Campo1 sería el Autoincrement
........
Table1.Post;
marca := Table1.GetBookmark;
Table1.Refresh;
table1.GotoBookMark(marca);
.....

Ahora el valor del campo Autoincrement no es 0, sino que corresponde al valor del último registro físico de la tabla, y no con el que acabo de insertar (el cual ha ido a otro lugar de la tabla).

Lo he resuelto con un Locate:

Table1.Post;
intCam := table1Camp.Value;
Table1.Refresh;
Table1.Locate('Camp',intCam,[]);

Ahora sí que voy al registro y el valor Autoincrement sí que es el correcto.

Pero sigo pensando que algo no va bien. Debería funcionar con el primer código.

Espero haberme explicado bien. Cualquier observación será de ayuda.