如何测试ADOconnection连接数据库时是否连接成功？

Question

try
adoconnection.active:=true;
except
showmessage("连接不成功")
end;

Answer 1

大哥
adoconnection怎么没有 active属性呀adotable有我要测试adoconnection是否连接？

Answer 2

try
  Open
except
  showmessage("连接不成功")
end

Answer 3

adoconnection有Connected属性
try
  adoconnection.Connected:=true;
except
  showmessage("连接不成功")
end;

Answer 4

try
    ADOConnection1.Connected:=True;
    MessageDlg('连接不成功',mtInformation,[mbOK], 0);
    ADOConnection1.Connected:=False;
  except
    showmessage('连接不成功);
    Exit;
  end;