QTP自动化测试之VBScript对象(4)

发表于:2012-01-18来源:博客园作者:  known点击数: 标签:QTP自动化测试
4. Err对象 Err对象是一个具有全局范围的内部对象,不必在代码中创建它的实例,含有关于运行时错误的信息。主要属性有Description、HelpContext、HelpFile、N

  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.ltesting.net