关于ADOconnect的问题，怎么做？快来帮忙看看吧~！！！高分相送！！

Question

Application.OnException := AppException //捕获系统对象的异常消息
在 procedure Tform1.AppException(Sender: TObject; E: Exception);中
(E: Exception) 返回异常错误
if copy(e.Message,1,4) ='ORA-' then //判断返回的信息是否含有'ora'字符

Answer 1

在异常处理的地方加上AdoConnect.connected := False;就可。

Answer 2

只要对ADOCONNNECTION的连接做判断就可以了，
这是我写的代码。（注：在调试时系统会自动跳出原始消息，单独运行时就没有了。）
    try self.ADO_ConnectionLogin(Sender,'sa','');
    except on Exception do
        begin
           showmessage('网络连接有问题！程序无法运行！');
           Application.Terminate;
        end;
    end;