判断数据库是否连接成功

Ⅰ delphi 如果判断程序和数据库服务器是否连接(高分)

用try....except....end;

try
ado.Connected:=true;//连接成功，实行这里的代码
except
showmessage(); //出现错误或联系不成功，就执行这里的代码
end；
=============================
你把你写的程序编译好以后，然后打开你的程序你试一下看看。一定会执行
except
showmessage();
这段代码的，。，如果你是在编译器上执行的，那报错信息就是你所说的那种内部报错