如何处理数据库连接中断的异常？

Question

如何处理程序在运行过程中数据库连接中断的问题，使程序能自动处理异常并自动重连？

Answer 1

procedure TForm1.ADOConnection1AfterDisconnect(Sender: TObject);
begin
  Timer1.Enabled := false;
end;procedure TForm1.Timer1Timer(Sender: TObject);
begin
  if ADOConnection1.Connected then
  begin
    Timer1.Enabled := false;
    Exit;
  end;
  try
    ADOConnection1.Connected := true;
  except
  end;
end;

Answer 2

可以参考
http://expert.csdn.net/Expert/topic/2578/2578358.xml?temp=.302273