QTP连接SQL数据库的例子

'初始化连接串
ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=my;Data Source=DOFA40328"
'创建SqlConnection的实例，构造函数中的参数为ConnectionString
Set SqlConnection = DotNetFactory.CreateInstance("System.Data.OleDb.OleDbConnection","System.Data",ConnectionString)
'打开数据库连接
SqlConnection.Open
'创建SqlCommand的实例，构造函数中的参数有两个，一个是数据库的查询语句，一个是数据库连接对象SqlConnection
Set SqlCommand = DotNetFactory.CreateInstance("System.Data.OleDb.OleDbCommand","System.Data","Select * from username",SqlConnection)
'创建SqlDataAdapter的实例，构造函数中的参数为数据库命令对象SqlCommand
Set SqlDataAdapter = DotNetFactory.CreateInstance("System.Data.OleDb.OleDbDataAdapter","System.Data",SqlCommand)
'创建一个DataSet实例
Set DataSet = DotNetFactory.CreateInstance("System.Data.DataSet","System.Data")
'调用SqlDataAdapter的Fill方法，把查询返回的数据放到DataSet实例中
SqlDataAdapter.fill(DataSet )
'关闭数据库连接
SqlConnection.Close
'期待返回记录行数
ExpectedRowCount = 2
'获取数据记录行数
ActualRowCount = DataSet.Tables.get_Item(0).Rows.Count
'判断是否等于预期记录行数
If not  ActualRowCount <> ExpectedRowCount Then
 Reporter.ReportEvent micFail,"错误","数据库记录行数不正确！期待返回记录行数 = "&ExpectedRowCount&"实际返回行数 = "&ActualRowCount
 else
 Reporter.ReportEvent micPass,"正确","数据库记录行数正确"
End If