简述ADO处理数据异步执行方式详细说明介绍

在ADO处理数据中,通过规定连接和命令文本,你可以创建一个Recordset 对象.对于游标的位置和类型Recordset有一些规定.你可以按下面的方法来读取数据，但是除了同步执行方式之外，ADO处理数据也提供了异步执行的方式

创新互联公司是一家集网站建设,巴彦淖尔企业网站建设,巴彦淖尔品牌网站建设,网站定制,巴彦淖尔网站建设报价,网络营销,网络优化,巴彦淖尔网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

而当ADO处理数据完毕之后，ADO会以事件的方式通知应用程序，此时应用程序可以再根据ADO执行的结果来采取相应的动作。使用异步执行方式有许多用途，例如，如果应用程序需要处理花费大量时间的动作，那么ADO可以选择以异步执行方式让ADO在后台执行，而让应用程序继续处理图形用户接口或用户输入的数据。

在ADO中使用异步执行方式非常简单，只需要对ADO数据集的ExecuteOptions属性值进行适当的设定即可。现在就让我们以一实际的范例应用程序来说明如何让ADO以异步的方式来处理数据

1) 在D e l p h i集成开发环境中关闭所有的项目。

2) 建立一个新的应用程序项目，在主窗体中放入TA D O C o n n e c t i o n对象连接到数据库。

3) 在主窗体中放入TA D O D a t a S e t组件。设定它的C o n n e c t i o n属性值为步骤2) 的TA D O C o n n e c t i o n，并且在它的C o m m a n d Te x t属性值中使用Select * from ADOTe s t D a t a s以取得所有的ADO处理数据。再设定它的A c t i v e属性值为Tr u e以打开范例数据表。

4) 放入TDataSource组件，设定它的DataSet属性值为步骤3) 加入的TADODataSet组件。#t#

5) 放入T D B N a v i g a t o r和T D B G r i d组件，设定它们的D a t a S o u r c e组件为步骤4加入的T D a t a S o u r c e组件。

6) 在主窗体中放入两个T B u t t o n组件以及一个T P r o g r e s s B a r组件，并且设定它的相关属性值。

7) ***在主窗体中放入一个TA D O C o m m a n d组件。设定它的C o n n e c t i o n属性值为步骤2) 的TA D O C o n n e c t i o n，并且在它的C o m m a n d Te x t属性值中使用S e l e c t count(*) from ADOTe s t D a t a s以便从A D O Te s t D a t a s数据表中取得所有数据的笔数。

8) 在主窗体的ADO处理数据序中撰写如下的程序代码：

 
 
 

  
  
  
p r o c e d u r e TForm1.FormActivate(Sender: TObject); 
  
  
  
v a r 
  
  
  
sRecNo : String; 
  
  
  
b e g i n 
  
  
  
ProgressBar1.Max := ADOCommand1.Execute.Fields.Item[0].Value; 
  
  
  
sRecNo := IntToStr(ProgressBar1.Max); 
  
  
  
Self.Caption := '共有' + sRecNo + ' 笔数据' ; 
  
  
  
e n d ; 
 
 
 

9) 双击窗体中的e o A s y n c F e t c h N o n B l o c k i n g按钮，并且在它的O n C l i c k事件处

分享标题：简述ADO处理数据异步执行方式详细说明介绍
文章源于：http://www.gawzjz.com/qtweb/news33/193983.html

网站建设、网络推广公司-创新互联，是专注品牌与效果的网站制作，网络营销seo公司；服务项目有等

广告

声明：本网站发布的内容（图片、视频和文字）以用户投稿、用户转载内容为主，如果涉及侵权请尽快告知，我们将会在第一时间删除。文章观点不代表本网站立场，如需处理请联系客服。电话：028-86922220；邮箱：631063699@qq.com。内容未经允许不得转载，或转载时需注明来源： 创新互联