如何使程序启动时判断数据库有没有挂上

Question

你是想看数据库连上没有？？
那你看看table.active;
connection.active;
就知道是否已经打开了

Answer 1

就像楼上的同志说的：
with ADOConnection do 
  if not Connected then //判断是否打开
     Open;//如果没有打开就打开它或（BDE）with Table do
  if not Active then
     Open;

Answer 2

你可在dm的create事件中进行连接数据库，使用try..except..end。我就是这样解决的。没问题！
好运！

Answer 3

那你就判断数据库文件是否存在：
if FileExists(数据库文件) then 
   ADOConnection.Open
else begin
   MessageBox(GetActiveWindow,'不能打开数据库，请检查文件是否存在！','出错',MB_OK+MB_ICONSTOP);
   Application.Terminate;
end;

Answer 4

在dm的create事件中进行连接数据库，使用try..except..end。不行

Answer 5

用try..except..end
你的TRY...FINALLY...END用错了，原因是：
FINALLY不管出不出错都要执行的，而EXCEPT只有保护体内的语句执行出错的情况下才转入执行。

Answer 6

在dm的create事件中进行连接数据库，使用try..except..end。不行
我在BDE里有意把路径改了.它依旧是非法操作.我希望是用我的代码来保护

Answer 7

用 try..except..end ,
但你不要在 Delphi IDE 中调试, 你 Compile 以后, 到外边运行 .exe
试一试.