您可以通过
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;