用delphi＋ADO开发时如何判断ADO连接SQL2000数据库是否成功。

[quansui8]

用delphi＋ADO开发时，经常出现连接SQL2000数据库不成功。可关掉程序再连接时又好使了。有什么更好的办法解决。谢谢

[gechaosa]

if adoconnect1.connected=false then..............

[rockswj]

try
except

[zhlwyy]

if ADOConnection.Connected=false then
ADOConnection:=true;

[qizhanfeng]

try
connected:=true
except
showmessage('error');
end;

[sousouwjh]

if adoconnect1.connected then
begin
showmessage('連接成功');
end;

[onebody]

try
ADOConnection1.Connected := True;
ShowMessage('连接成功);
except
ShowMessage('连接失败');
end;

[kevinelly]

function checkconnect(s:string;ADOcon:TADOConnection):boolean;
begin
ADOCon:=TADOConnection.Create(nil);
ADOCon.ConnectionString:='';
ADOCon.Connected:=False;
ADOCon.LoginPrompt:=False;
ADOCon.ConnectionString:=s;
try
ADOCon.Connected:=True;
ADOCon.Free;
result:=True;
except
ADOCon.Free;
result:=False
end;
end;