联接sql 服务器问题

Question

ADOCONNECTION1.ConnectionString:=SQLSTRING+edit1.Text;
ADOCONNECTION1.Connected:=true;
     
if ADOCONNECTION1.Connected then
    SHOWMESSAGE('ok');
else
    SHOWMESSAGE('worng');

Answer 1

可以拦截到错误呀，我用的是Delphi6.

Answer 2

TRY
    ADOCONNECTION1.Connected:=true;
EXCEPT
  on EOleSysErr do
     SHOWMESSAGE('worng');
  end;

Answer 3

project project1.exe raised exception class EOleException with message '[DBNETLIB][ConnectionOpen (Connect()).]SQL sERVER 不存在或访问被拒绝这就是被中断的错误，因为我输入的服务器名不对
而everydayniceday(大卫) 提供的方法中，错误码EOleSysErr好像不存在，我用的也是d6