因此,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
在执行上述脚本时,输出显示在消息框中,如下所示 :