QTP连接mysql
上一篇 /
下一篇 2013-06-28 14:17:48
/ 个人分类:QTP自动化测试
环境:windows7,数据库mysql
工具:QTP11.0
需求:连接数据,查询
数据库中的数据与页面上的QTP连接mysql
1.首先安装mysql数据驱动,qtp在windows系统下操作连接mysql,所以下载mysql-connector-odbc- 5.1.8-win32.msi
下载地址:http://mysql.mirrors.pair.com/Downloads/Connector-ODBC/5.1/mysqlconnector-odbc-5.1.8-win32.msi
2.安装mysql驱动 ,默认安装即可。
3. 添加默认数据源
控制面板->管理工具->数据源ODBC->系统DNS->添加->在“创建数据源”对话框中选择
“Mysql ODBC 5.1 Driver”->完成->进入连接对话框->填写完后点击“test”,看看是否成功,成功后配置完成。
4.qtp脚本实现连接mysql数据库
5.再做了第3步后,添加了mysql为默认的数据源,可以这样写脚本
Function Dataoperate(j, sql)
'Dim Conn,str,sql,i,sum,j
Set Conn=CreateObject("ADODB.Connection")'创建数据库实例
Const ConnectionString="DSN=mysql;DATABASE=ad_app_sq;PWD=123456;PORT=3306;SERVER=192.168.7.185;UID=root"
Conn.Open ConnectionString
If Conn.State<>0 Then
myExcelSheet.Cells(26,4) = "Pass"
Reporter.ReportEvent micPass,"testing","连接数据库成功"
else
myExcelSheet.Cells(26,4) = "Fail"
Reporter.ReportEvent micFail,"testing","连接数据库失败"
End If
Set str=CreateObject("ADODB.Recordset") '创建数据集实例
'查询数据库
str.Open sql,conn,1,1 '1,1表示只读;1,3表示插入数据;2,3表示修改数据
str.MoveFirst '使游标指向第一个记录
sum=""
While Not str.EOF
For i=0 to str.Fields.Count-1'str.Fields.Count表示字段个数
sum =sum & str(i) & " " '把sql1整个记录显示出来
Next
myExcelSheet.Cells(j,3)=sum'打印所有查询的记录
str.MoveNext'使游标进入下一个
Wend
str.Close '关闭数据集实例
Set str=Nothing
Conn.Close '关闭数据库实例
Set Conn=Nothing
End Function
收藏
举报
TAG: