adoconnection断线重连

adoconnection断线重连

通过捕获数据库断连的异常,实现重连。

procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
E: Exception);
begin
if (ADOConnection1.Errors.Count > 0) and (ADOConnection1.Errors.Item[0].Number = -2147467259) then
begin
ADOConnection1.Close;
ADOConnection1.Open;
end;
end;

  

posted @ 2020-03-05 09:40  delphi中间件  阅读(1176)  评论(1编辑  收藏  举报