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

于 2024-05-23 07:10:04 发布
阅读量509 收藏 12
点赞数 16
分类专栏： Delphi 文章标签： 数据库 spring java
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/delphigbg/article/details/139133997
版权

以前使用过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。
 
TFDMemTableFireDAC自家的内存表，三层必备的组件，也是非常重要，完全可以替代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;
 
TFDLocalSQLSQLite-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不同数据源之间的数据转移

                

        

        

    




    

      

        

            

              
                
                  蝈蝈(GuoGuo)
                
              
            

            

                关注
              
            

        

        

          
    
            
  • 
              
                
                
                
                
                    16
                
              
              
    点赞
    
            
    • 
            
  • 
              
                
                
                
              
              
    踩
    
            
    • 
            
  • 
              
                
                
                
                
                    12
                
              
              
    
                
    
                  
                    收藏
                  
                
    
              
    
              
    
                
    
                  觉得还不错?
                  
                    一键收藏
                  
                 
                
    
              
    
            
    • 
                
  • 
                  
                    打赏
                    
                  
                  
    打赏
    
                
    • 
          
  • 
            
    
              
              
            
    
              
              
              
                    0
              
            
            
    评论
    
          
    • 
          
  • 
          
    • 
          
  • 
            
              
            
              
    
            
              
                
            
    
          
    • 
        

      

      

            

                专栏目录
          










                



	

		

			

				
					
C++Builder ADO测试

				
			

			

				

					03-23
				

			

		

		

			
				
C++Builder ado连接测试，执行查询测试，自定义查询语句

			
		

	



                

              
                



	

		

			

				
					
MFC列表控件用ADO添加数据实例

					
最新发布

				
			

			

				

					05-03
				

			

		

		

			
				
MFC列表控件用ADO方式通过编辑框、组合框实时将数据写入ACESS数据库并在列表控件上显示。

			
		

	



                


  
              

                


	

		

			

				
					
ado 小测试

				
			

			

				

					weixin_33885253的博客
				

				

					06-27
					
					125
					
				

			

		

		

			
				
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using adoceshi.model;
using adoceshi.dataopration;

namespace adoceshi
{
...

			
		

	





	

		

			

				
					
FireDAC,ADO性能测试

				
			

			

				

					yhcad博客
				

				

					06-15
					
					4421
					
				

			

		

		

			
				
数据量2w行，字段30个

第一次open

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

第二次open
fd读取数据用时10毫秒，ado用时553毫秒



遍历所有记录

第一次

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

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

-------------------------------------...

			
		

	



		

			
		



	

		

			

				
					
ADO测试题

				
			

			

				

					weixin_33696822的博客
				

				

					06-24
					
					115
					
				

			

		

		

			
				
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using adoceshi.model;
using System.Data.SqlClient;


namespace adoceshi.d...

			
		

	





	

		

			

				
					
一个Entity Framework、ADO.NET查询性能测试

				
			

			

				

					weixin_30877755的博客
				

				

					07-30
					
					53
					
				

			

		

		

			
				
Entity Framework自然是会比ADO.NET性能慢点，这个不多说了。直接上结果。
本该用测试项目的，不过我建了个aspx。下面是随便测20遍得到的结果

补充！！把12行改成 list = db.Role.AsNoTracking().ToList();由于这只做查询，不需要上下文进行跟踪。效率瞬间提升平均3-5倍，超越SqlDataAdapter，（其实很多人用Sql...

			
		

	





	

		

			

				
					
ADO.NET数据连接池剖析

				
			

			

				

					09-11
				

			

		

		

			
				
ADO.NET数据连接池是.NET Framework中的一个重要特性，它在数据库应用程序中起到了优化性能的作用。连接池的出现主要是为了解决频繁建立和关闭数据库连接时所消耗的资源问题。在没有连接池的情况下，每次与数据库...

			
		

	





	

		

			

				
					
ADO与ADO.NET的区别与介绍

				
			

			

				

					10-27
				

			

		

		

			
				
 数据类型与性能** 由于ADO基于COM，数据类型受到COM规范的限制，数据转换可能涉及额外的编排工作，影响性能。而在ADO.NET中，数据类型与XML紧密关联，无需进行COM编排，这不仅使数据类型更加丰富，还减少了不必要的...

			
		

	





	

		

			

				
					
ADO数据访问接口培训教程.ppt

				
			

			

				

					11-12
				

			

		

		

			
				
ADO数据访问接口培训教程.ppt

			
		

	





	

		

			

				
					
性能测试脚本自动建立测试datapool应用

				
			

			

				

