adoconnection断线重连
uses ComObj;
procedure TForm1.ApplicationEvents1Exception(Sender: TObject; E: Exception);
var
I: integer;
begin
//请执行如下命令或者其他方法强制产生数据库连接断开情况,以触发如下异常。
//net stop MsSqlServer
//net start MsSqlServer
if (E is EOleException) and ((E as EOleException).ErrorCode= -2147467259) then
begin
ADOConnection1.Connected := False;
try
ADOConnection1.Connected := True;
except On E2: Exception do
begin
MessageDlg('重连数据库发生错误:'#13 + E2.Message, mtError, [mbOK], 0);
end;
end;
end;
end;