Uso de TZQuery y TZUpdateSQL

[jrperezt]

Pues no hace Rollback correctamente.

Tengo el siguiente código:

    if not DMConexionDB.ZConnection.InTransaction then
        DMConexionDB.ZConnection.StartTransaction;
    try
      Post;
      if TZQuery(Dataset).UpdatesPending then
          TZQuery(Dataset).ApplyUpdates;

      ProcedimientoConError; // Este procedimiento da un error forzado

      DMConexionDB.ZConnection.Commit;
      Result := True;
    except
      DMConexionDB.ZConnection.Rollback;
      Result := False;
      raise;
    end; // Try/Except

Los cambios que se fijan en TZQuery(Dataset).ApplyUpdates, no se deshacen con el Rollback.


¿Que puede estar pasando?.

[gasparsi]

Cito lo que leí acerca de los RollBack:

"Los pasos para usar transacciones en MySQL son:

* Iniciar una transacción con el uso de la sentencia BEGIN.
* Actualizar, insertar o eliminar registros en la base de datos.
* Si se quieren los cambios a la base de datos, completar la transacción con el uso de la sentencia COMMIT. Únicamente cuando se procesa un COMMIT los cambios hechos por las consultas serán permanentes.
* Si sucede algún problema, podemos hacer uso de la sentencia ROLLBACK para cancelar los cambios que han sido realizados por las consultas que han sido ejecutadas hasta el momento."

fuente: http://www.webtaller.com/construccio...es-mysql-2.php

[jrperezt]

Hola gasparsi.

Gracias por el consejo, pero la implementación del BEGIN es lo que intento hacer en el siguiente código:

if not DMConexionDB.ZConnection.InTransaction then
   DMConexionDB.ZConnection.StartTransaction; // Esto sería el begin