Delphi多线程下的ADO编程

原创 2002年11月02日 00:27:00
 

Delphi多线程下的ADO编程<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

 

 

前言:

几个月前接到一个任务:将一后台程序访问数据库的方式从BDE改为ADO,原因是由于业务量的增加,通过BDE不论是向数据库写入数据还是从数据库中读出数据的速度都变得无法忍受,大家都知道ADO在数据库访问速度方面比BDE要快的多了(我写了一个测试程序使用ADO比使用BDE快了近100!)。这个任务还不简单嘛,只要将BDE的控件更换成ADO的再修改一些代码不就搞定了!我当时确实是这么想的,而且用了不到一个小时就搞定,测试运行一段没问题,大功告成了,我想。谁知道一个恶梦就此开始,我的愚昧无知使我在程序中埋下了一个超级炸弹,它的威力不次于9.11撞击世贸大厦的两架客机,整个系统被它无情的催跨。程序在运行很长一段时间候捕获到一系列的异常:

OLE error 800A0E7F

Access violation at address 00135770. Write of address 005D8B78

Access violation at address 00178EC6. Read of address FFFFFFFF

Access violation at address 1F499BDD in module 'msado15.dll'. Read of address 0000000C

…….

接下来我们的系统就像世贸大厦一下悲壮的倒下了。

 

为什么?

       为什么?程序在为改动之前使用BDE运行得好好的,我并没有更改程序的结构啊?我十分的迷惑,当然要想解决问题一切都得从错误代码开始。

   OLE error 800A0E7F:什么咚咚来的?它什么意思?什么原因引起的?我找了半天也没有在我的系统里找到它的说明,好在现在网络发达,也许有人遇到跟我一样的问题吧,于是我用OLE error 800A0E7F作为关键字搜了一下,嘿嘿,果真被我找到了:

>0x800A0E7F Operation cannot be performed while executing
> asynchronously.

异步执行时操作不能被执行(完成),还是不太清楚错误的原因,于是我在一个网站发布了帖子求助,一些人告诉我ADO线程不安全,需要线程同步,事实上我的程序做了同步,而且针对不同的应用使用了多个ADOConnection,我想我应该自己动手来好好研究一下这个问题了,它很意思。接下来我该好好分析我的程序并做一系列的测试来找到那个炸弹。

 

找出炸弹

 

    在我的程序里所有访问数据库都是通过一个DataModule单元TDataModule1类提供的接口来完成,共有三个线程使用到了TDataModule1的对象DataModule1DataModule1是一全局变量,下面是数据库的访问模式的结构模型图。(实际结构要复杂很多)

 

 

<?xml:namespace prefix = v ns = "urn:schemas-microsoft-com:vml" />

数据库:

ADOConnection1

ADOConnection2

Table1

Table2

ADOQuery1

ADOQuery3

ADOProcedure1

ADOProcedure2

UpdateQuery

ADOQuery2

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 


1

说明:

UpdateQuery

 


                   ADOQuery控件用来修改table2记录,①代表为线程1所有,

白色代表使用频率很低(颜色越深说明使用频率越高)

 

ADOQuery2

 


                   查询table2③代表为线程3所有,使用频率较高

 

ADOQuery3

 


                   查询table2③代表为线程2所有,使用频率很高

 

ADOProcedure1

           

                      ADO存储过程控件向表table2插入数据,属于线程1频繁使用

 

ADOProcedure2

 


修改ADOProcedure1插入的记录,属于线程1频繁使用

 

其中线程3和线程2使用ADO控件时没有加锁,而线程1的所有访问都加锁了(这样做毫无作用)

 

程序的结构出来了,问题在哪里呢?接下来我写了一个小小的测试程序,该程序的结构与上面相同,它拥有三个线程和一个DataMoule单元,线程一通过ADOQuery1查询数据库DBTesttable1的记录,线程二通过ADOQuery2table1中插入记录,线程三通过ADOQuery3修改table1中最后一条记录的某个字段。ADOQuery1ADOQuery2ADOQuery3都通过ADOConnection1与数据库DBTest1建立连接,一开始,所有的线程都不做同步,运行,OK!错误出来了其中两个错误正是我所想要的,这就是我的程序报的错啊。

 

图二

 

接下来我将三个ADOQuery都加上锁,再运行没问题,我又将ADOQuery分别通过三个不同的ADOConnection来连接数据库且不加锁也没有问题。看来我是找到那个可恶的炸弹了,怎么拆了它?

 

排除炸弹

 

炸弹找到了,我该怎么拆它?是简单的做线程同步还是每个线程都是用一个ADOConnection?这下我再也不敢蛮干了,我得好好看看这方面的资料,在Delphi帮助文档,《Using the main VCL thread》我找到了下面一段话:

……

Data access components are thread-safe as long as each thread has its own database session component. The one exception to this is when you are using Access drivers. Access drivers are built using the Microsoft ADO library, which is not thread-safe.

…..

同样在Delphi的帮助文档《Managing multiple sessions》中给我明确的建议:

……

If you create a single application that uses multiple threads to perform database operations, you must create one additional session for each thread.

…..

喔找到了:ADO控件是线程不安全的,所以如果你的程序是使用多线程访问数据库的话你应该确保每个线程都有自己的会话。

事实上在另外一本书《Delphi 4编程技术内幕》一书在谈到线程安全数据库访问也有相同的建议,不过台湾李维先生在他的Delphi 5.X ADO/MTS/COM+高级程序设计篇》却说,如果你的程序不是连接多个数据库的话,最好同一数据库使用一个连接,不要使用多个连接。怎么办?谁对谁错?为什么要使用一个连接呢?这主要是从服务器来考虑,因为数据库服务器需要为每个连接分配一定的资源并对其进行维护,连接数越多服务器方所耗的资源就越多,服务器的性能也就越差,所以要尽可能的减少客户端的连接数。好在我的程序是作为服务器程序增加一些连接对数据库服务器的影响不会很大,现在我可以重新设置我的数据库访问结构模型了

 

