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

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

firedac delphi

4

Livius · 技术社区 · 10 年前

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

如何通过Firedac检索此信息?

1 回复 | 直到 10 年前

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;

推荐文章

Jan Doggen · TFDMoniFlatFileClientLink不规则地跟踪到文件

7 年前

Jan Doggen · FDManager。DeleteConnectionDef不删除连接定义

7 年前

Alper · 如何通过FireDac(Delphi)从FireBird数据库中传输zlib压缩的图像

7 年前

Anderson · Delphi中的SQL Server和数据库事务[关闭]

7 年前

Rick Hollerich · TFDQuery和SQLite:字段的类型不匹配,应为:LargeInt actual:WideString

7 年前

Mawg says reinstate Monica · Sqlite自动时间戳-插入,然后在DB感知网格上显示

10 年前

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

10 年前