QTP - 访问数据库


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

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

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

  • ADODB.Command - 用于执行 SQL 命令(查询或存储过程)

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

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

如何连接数据库?

可以使用连接字符串连接数据库。每个数据库的连接方式都不同。但是,可以在www.connectionstrings.com的帮助下构建连接字符串

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

  • 数据库类型- MSSQL SERVER

  • 服务器名称- SQLEXPRESS

  • 数据库名称- 试用版

  • 用户 ID - sa

  • 密码- 密码123

查询的输出显示在 SQL Server Management Studio 中,如下所示 -

访问数据库

Dim objConnection 
'Set Adodb Connection Object
Set objConnection = CreateObject("ADODB.Connection")     
Dim objRecordSet 
 
'Create RecordSet Object
Set objRecordSet = CreateObject("ADODB.Recordset")     
 
Dim DBQuery 'Query to be Executed
DBQuery = "Select NAME from dbo.EMPLOYEE where AGE = 29"
 
'Connecting using SQL OLEDB Driver
objConnection.Open "Provider = sqloledb.1;Server =.\SQLEXPRESS;
User Id = sa;Password=Password123;Database = Trial"
 
'Execute the Query
objRecordSet.Open DBQuery,objConnection
 
'Return the Result Set
Value = objRecordSet.fields.item(0)				
msgbox Value
 
' Release the Resources
objRecordSet.Close        
objConnection.Close		
 
Set objConnection = Nothing
Set objRecordSet = Nothing

结果

执行上述脚本时,输出显示在消息框中,如下所示 -

访问数据库2