					03-23
				

			

		

		

			
				
DATAPOOLDataPool性能测试脚本自动建立测试datapool应用为了说明问题。我用分别用vb,delphi,DotNETMILY:宋体">实现一个简单添加用户的功能，后台用ACCESS数据库，例用ado通过odbc连接。1．分析程序实现的结构，是...

			
		

	





	

		

			

				
					
ADO的测试程序代码

				
			

			

				

					04-01
				

			

		

		

			
				
ADO的测试程序代码

			
		

	





	

		

			

				
					
delphi 官方提供的六十多个FireDAC例子

				
			

			

				

					05-23
				

			

		

		

			
				
FireDAC是一套独特的通用数据访问组件，用于为Delphi和C ++ Builder开发多设备数据库应用程序。凭借其强大的通用架构，FireDAC支持从Delphi到InterBase，SQLite，MySQL，SQL Server，Oracle，PostgreSQL，IBM DB2，SQL Anywhere，Access，Firebird，Informix等的本地高速直接访问。

基于10年为数据库后端编写本地驱动程序的经验，FireDAC被构建为一个强大的访问层，支持构建真实世界高负载应用程序所需的所有功能。 FireDAC为访问不同的数据库后端提供了一个通用的API，而不会放弃对特定数据库特定功能的访问，也不会影响性能。

它使开发人员能够专注于开发应用程序，而不是关注数据库交互的复杂性。它提供了一组现代功能丰富的组件来解决所有主要的RDBMS环境。它使用一组组件来解决所有支持的RDBMS类型。它通过提供以下方面来降低总体拥有成本：

    与单独的昂贵库相比，初始成本更低。
    学习和熟悉独特的强大图书馆所需的时间更少。
    针对不同数据库时的直接应用设计和开发。

			
		

	





	

		

			

				
					
60多个FireDAC官方实例

				
			

			

				

					04-25
				

			

		

		

			
				
60多个FireDAC官方实例
Sixty Plus FireDAC Sample Apps With Source To Make Accessing Databases Easy

			
		

	





	

		

			

				
					
xe7下动态使用FireDAC的示例

				
			

			

				

					11-26
				

			

		

		

			
				
DELPHI XE7 新出的FIREDAC连接方式，连接Oracle示例

			
		

	





	

		

			

				
					
简单使用ADO测试数据源

				
			

			

				

					它山之石，可以攻玉
				

				

					02-25
					
					1188
					
				

			

		

		

			
				
// testadodb.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"
#include 
#include 
using namespace std;
#import "C:\Program Files\Common Files\SYSTEM\ADO\msado1

			
		

	





	

		

			

				
					
ADO总结测试数据库

				
			

			

				

					david600656的博客
				

				

					09-18
					
