【QTP自动化测试(一)】DotNetFactory连接数据库操作

‘初始化连接串
ConnectionString=”Data Source=.;Initial Catalog=Northwind;Persist Security Info=True;User ID=sa;Password=”

‘创建SqlConnection的实例,构造函数中的参数为ConnectionString
Set SqlConnection=DotNetFactory.CreateInstance(“System.Data.SqlClient.SqlConnection”,”System.Data”,ConnectionString)

‘打开数据库连接
SqlConnection.Open

‘创建SqlCommand的实例,构造函数中的参数有两个,一个是数据库的查询语句,一个是数据库连接对象SqlConnection
Set SqlCommand=DotNetFactory.CreateInstance(“System.Data.SqlClient.SqlCommand”,”System.Data”,”Select *  from orders”,”SqlConnection”)

‘创建SqlDataAdapter的实例,构造函数中的参数为数据库命令对象SqlCommand
Set SqlDataAdapter=DotNetFactory.CreateInstance(“System.Data.SqlClient.SqlDataAdapter”,”System.Data”,SqlCommand)

‘创建一个DataSet实例
Set DataSet=DotNetFactory.CreateInstance(“System.Data.DataSet”,”System.Data”)

‘调用SqlDataAdapter的Fill方法,把查询返回的数据放到DataSet实例中
SqlDataAdapter.Fill DataSet

‘关闭数据库连接
SqlConnection.Close

‘期待返回记录行数
ExpecterRowCount=840

‘获取数据记录行数
ActualRowCount=DataSet.Tables.get_Item(0).Rows.Count

‘判断是否等于预期记录行数
If NOT ActualRowCount=ExpectedRowCount Then
    Reporter.ReportEvent micFail,”错误”,”数据库记录行数不正确!期待返回记录行数=” & ExpectedRowCount & ” 实际返回记录行数=” & ActualRowCount
Else
    Reporter.ReportEvent micPass,”正确”,”数据库记录行数正确。”    
End If

发表评论

电子邮件地址不会被公开。