try
  ADOConnection1.Connected:=True;
except
  ShowMessage('联结失败');
end;
不就行了?

解决方案 »

  1.   

    它提示是[DBNMPNTW] Specified sql server not found我就是想程序一出错就关闭提程序,退回到windows, 该怎样做 谢谢各位大侠
      

  2.   

    怎样知道系统出错了, 出错后直接退出到windows
      

  3.   

    响应Application的OnExcept事件 if E is EDbEngineError then
        begin
          showDbError(EdbengineError(E));
        end
      else
        Application.Terminate; 
    end;自已再改一下,试试吧。
      

  4.   

    E is EDbEngineError  里头的 EDBEnginerror是多少
      

  5.   

    E is EDbEngineError  里头的 EDBEnginerror是多少
      

  6.   

    try
      ADOConnection1.Connected:=True;
    except
      ShowMessage('联结失败');
      Application.Terminate;
    end;