on error goto ..... ..... exit sub :msgbox "用户sa登陆失败"end sub
'一種: on error goto h:exit sub h: end sub '二 on error resume next
源代码如下: 当数据库连接错误时,运行到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
.....
exit sub
:msgbox "用户sa登陆失败"end sub
on error goto h:exit sub
h:
end sub
'二
on error resume next
当数据库连接错误时,运行到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