关闭

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

8407人阅读 评论(1) 收藏 举报
分类:

使用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之后网络断开,再使用查询对象操作数据库时会重新连接数据库,有一定的数据延迟。所以使用这种解决办法虽然可以在断网后重连,但断网后的第一次数据库操作会有卡顿现象。
0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:1734312次
    • 积分:18855
    • 等级:
    • 排名:第468名
    • 原创:234篇
    • 转载:175篇
    • 译文:0篇
    • 评论:89条
    最新评论