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 
'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

结果

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