怎样实现实时检测与数据库的连接是否正常

解决方案 »

  1.   

    用 timer控件应该可以....在里面检测连接是否正常
      

  2.   

    象楼上说的 用timer控件
    begin 
    try ADOconnection1.Connected := True; 
    except on E : Exception do begin MessageDlg(E.Message ,mtError, [mbOK], 0);//连接不成功! 
    Exit; 
    end; 
    end;
      

  3.   

    象楼上说的 用timer控件
    begin 
    try ADOconnection1.Connected := True; 
    except on E : Exception do begin MessageDlg(E.Message ,mtError, [mbOK], 0);//连接不成功! 
    Exit; 
    end; 
    end;
      

  4.   

    新建一個擴展名為:.udl的文件你就知道了!