QTP - 访问数据库

因此，QTP 不提供任何内置的数据库连接支持，但是使用 VBScript 测试人员将能够使用 ADODB 对象连接数据库并与之交互。

ADODB 有 4 个属性或方法，我们可以使用它们来处理数据库。它们是 −

• ADODB.Connection − 用于建立与数据库的连接

• ADODB.Command − 用于执行 SQL 命令（查询或存储过程）

• ADODB.Fields −用于在执行查询/存储过程后从记录集中获取特定列

• ADODB.Recordset − 用于从数据库获取数据

如何连接数据库？

可以使用连接字符串连接数据库。每个数据库的连接方式都不同。但是，可以借助 www.connectionstrings.com

让我们看看如何使用以下参数连接到数据库 −

• 数据库类型 − MSSQL SERVER

• 服务器名称 − SQLEXPRESS

• 数据库名称 − 试用

• 用户 ID − sa

• 密码 − Password123

查询的输出在 SQL Server Management Studio 中显示如下 −

Dim objConnection 
'设置 Adodb 连接对象
Set objConnection = CreateObject("ADODB.Connection")
Dim objRecordSet

'创建 RecordSet 对象
Set objRecordSet = CreateObject("ADODB.Recordset")

Dim DBQuery '要执行的查询
DBQuery = "从 dbo.EMPLOYEE 中选择 NAME，其中 AGE = 29"

'使用 SQL OLEDB 驱动程序连接
objConnection.Open "Provider = sqloledb.1;Server =.\SQLEXPRESS;
User Id = sa;Password=Password123;Database = Trial"

'执行查询
objRecordSet.Open DBQuery,objConnection

'返回结果集
Value = objRecordSet.fields.item(0)
msgbox Value

'释放资源
objRecordSet.Close        
objConnection.Close		
 
Set objConnection = Nothing
Set objRecordSet = Nothing

结果

执行上述脚本后，输出将显示在消息框中，如下所示 −