vb.net错误捕捉 vbs捕获异常

VB 如何捕捉错误

Private Sub Command1_Click()

On Error GoTo skip '指明在一下语句执行过程中如果发生错误则跳转到标签 Skip 处执行vb.net错误捕捉，标签可以自定义。

'-----这里是正常执行语句--------------

Exit Sub '退出语句块vb.net错误捕捉，防止在没有出现错误vb.net错误捕捉的情况下执行下面的语句

skip: '跳转标签

MsgBox "错误号vb.net错误捕捉：" Err.Number Chr(13) Chr(10) Err.Description '获取错误号和错误说明。

End If

End Sub

相关问答

Q1: VB .net与VB6错误提取

.NET中使用Try捕捉错误。

Try

'语句

Catch ex As Exception

MsgBox(ex.Message)

End Try

Q2: VB中程序错误的捕获以及处理方法

捕捉错误信息主要用On error语句，如下例子： 此例子使用 On Error GoTo 语句在一个过程中指定错误处理的代码所在。本示例中，试图删除一已经打开的文件从而生成的错误码为 55。这个错误将由示例中的错误处理程序码来处理，处理完後，控制会回到发生错误的语句处。On Error GoTo 0 语句关闭错误陷阱。然后 On Error Resume Next 语句用来改变错误陷阱，以便发觉下一个语句产生的错误的范围。请注意示例中使用 Err.Clear 在错误处理完後，清除 Err 对象的属性Sub OnErrorStatementDemo() On Error GoTo ErrorHandler ' 打开错误处理程序。 Open "TESTFILE" For Output As #1 ' 打开输出文件。 Kill "TESTFILE" ' 试图删除已打开的文件。 On Error Goto 0 ' 关闭错误陷阱。 On Error Resume Next ' 改变错误陷阱。 ObjectRef = GetObject("MyWord.Basic") ' 试图启动不存在 ' 的对象'检查可能发生的 Automation 错误。 If Err.Number = 440 Or Err.Number = 432 Then ' 告诉用户出了什么事。然后清除 Err 对象。 Msg = "There was an error attempting to open the Automation object!" MsgBox Msg, , "Deferred Error Test" Err.Clear ' 清除 Err 对象字段。 End If Exit Sub ' 退出程序，以避免进入错误处理程序。ErrorHandler: ' 错误处理程序。 Select Case Err.Number ' 检查错误代号。 Case 55 ' 发生“文件已打开”的错误。 Close #1 ' 关闭已打开的文件。 Case Else ' 处理其他错误状态 . . . End Select Resume ' 将控制返回到产生错误的语句。End Sub

Q3: vb.net 如何捕获所有未处理的异常?

...

'将Try...Catch放在Main中

Try

Begin()

Catch e As Exception

ProcessException(e)

End Try

'在Begin中开始你的程序，就像从Main开始执行程序一个道理

Sub Begin()

'

End Sub

'将ProcessException改成你的要处理所有异常的过程名

Sub ProcessException(e As Exception)

'

End Sub

...

Q4: vb 连接数据库时出现这种错误，该怎样解决

一般在重要、且容易出错的数据操作代码中加入错误捕捉模块vb.net错误捕捉，如on error或者try catth等错误处理模块来处理这个错误。

例如vb.net错误捕捉，VB.NET 连接数据库，使用try来捕捉错误，并处理错误的典型情况如下vb.net错误捕捉：

Try

Dim tmpcon As New SqlClient.SqlConnection(“数据库连接字符串”)

tmpcon.Open()

Catch ex As Exception

MsgBox("数据库连接出错")

...错误善后处理的代码

End Try

vb.net错误捕捉的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vbs捕获异常、vb.net错误捕捉的信息别忘了在本站进行查找喔。