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

Question

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

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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;