4. Err对象
Err对象是一个具有全局范围的内部对象,不必在代码中创建它的实例,含有关于运行时错误的信息。主要属性有Description、HelpContext、HelpFile、Number、Source,主要方法有Clear、Raise,其属性及方法的详细说明详见参考文档。下面的示例说明了Err对象的用法:
?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
'示例1: On Error Resume Next Err.Raise 6 '产生溢出错误 MsgBox( "Error #" & CStr (Err.Number) & " " & Err.Description) Err.Clear '示例2: '定义数据库连接 Dim conn Set conn = CreateObject( "ADODB.Connection" ) conn.BeginTrans '开始事务 ... '提交数据库事务错误处理 On Error Resume Next If conn.Errors.Count > 0 Then conn.RollbackTrans '回滚事务 Else conn.CommitTrans '提交事务 End If Err.Clear |