代码之家  ›  专栏  ›  技术社区  ›  Livius

通过Firedac替换IBX的TIBDatabaseInfo获取数据库信息

  •  4
  • Livius  · 技术社区  · 10 年前

    我需要迁移 国际广播公司 (Interbase/Firebird)与Firedac的连接 但是我怎样才能像我们得到的那样得到具体的供应商信息 TIB数据库信息 组件由 Firedac公司 ? 我对计数器BackoutCount、DeleteCount、ExpungeCount感兴趣。。。

    如何通过Firedac检索此信息?

    1 回复  |  直到 10 年前
        1
  •  1
  •   TLama    10 年前

    您可以通过 TIBDatabase 对象 FireDAC.Phys.IBWrapper 单元例如,这种方式(假设 FDConnection1 连接对象是否连接到IB数据库):

    uses
      FireDAC.Phys.IBWrapper;
    
    procedure TForm1.Button1Click(Sender: TObject);
    var
      IBDatabase: TIBDatabase;
    begin
      IBDatabase := TObject(FDConnection1.CliObj) as TIBDatabase;
    
      Memo1.Lines.Assign(IBDatabase.backout_count);
      Memo2.Lines.Assign(IBDatabase.delete_count);
      Memo3.Lines.Assign(IBDatabase.expunge_count);
    end;