比如说数据库名或密码错误,会有自动提示--“用户“sa”登陆失败。
怎么样才能让它不自动提示?

解决方案 »

  1.   

    on error goto .....
    .....
    exit sub
    :msgbox "用户sa登陆失败"end sub
      

  2.   

    '一種:
    on error goto h:exit sub
    h:
    end sub
    '二
    on error resume next
      

  3.   

    源代码如下:
    当数据库连接错误时,运行到adodc1.Refresh,adodc1就会自动弹出错误提示,然后我做的错误处理也会提示,这样就提示了两次,我现在不想让adodc1自动提示,只显示我做的错误提示,该如何做?谢谢!Private Sub Find_Click()
        On Error GoTo SQLConErr
        ......
        ......
        Adodc1.Refresh    
        DataGrid1.Refresh    
        Exit Sub
    SQLConErr:
        Select Case Err.Number
            Case -2147467259
              MsgBox "找不到指定的SQL Server服务器或者数据库不存在,请重新设
                      置!",16, "出错啦!"
            Case -2147217843
                MsgBox "指定的SQL Server数据库用户不存在或口令错误,请重新设
                      置!", 16, "出错啦!"
            Case Else
                MsgBox "数据环境连接失败,请找系统管理员进行检查 !",
                       16, "出错啦!"
        End Select
    End Sub