怎样用最快的方法检测数据库是否连通？

Question

我现在是这样检测数据库是否连通的：
adoTable1.active:=true;
if adoTable1.active then
  showmessage('connected')
else
  showmessage('disconnected');
但是如果数据库不通的话，会过很多时间才返回结果。
不知道有没有其他快一点检测数据库是否连通的办法？

Answer 1

不知道更好的方法了，学习
try
  ADOConnection1.Connected := True;
  ShowMessage('connected');
except
  ShowMessage('disconnected');
end;

Answer 2

不知道更好的方法了，学习
try
  ADOConnection1.Connected := True;
  ShowMessage('connected');
except
  ShowMessage('disconnected');
end;