delphi ADOCONNECTION异常拦截

delphi ADOCONNECTION错误拦截
错误框标题：

  Debugger Exception Notification

内容：
  Project KJXX.exe raised exception class EOleException with message '[DBNETLIB][ConnectionOpen(Connect()).]SQLServer 不存在或拒绝访问。'.Process stopped. Use Step or Run to continue. 


1、这个错误是执行什么发出的？
2、如何拦截？

[解决办法]
连接字符串是否有问题
网络是否有问题
用户名密码是否有问题

try...except
[解决办法]
这是找不到SQL服务器，IP/计算机名错了，或者网络不通，或者服务嚣有防火墙...
用户名/密码错误是提示登陆失败的...

1.执行Connected:=True的时候或者Open方法;或者其它数据集如ADOQuery.open时(会设置Connected:=True)2.try
ADOConnection.Connected:=True;
except
on E: Exception Do
Begin MessageDlg (E.Message, mtError, [mbOk], 0); End;
End;
[解决办法]
try

except

end;
在调试中还是会弹出来的，直接运行EXE就可以了