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;