jocaro
05-03-2012, 17:40:16
Hola a todos.
Depurando el código de una procedure, encuentro un error (ambos presentados mas adelante), que he intentado acotar para evitarlo, pero no lo consigo.
Al ejecutar los métodos post de las líneas de código mostradas en negrita me salta el siguiente error:
raise exception class ESQLiteError, message 'cannot rollback savepoint - SQL statements in progress'En otras partes del código de la aplicación hay definidas unas querys de tipo SELECT y referidas sólo a TablaNotTem. Aunque en la sesión en curso de la aplicación no se utilicen esas querys, el error sigue apareciendo.
Si alguno de vosotros sabe indicarme a que puede ser debido el error, alguna situación típica en que suele aparecer, en definitiva cualquier comentario que pueda encaminarme a la solución, os lo agradeceré
Un saludo
procedure TSDIAppForm.GrabarBD();
begin
{ Recoger modificación último registro de tablas editado, por si no se cambia a otro registro antes de grabar (no se recogerían cambios automáticamente) }
FrmBasDat.TablaElementosArbol.Edit;
FrmBasDat.TablaElementosArbol.Post;
FrmBasDat.TablaNotas.Edit;
FrmBasDat.TablaNotas.Post;
FrmBasDat.TablaTemas.Edit;
FrmBasDat.TablaTemas.Post;
FrmBasDat.TablaNotTem.Edit;
FrmBasDat.TablaNotTem.Post;
{ Grabación en base de datos de los datos de la transacción pendiente }
FrmBasDat.ConexionBdSqlite.Commit;
end;
Depurando el código de una procedure, encuentro un error (ambos presentados mas adelante), que he intentado acotar para evitarlo, pero no lo consigo.
Al ejecutar los métodos post de las líneas de código mostradas en negrita me salta el siguiente error:
raise exception class ESQLiteError, message 'cannot rollback savepoint - SQL statements in progress'En otras partes del código de la aplicación hay definidas unas querys de tipo SELECT y referidas sólo a TablaNotTem. Aunque en la sesión en curso de la aplicación no se utilicen esas querys, el error sigue apareciendo.
Si alguno de vosotros sabe indicarme a que puede ser debido el error, alguna situación típica en que suele aparecer, en definitiva cualquier comentario que pueda encaminarme a la solución, os lo agradeceré
Un saludo
procedure TSDIAppForm.GrabarBD();
begin
{ Recoger modificación último registro de tablas editado, por si no se cambia a otro registro antes de grabar (no se recogerían cambios automáticamente) }
FrmBasDat.TablaElementosArbol.Edit;
FrmBasDat.TablaElementosArbol.Post;
FrmBasDat.TablaNotas.Edit;
FrmBasDat.TablaNotas.Post;
FrmBasDat.TablaTemas.Edit;
FrmBasDat.TablaTemas.Post;
FrmBasDat.TablaNotTem.Edit;
FrmBasDat.TablaNotTem.Post;
{ Grabación en base de datos de los datos de la transacción pendiente }
FrmBasDat.ConexionBdSqlite.Commit;
end;