数据库问题

Question

加入异常处理
    try
        DataBase1.Connected := true ;
    except
        on ex:exception do
        begin
            Application.MessageBox('连接数据服务器失败。' ,'提示' ,MB_ICONWARNING or MB_OK) ;
        end ;
    end ;

Answer 1

BDE 的 database 好像异常不能被捕获

Answer 2

如果使用ado连接，在except中使用raise可以捕捉异常

Answer 3

同意用TRY，你的要求可实现。

Answer 4

我已经按照Liujc(阿聪) 说的试了，可惜抱错的消息还是出现。有谁能够提供详细一些的帮助呢，啊，拜托啦

Answer 5

if database.connected=true then
begin   
showmessage('连接正常');
end
else
   begin
   showmessage('未接通服务器');
   end;

Answer 6

try
  database.open
except
  showmessage('未接通服务器'');
  Applicaton.Ter........
end;
不要在delphi中运行

Answer 7

"不要在delphi中运行".因为你如果设置成DELPHI处理系统异常，则DELPHI在编译调试时会使用DELPHI自带的异常处理截取用户的异常。编译成可执行文件后运行它试试看吧。

Answer 8

我做过一个程序是可以这样的
去掉设计时设置的数据库连接，用代码设置数据库连接，然后加上belllab(bell)
的代码

Answer 9

阿聪的方法我试过：
  1）我是用ADO联接。
  2）我装过D6的SP1。
结果：正常！！！