我想问一下，delphi中怎样判断数据库是否连接，或者数据库是否打开，谢谢了！！

Question

如果是 ADOConnection 则有一个 Connected 可以测试。
如果直接是ADOTable 则有一个 Active 可以测试。

Answer 1

应该是先对Connected := false;
       再Connected := true;
看操作结果，不过，这个做法很不现实，只是对上面的一个补充

Answer 2

with adoconnection1 do 
begin
  open;
  if connected then
    // success
  else
   // faile
end;

Answer 3

我的程序中没有adoconnection
只用到一个adoquery
这怎么办呢

Answer 4

with adoconnection1 do 
begin
  open;
  TRY
    { 执行一最简单的sql语句查询
        并无意思
     成功：cuccess }
   except
    {转到这说明有误     
     失败：faile }
end;

Answer 5

ADOQuery也有一个Active可以测试
如果是连能的active = true 否则 active = false
你根据这两个值做你想要做的事情就可以了。