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 |
原文轉自:http://www.anti-gravitydesign.com