数据库:

ADOConnection1

ADOConnection2

Table1

Table2

ADOQuery1

ADOQuery3

ADOProcedure1

ADOProcedure2

UpdateQuery

ADOQuery2

ADOConnection2

 

 

 

 

 

 


                                                                              

 

 

 

 

 

 

 

 

 

 

 

 

图三

 

我增加了一个ADOConnection以保证每个线程都有一个自己连接(会话),从而避免出现资源冲突,我的问题是不是解决了呢?是的,这个问题已经解决了,将我的程序与数据库放在同一台机器上运行没有问题,但是当程序与数据库服务器不在同一台机器上运行时会出现一个新的问题。

 

[DBNMPNTW]ConnectionWrite(writeFile())错误

     这个错误不是多线程引起的,而是Micrsoft自己的一个问题,产生该问题的原因可能是因为网络异常而引起的,可以通过SQLServer客户端的默认的网络协议named pipes network propocol 改为 TCP/IP Sockets具体做法请参考Micrsoft技术支持网站的《Microsoft Knowledge Base Article - Q178040

 

总结

   由于ADO控件的线程不安全性(事实上这种不安全性是来自Micrsoft ADO Library,所以在其它开发工具中也存在同样的问题)因此在使用多线程ADO编程时应该注意一下问题:

 

第一:要保证每个线程都拥有自己的会话。

第二:作为客户端程序应该尽可能的减少与数据库库服务器的连接数。

第三:在退出线程之前确保释放所有的资源。

 

参考文献:

1、李维Delphi 5.X ADO/MTS/COM+高级程序设计篇》 机械工业出版社 2000

2、Charlie CalvertDelphi 4编程技术内幕》潇湘工作室 机械工业出版社 1999

Delphi多线程下的ADO编程

前言: 几个月前接到一个任务:将一后台程序访问数据库的方式从BDE改为ADO,原因是由于业务量的增加,通过BDE不论是向数据库写入数据还是从数据库中读出数据的速度都变得无法忍受,大家都知道ADO在数...
  • youthon
  • youthon
  • 2013年05月06日 16:13
  • 3128

Delphi下的原生ADO使用方法

本文向您揭示在Delphi中使用ADO是如何轻而易举,结合了ADO的Delphi应用程序,将不再依赖于BDE。 ADO的精髓在于利用简单的COM指令来快速方便的访问ODBC数据源,微软的表格、...
  • Hmillet
  • Hmillet
  • 2016年03月30日 09:55
  • 2444

Delphi 多线程编程(1)

本文的内容取自万一博客,并重新加以整理,在此留存仅仅是方便自己学习和查阅。所有代码均亲自测试 delphi7下测试有效。图片均为自己制作。 多线程应该是编程工作者的基础技能, 但这个基础我从来没...
  • lailai186
  • lailai186
  • 2013年04月09日 07:55
  • 2586

Delphi ADO数据操作封装类

{ 将数据集操作方面的东西全部封装成一个单独的类 TcustomAdoDataSet是TadoQuery、TadoTable、TadoDataSet、TadoCommand的公共祖先类 应...
  • wozengcong
  • wozengcong
  • 2013年12月30日 12:06
  • 1267

Delphi中用ADO控件连接数据库例子

概述: 一、说明 最近在写个“数据库管理系统框架程序”,其中封装了几个连接数据库的函数,觉得挺好用,拿出来与大家分享下,希望能对大家有点用处。 我以连接oracle和access为例,其余数据...
  • wozengcong
  • wozengcong
  • 2013年09月11日 16:55
  • 1927

VC+ADO+多线程高效、安全的读写数据库

一、问题介绍项目需要实时获取并处理40路相机的现场图像,并将处理结果写入到数据库,采用的方案是使用多线程技术,创建40个工作者线程,每个线程建立一个数据库连接。本文仅将项目中遇到的问题以及解决方法做些...
  • HolaMirai
  • HolaMirai
  • 2016年09月05日 16:31
  • 2300

DELPHI对ADO封装(入门版)

应用场景简介: Delphi XE4(含第三方插件DBGRIDEH和自定义消息框MsgBox)+ORACLE 11G R2环境下,登录窗口点击〖登录〗,隐藏FormLogin,弹出FormMianOp...
  • wozengcong
  • wozengcong
  • 2013年09月12日 10:45
  • 1318

64位程序,利用ADO连接Oracle数据库

刚好手头项目解决了ADO连接Oracle数据库的问题,z
  • sisyphus_zhou
  • sisyphus_zhou
  • 2014年09月29日 16:14
  • 6642

delphi使用ADO在sql数据库存取图片的方法

delphi使用ADO在sql数据库存取图片的方法 新手参考,老鸟绕行 我一直不认为能把代码写的和天书一样的程序员是好的程序员,那不过是因为我真的对delphi也就是略懂皮毛,太深了看不懂。 网上...
  • leavesguth
  • leavesguth
  • 2017年07月27日 11:33
  • 258

delphi 事务处理SQL语句

方法一(利用adoconnection.exe(sqlstate)): adoconnection1.begintrans;//开始事务 try  adoconnection1.execute(...
  • chinajobs
  • chinajobs
  • 2016年11月07日 12:11
  • 1262
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi多线程下的ADO编程
举报原因:
原因补充:

(最多只允许输入30个字)