delphi FireDAC与ADO读写数据的性能测试

Delphi FireDAC与ADO读写数据的性能测试

FireDAC,ADO性能测试

以前使用过BDE、ADO、DBX等数据引擎，后来发现它们都没有UNIDAC好用，

所以在很长的一段时间内中间件都使用UNIDAC作为数据引擎。

偶然的机会，使用了DELPHI XE5自带的FIREDAC数据引擎，在开发了几个项目以后

发现它完全可以同UNIDAC相媲美，但UNIDAC购买费用是几万美刀，而FIREDAC是免费的。

数据量2w行，字段30个

第一次open

fd读取数据用时363毫秒，ado用时783毫秒

第二次open

fd读取数据用时10毫秒，ado用时553毫秒

遍历所有记录

第一次

fd读取数据用时2438毫秒，ado用时5590毫秒

第二次

fd读取数据用时1988毫秒，ado用时5548毫秒

FireDac 组件说明一

TFDManager 连接定义和Connect连接管理

TFDConnection

数据库连接组件，支持三种连接方式：1.持久定义（有一个唯一名称和一个配置文件，可以由FDManager管理）

例：

uses

FireDAC.Comp.Client, FireDAC.Stan.Intf;

var

oDef: IFDStanConnectionDef;

begin

oDef := FDManager.ConnectionDefs.AddConnectionDef;

oDef.Name := 'MSSQL_Connection';

oDef.DriverID := 'MSSQL';

oDef.Server := '127.0.0.1';

oDef.Database := 'Northwind';

oDef.OSAuthent := True;

oDef.MarkPersistent;

oDef.Apply;

.....................

FDConnection1.ConnectionDefName := 'MSSQL_Connection';

FDConnection1.Connected := True;

end;

2.私有定义（有一个唯一名称可以由FDManager管理，无配置文件）

例：

var

oParams: TStrings;

begin

oParams := TStringList.Create;

oParams.Add('Server=127.0.0.1');

oParams.Add('Database=Northwind');

oParams.Add('OSAuthent=Yes');

FDManager.AddConnectionDef('MSSQL_Connection', 'MSSQL', oParams);

.....................

FDConnection1.ConnectionDefName := 'MSSQL_Connection';

FDConnection1.Connected := True;

end;

3.临时定义（没有名称和配置文件，不能由FDManager管理，运行时将参数写入params属性）

例：

uses

FireDAC.Phys.IBDef, FireDAC.Phys.IBWrapper;

......

FDConnection1.DriverName := 'IB';

with FDConnection1.Params as TFDPhysIBConnectionDefParams do begin

Protocol := ipTCPIP;

Server := '127.0.0.1';

Database := 'c:\IB\employee.gdb';

UserName := 'sysdba';

Password := 'masterkey';

end;

FDConnection1.Connected := True;

2. FDConnection1.ConnectionString := 'DriverID=MSSQL;Server=127.0.0.1;Database=Northwind;User_name=sa';

FDConnection1.Connected := True;）

end;

TFDTransaction 数据库事务管理

TADCommand 执行SQL语句。不返回结果

TFDTableAdapter 提供应用程序与数据之间的通信

TFDSchemaAdapter

集中缓存更新。非常重要且实用的组件。先要将数据集,设置CachedUpdates属性为True。

TFDMemTable FireDAC自家的内存表，三层必备的组件，也是非常重要，完全可以替代ClientDataSet

FDQuery 类似于ADOQuery的组件，直接SQL语句并存储返回结果

TFDStoredProc 执行服务器存储过程

TFDTable 类似于ADOTable,数据库表数据集

FDUpdateSQL 生成添加，删除，修改SQL语句

TFDMetaInfoQuery 查询数据源信息

TFDEventAlerter

负责处理数据库事件通知

使用TFDEventAlerter类来处理数据库事件通知。

FDEventAlerter1.Options.Kind := 'DBMS_ALERT';

FDEventAlerter1.Names.Text := 'Customers';

FDEventAlerter1.Options.Synchronize := True;

FDEventAlerter1.Options.Timeout := 10000;

FDEventAlerter1.OnAlter := DoAlert;

FDEventAlerter1.OnTimeout := DoTimeout;

FDEventAlerter1.Active := True;

........

procedure TForm1.DoAlert(ASender: TFDCustomEventAlerter;

const AEventName: String; const AArgument: Variant);

begin

if CompareText(AEventName, 'Customers') = 0 then

qryCustomers.Refresh;

end;

procedure TForm1.DoTimeout(ASender: TObject);

begin

qryCustomers.Refresh;

end;

TFDLocalSQL SQLite-based本地SQL引擎

TFDGUIxErrorDialog 错误对话框

TFDGUIxLoginDialog

登陆对话框

with FDGUIxLoginDialog1.VisibleItems do begin

Clear;

Add('Server');

Add('User_name=Benutzer');

Add('Password=Kennwort');

Add('OSAuthent');

end;

FDConnection1.LoginDialog := FDGUIxLoginDialog1;

FDConnection1.Connected := True;

TFDGUIxAsyncExecuteDialog 这个对话框显示了SQL查询执行的进展

TFDGUIxScriptDialog 这个对话框显示了一个SQL脚本执行进展

TFDGUIxWaitCursor 数据库游标控制，这个是强行加到FireDAC应该程序中的

TFDMoniRemoteClientLink 使用TFDMoniRemoteClientLink组件链接FDMonitor跟踪功能,应用程序和设置

TFDMSAccessService 实现Microsoft Access数据库的创建、删除、压缩和修复服务

TFDScript 实现SQL脚本引擎,能够执行一系列SQL查询

TFDBatchMove 不同数据源之间的数据转移

来源：http://www.xuexidashi.vip/h-nd-1263.html#_np=125_826

推荐分享