procedure ButtonOnClick(sender:Tobject);
begin
  F_DM.ADOCon.connected := False;
  F_DM.ADOCon.ConnectionString := '数据源';
  F_DM.ADOCon.connected := True; ---- (3)
end;
当执行到(3)时如果是一个不存在的数据源时程序会在一段时间后给出错误提示,如果我要在这个时间段内强制关闭此连接,也就是不再提示错误,该如何操作?
注:直接F_DM.ADOCon.connected := False;是不行的 

解决方案 »

  1.   

    procedure ButtonOnClick(sender:Tobject);
    begin
      F_DM.ADOCon.connected := False;
      F_DM.ADOCon.ConnectionString :=  '数据源 ';
      try
        F_DM.ADOCon.connected := True; ---- (3)
      except
      end;
    end; 
      

  2.   

    procedure ButtonOnClick(sender:Tobject); 
    begin 
      F_DM.ADOCon.connected := False; 
      F_DM.ADOCon.ConnectionString :=  '数据源 '; 
    try
    F_DM.ADOCon.connected := True; ---- (3) 
    except
      showmessage('数据源有错');
      F_DM.ADOCon.connected := False;
      end;
    end; 
      

  3.   

    谢谢楼上两位朋友的跟贴
    这不是一个捕获异常的问题
    就如两位的程序来说:
    当执行到F_DM.ADOCon.connected := True;时如果数据源是不存在的,
    这个连接过程要持续45秒左右才给出连接错误的提示。
    而我的意思是在这个45稍内怎么样人为干预其它结束连接操作,以便我更换新的地址重新连接
    再次感谢,希望继续关注!
      

  4.   

    设置这个时间ConnectionTimeOut时其它属性有什么要求呢?
    我试着设置5到60秒,效果一样,怎么就体现不出来这个连接超时限制呢?