回滚事务不适用于 TpFIB 组件

Question

我正在使用Delphi 2010与TpFIBDataset，TpFIBTransaction和TpFIBDataset等FIB Components Firebird数据库。

我已经将 TpFIBDataset 的"自动提交"属性设置为"False"，然后当我在try..finally块中执行以下语句并回滚时，交易数据仍然会被发布。

法典：

FIBDataset.Post;

下面是示例代码。

法典：

try
  FIBDatabase.StartTransaction;
       ....
          Block of Code;
       ...
    finally
      if saveALL then
        FIBDatabase.CommitRetaining
      else
        FIBDatabase.RollbackRetaining;
    end;

Answer 1

还必须检查和更改数据集上的事务

FIBDataset.AutoCommit := false;

您还需要关闭查询。 在这种情况下

FIBDataset.Close;
FIBDatabase.Rollback;

编辑

我还建议您将一个事务组件分配给所有数据集（而不是数据库）。 并使用事务组件的启动、提交、回滚方法。 此外，您必须在执行任何操作之前分配事务组件。