Question

DELPHI 编程中关于 异常处理 的问题

我现在采用DELPHI7+MSSQL作为开发环境，想对程序运行初期加载数据库做一个异常处理。
即：当“无法连接数据库或数据库已关闭时”，自动跳到EXCEPT中，然后弹出退化框警告，确定后退出程序。
现在我无论如何添加条件，当数据库连接失败时总是直接弹出MSSQL的对话框，我想将这个充满代码的对话框换成用户能看懂的由我亲手设定的错误提示信息，请问该如何写这个异常呢，现在困惑中。

我写的:
try
adoconnection.open
.
.
.
.
.
.
//一系列执行代码
except
Application.MessageBox('数据库连接失败！','提示',0+64);
Application.Terminate;
end;

Answer 1

以前用TClientSocket的时候也遇到这样的问题.发现只要写到它的onError事件,里面就好了.
刚才看了下adoConnection没有onError事件.没有弄过数据库.帮不了你了.

Answer 2

try
adoconnection.open
.
.
.
.
.
.
//一系列执行代码
except
adoconnection.close;
Application.MessageBox('数据库连接失败！','提示',0+64);
Application.Terminate;
end;

Answer 3

如果你说的是IDE的提示的话，关掉stop on Delphi Exception就可以了。

Answer 4

试过不在集成环境下运行吗？