delphi – 从IBX获取TIBDatabaseInfo的Firedac替换数据库信息

发布时间：2020-12-15 09:12:47 所属栏目：大数据来源：网络整理

导读：我需要将IBX(Interbase / Firebird)连接迁移到Firedac 但是我怎样才能获得Firedac的TIB DatabaseInfo组件所获得的特定供应商信息？我对计数器BackoutCount,DeleteCount,ExpungeCount感兴趣…… 如何通过Firedac检索此信息？解决方法您可以通过FireDAC.Phy

我需要将IBX(Interbase / Firebird)连接迁移到Firedac
但是我怎样才能获得Firedac的TIB DatabaseInfo组件所获得的特定供应商信息？
我对计数器BackoutCount,DeleteCount,ExpungeCount感兴趣……

如何通过Firedac检索此信息？

解决方法

您可以通过FireDAC.Phys.IBWrapper单元中的TIBDatabase对象获取此类信息.例如这种方式(假设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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!