					170
					
				

			

		

		

			
				
create database ADO测试
go
use ADO测试
go
create table Student
(
    Code        nvarchar(200)     not null   primary key,--学生编号，主键
    Name        nvarchar(200)     not null,              -...

			
		

	





	

		

			

				
					
ADO  CreateParameter  测试程序 （绑定参数类型和数据库中不一样是否能正确执行）

				
			

			

				

					
				

				

					01-09
					
					1458
					
				

			

		

		

			
				
#define INITGUID#import "c:/Program Files/Common Files/System/ADO/msado15.dll" /no_namespace rename("EOF", "EndOfFile")#include #include #include #include VOID   main(){ HRESULT            hr; IAD

			
		

	





	

		

			

				
					
如何使用ADO连接EXCEL数据表获取数据

				
			

			

				

					06-01
				

			

		

		

			
				
使用 VBA 中的 ADO 连接 Excel 数据表获取数据需要以下步骤：

1. 引用 Microsoft ActiveX Data Objects 库。

在 VBA 编辑器中，依次点击菜单栏中的“工具”→“引用”，勾选“Microsoft ActiveX Data Objects 2.x 库”（其中的“x”表示版本号，您可以选择您电脑上已安装的版本）。

2. 创建 ADO 连接对象。

在 VBA 代码中，使用 `CreateObject` 方法创建 ADO 连接对象，并设置连接字符串。例如，以下代码创建了一个连接到 Excel 工作簿的连接对象：

```
Dim cn As Object
Set cn = CreateObject("ADODB.Connection")
cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\excel\workbook.xlsx;Extended Properties=""Excel 12.0;HDR=YES"";"
```

其中 `Provider` 参数指定了使用的 OLE DB 提供程序，这里使用的是 Microsoft.ACE.OLEDB.12.0，它可以连接 Excel 文件。`Data Source` 参数指定了 Excel 文件的路径和文件名，`Extended Properties` 参数指定了 Excel 文件的属性，例如 `HDR=YES` 表示第一行是标题行。

3. 打开连接。

使用 `Open` 方法打开连接：

```
cn.Open
```

4. 创建 ADO 命令对象。

在 VBA 代码中，使用 `CreateObject` 方法创建 ADO 命令对象，并设置 SQL 语句。例如，以下代码创建了一个查询 Excel 数据表的命令对象：

```
Dim cmd As Object
Set cmd = CreateObject("ADODB.Command")
cmd.ActiveConnection = cn
cmd.CommandText = "SELECT * FROM [Sheet1$]"
```

其中 `ActiveConnection` 属性指定了连接对象，`CommandText` 属性指定了 SQL 语句，这里查询了名为“Sheet1”的数据表的所有数据。

5. 执行命令并获取数据。

使用 `Execute` 方法执行命令，并使用 `Recordset` 属性获取查询结果。例如，以下代码执行命令并将结果保存到 `rs` 变量中：

```
Dim rs As Object
Set rs = cmd.Execute
```

您可以使用 `rs` 变量中的方法和属性获取查询结果，例如 `rs.Fields` 获取所有字段名，`rs.GetRows` 获取所有数据行。

6. 关闭连接。

使用 `Close` 方法关闭连接：

```
cn.Close
```

完整的示例代码如下：

```
Sub GetExcelData()
    Dim cn As Object
    Dim cmd As Object
    Dim rs As Object
    
    '创建连接对象
    Set cn = CreateObject("ADODB.Connection")
    cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\excel\workbook.xlsx;Extended Properties=""Excel 12.0;HDR=YES"";"
    
    '打开连接
    cn.Open
    
    '创建命令对象
    Set cmd = CreateObject("ADODB.Command")
    cmd.ActiveConnection = cn
    cmd.CommandText = "SELECT * FROM [Sheet1$]"
    
    '执行命令并获取数据
    Set rs = cmd.Execute
    Debug.Print rs.Fields(0).Name
    Debug.Print rs.GetRows(10)
    
    '关闭连接
    cn.Close
End Sub
```

注意，以上代码仅供参考，您需要根据您的实际情况进行修改。

			
		

	



              



  
“相关推荐”对你有帮助么？

  

      
    
          
  • 
              
    
                  
                  
              
    
              
    非常没帮助
    
          
    • 
          
  • 
              
    
                  
                  
              
    
              
    没帮助
    
          
    • 
          
  • 
              
    
                  
                  
              
    
              
    一般
    
          
    • 
          
  • 
              
    
                  
                  
              
    
              
    有帮助
    
          
    • 
          
  • 
              
    
                  
                  
              
    
              
    非常有帮助
    
          
    • 
      

      

      

          
          提交
      

      

  




          




        



    





    



      

      

        
      

      





	

		评论	
	

	
	




  

    

      添加红包
      
    

    

      

        
        

          
          
        

        
请填写红包祝福语或标题

      

      

        
        

          
          个
        

        
红包个数最小为10个

      

      

        
        

          
          元
        

        
红包金额最低5元

      

      

        
        

          当前余额3.43元
          前往充值 >
        

      

      

        

          需支付：10.00元
        

        
        
      

    

  





  

    
    
  

  

    
    
  








  

    

      

        

          

            
            
成就一亿技术人!

          

          

        

        

          

          

            领取后你会自动成为博主和红包主的粉丝
            规则
          

        

      

      

        

          

            
              
            
            

              
hope_wisdom
 发出的红包
            

          

        

        

          

          

          

        

      

    

    

  





	
打赏作者

	

		

		
			
		
		

		

			
蝈蝈(GuoGuo)

			
你的鼓励将是我创作的最大动力

		

	

	

			

	

	

    ¥1
    ¥2
    ¥4
    ¥6
    ¥10
    ¥20
	

	

		

			

				

					扫码支付：¥1
				

				

					

					
					获取中
					

				

				

					
					
					扫码支付
				

			

		

		

			
您的余额不足，请更换扫码支付或充值

			
打赏作者

		

	



      
      

      
实付元

      
使用余额支付

      

        

          

            
            点击重新获取
          

        

        
扫码支付

      

      

        
          
            
          
          
        
      

      

        
        钱包余额
          0
          

            
            

              

                
抵扣说明：

                
 1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
 2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

              

            

          

      

      余额充值