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;是不行的
begin
F_DM.ADOCon.connected := False;
F_DM.ADOCon.ConnectionString := '数据源';
F_DM.ADOCon.connected := True; ---- (3)
end;
当执行到(3)时如果是一个不存在的数据源时程序会在一段时间后给出错误提示,如果我要在这个时间段内强制关闭此连接,也就是不再提示错误,该如何操作?
注:直接F_DM.ADOCon.connected := False;是不行的
begin
F_DM.ADOCon.connected := False;
F_DM.ADOCon.ConnectionString := '数据源 ';
try
F_DM.ADOCon.connected := True; ---- (3)
except
end;
end;
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;
这不是一个捕获异常的问题
就如两位的程序来说:
当执行到F_DM.ADOCon.connected := True;时如果数据源是不存在的,
这个连接过程要持续45秒左右才给出连接错误的提示。
而我的意思是在这个45稍内怎么样人为干预其它结束连接操作,以便我更换新的地址重新连接
再次感谢,希望继续关注!
我试着设置5到60秒,效果一样,怎么就体现不出来这个连接超时限制呢?