TpFIBTransaction提供错误: Delphi XE4中的事务在FIBPlus 7.5中没有活动

Question

我正在从德尔菲7迁移到德尔福XE4。使用Delphi XE4，我使用的是FIBPLUS 7.5。Delphi 7应用程序运行良好，但我在Delphi XE4中得到了一个运行时错误：

"Project abc.exe raised exception class EFIBClientError with message frmABC.transRead: Transaction not active"  

PAS文件

var
    transRead: TpFIBTransaction;
    ...
    ...
    //transRead is used like this
    with TpFIBQuery.Create(Self) do
    begin
      Database := dbMyDB;
      Transaction := transRead;
      SQL.Add ('Select .....');
      ExecQuery;
      Close;
      Free;
    end;    

  DFM File

  object transRead: TpFIBTransaction
    DefaultDatabase = dbMyDB
    TimeoutAction = TARollback
    Left = 192
    Top = 196
  end

我在整个项目中搜索了所有的pas和dfm文件。我没有发现任何这样的声明：

transRead.Active := True;

但我确实在许多地方找到了以下声明：

if transRead.Active then
begin
..........
..........
end

我在一些地方也看到过这样的情况：

transRead.Active := False;

我们不需要激活交易吗？是自动激活的吗？请建议我的任何线索，我应该集中处理这个“事务不是活动的”错误。

Answer 1

我刚刚设置了属性AutoReconnect = True of TFIBDatabase，它起了作用。

Answer 2

有两种方法: 1.在execQuery或2之前启动事务。在TpFibQuery选项中设置选项字段qoStartTransaction，如：

Options := Options + [qoStartTransaction];