Delphi使用ADO连接网络数据库,断网后重连问题

转载 2013年12月05日 14:23:44

使用TADOConnection对象连接网络数据库(以MySQL为例),当本地网络断开时,连接对象的Connected属性不会发生变化,一直是True。

即使将连接对象的KeepConnection属性设置为false,若网络断开,在不尝试连接数据库的情况下,Connected属性也是true;在尝试连接数据库失败之后,Connected属性才变为false。

  1. var  
  2.   ADOCon: TADOConnection;  
  3. begin  
  4.   //to do 创建ADOCon对象,并为ADOCon赋值连接字符串,代码省略  
  5.    
  6.   ADOCon.KeepConnection := false;  
  7.   //此时网络连接正常  
  8.   ADOCon.Open;  //或者ADOCon.Connected := true;  
  9.   ADOCon.Connected; //该属性值为true  
  10.   //断开网络连接  
  11.   ADOCon.Connected; //该属性值为true  
  12.   ADOCon.Open; //此时连接出现异常  
  13.   ADOCon.Connected; //该属性值为false  
  14. end;  


因此在代码中无法使用Connected属性来判断ADO对象是否连接正常;而且如果使用此连接对象在查询数据库异常后,直接关闭再打开连接会没有效果,无法连接成功,必须重新打开运行程序,或者重新创建连接对象。

针对这种情况,网络上通用的解决办法就是增加一个timer定时器,创建新的测试连接对象定时去连接数据库,若连接失败则关闭连接对象并重连,以实现断网后的自动重新连接,在断网后操作数据库时不出现卡顿现象。

  1. procedure TForm1.tmr1Timer(Sender: TObject);  
  2.   function TestConnected: Boolean;  
  3.   var  
  4.     aCon: TADOConnection;  
  5.   begin  
  6.     Result := False;  
  7.     aCon := TADOConnection.Create(nil); //创建临时对象  
  8.     try  
  9.       aCon.ConnectionString := const_DBCON_MYSQL; //连接字符串  
  10.       try  
  11.         aCon.Connected := True;  
  12.         Result := True;  
  13.       except  
  14.         Exit;  
  15.       end;  
  16.     finally  
  17.       aCon.Free;  
  18.     end;  
  19.   end;  
  20. begin  
  21.   if not TestConnected then //使用临时对象判断数据库连接状况  
  22.   begin  
  23.     FADOCon.Close; //根据临时对象连接状况操作连接对象,若无法连接则关闭连接对象,若连接正常则打开连接对象  
  24.   end  
  25.   else  
  26.   begin  
  27.     if FADOCon.Connected then  
  28.       FADOCon.Connected := True;  
  29.   end;  
  30. end;  


 

不过,如果断网或者数据库挂掉的情况非常少,而且对断网后查询数据出现卡顿现象没有特殊要求,那么可以在每次操作完数据库后关闭连接对象,这样即便是断网状态下,连接也是关闭的,查询数据库出现异常也不会影响网络恢复后的数据库操作。

  1. procedure TForm1.btn3Click(Sender: TObject);  
  2. begin  
  3.   try  
  4.     FADOQuery.Close;  
  5.     FADOQuery.Connection := FADOCon;  
  6.     FADOQuery.SQL.Text := 'select * from fp_kpxx';  
  7.     FADOQuery.Open; //连接对象关闭状态下,查询时会自动连接  
  8.     ShowInfoDlg(IntToStr(FADOQuery.RecordCount));  
  9.     FADOCon.Close;  
  10.     //此时断开网络  
  11.      FADOQuery.Open; //此时出现异常  
  12.      FADOCon.Close;  
  13.     //此时恢复网络  
  14.      FADOQuery.Open; //此时查询正常  
  15.      FADOCon.Close;  
  16.   except  
  17.     ShowInfoDlg('查询失败');  
  18.   end;  
  19. end;  
连接对象Close之后若网络未断开,然后使用TADOQuery对象操作数据库时不会重新连接数据库,没有时间延迟;若连接对象Close之后网络断开,再使用查询对象操作数据库时会重新连接数据库,有一定的数据延迟。所以使用这种解决办法虽然可以在断网后重连,但断网后的第一次数据库操作会有卡顿现象。

相关文章推荐

ADO 数据库连接断开重连

     在使用ADO的过程中,最理想的操作流程:     程序启动,打开数据库连接,在程序退出前,一直保持这个连接。程序退出时,才关闭该连。    最理想的状态的前提:该数据库连接在中间不会断开。不...

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

Delphi7高级应用开发随书源码

  • 2003年04月30日 00:00
  • 676KB
  • 下载

Delphi使用ADO连接网络数据库,断网后重连问题

使用TADOConnection对象连接网络数据库(以MySQL为例),当本地网络断开时,连接对象的Connected属性不会发生变化,一直是True。 即使将连接对象的KeepConnection属...
  • jhq1990
  • jhq1990
  • 2013年09月16日 16:50
  • 2430

adoconnection连接数据库,长时间不用,连接失败

程序打开,过一段时间不操作。好像是连接断开了一样,提示连接失败,要退出程序重进就好了。 为什么呢 同样的服务器,同样的网路,貌似VF开发的程序是好的! ADOConnection的Kee...
  • ksrsoft
  • ksrsoft
  • 2013年04月19日 10:22
  • 1927

网线拔下来,本机SQLSERVER连不上的解决方法

在一台没联网的电脑上安装SQLSERVER2000,当使用控件连接数据库时,无法连接,提示:sql server不可用或不存在.无法连接:sql server不存在或拒绝网络访问。 以前一直做一个水...
  • gxsky
  • gxsky
  • 2015年01月30日 18:02
  • 845

关于因和数据库库断开数据源没有自动重连变无效的问题

转自 http://agapple.iteye.com/blog/791943 可以后另一篇做对比:http://agapple.iteye.com/blog/772507 ...

用Delphi即时判断当前的网络的连接方式

分类: 判断网络的是否连接或者连接方式,比较重要的一点就是是不是即时判断,如果你明明无连接,判断出来却说你有,连接上了,却说你还未连接,下面要介绍的两个方法中 InternetGetConne...

SOCKET 检测链接是否断线的三种方法

目前主要有三种方法来实现用户掉线检测:SO_KEEPALIVE ,SIO_KEEPALIVE_VALS 和Heart-Beat线程。 下面我就上面的三种方法来做一下介绍。 (1)SO_KEEPALIV...

数据库连接断开后重新连接问题解决方案

程序正常连接状态下,服务器重启、或网络断开等原因将导致数据库连接非正常断开,这时ADOConnection1.Connected、ADOConnection1.State都显示是连接状态(分别为Tru...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Delphi使用ADO连接网络数据库,断网后重连问题
举报原因:
原因补充:

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