码迷,mamicode.com
首页 > 数据库 > 详细

QTP连接MYSQL数据库方法

时间:2014-07-23 22:26:27      阅读:513      评论:0      收藏:0      [点我收藏+]

标签:blog   http   os   数据   io   for   

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”,看看是否成功,成功后配置完成。

  bubuko.com,布布扣

4.qtp脚本实现连接mysql数据库

 如果操作了第3步骤,天机了mysql默认数据源,脚本可以写成:

bubuko.com,布布扣
Dim Conn
Set Conn=CreateObject("ADODB.Connection")
Const ConnectionString="DSN=mysql_Mail;DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"
‘Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"
Conn.Open ConnectionString
If Conn.State<>0 Then
Reporter.ReportEvent micPass,"testing","连接数据库成功"
else
Reporter.ReportEvent micFail,"testing","连接数据库失败"
End If
bubuko.com,布布扣

如果没有进行第3个步骤,没有添加默认数据源,可以用普通方式连接

bubuko.com,布布扣
Dim Conn
Set Conn=CreateObject("ADODB.Connection")
‘Const ConnectionString="DSN=mysql_Mail;DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"
Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"
Conn.Open ConnectionString
If Conn.State<>0 Then
Reporter.ReportEvent micPass,"testing","连接数据库成功"
else
Reporter.ReportEvent micFail,"testing","连接数据库失败"
End If
bubuko.com,布布扣

5.qtp脚本实现查询数据库

bubuko.com,布布扣
Dim Conn,str,sql,i,sum
Set Conn=CreateObject("ADODB.Connection")‘创建数据库实例
Const ConnectionString="DSN=mysql_Mail;DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"
‘Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=extmail;PWD=123456;PORT=3306;SERVER=192.168.2.52;UID=root"
Conn.Open ConnectionString
If Conn.State<>0 Then
Reporter.ReportEvent micPass,"testing","连接数据库成功"
else
Reporter.ReportEvent micFail,"testing","连接数据库失败"
End If

Set str=CreateObject("ADODB.Recordset")‘创建数据集实例

‘查询数据库
sql="Select * from manager where type=‘postmaster‘"
str.Open sql,conn,1,1 ‘1,1表示只读;1,3表示插入数据;2,3表示修改数据
str.MoveFirst‘使游标指向第一个记录
sum=""
While Not str.EOF
‘msgbox str.Fields("username")
For i=0 to str.Fields.Count-1‘str.Fields.Count表示字段个数
sum=sum & str(i) & " " ‘把整个记录显示出来
Next
Print sum & vbCRLF‘打印所有查询的记录
str.MoveNext‘使游标进入下一个
Wend

str.Close ‘关闭数据集实例
Set str=Nothing
Conn.Close ‘关闭数据库实例
Set Conn=Nothing

QTP连接MYSQL数据库方法,布布扣,bubuko.com

QTP连接MYSQL数据库方法

标签:blog   http   os   数据   io   for   

原文地址:http://www.cnblogs.com/jinjiangongzuoshi/p/3864064.html

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!