QTP连接mysql数据库

原创 2012年03月23日 16:13:36
 

1.首先安装mysql数据驱动,qtp在windows系统下操作连接mysql,所以下载mysql-connector-odbc-   5.1.8-win32.msi

 

2.安装mysql驱动 ,默认安装即可。

3. 添加默认数据源

   控制面板->管理工具->数据源ODBC->系统DNS->添加->在“创建数据源”对话框中选择

  “Mysql   ODBC 5.1 Driver”->完成->进入连接对话框->填写完后点击“test”,看看是否成功,成功后配置完成。

 

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

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

Dim Conn
Set Conn=CreateObject("ADODB.Connection")
Const ConnectionString="DSN=test;DATABASE=han;PWD=root;PORT=3306;SERVER=localhost;UID=root"
'Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=test;PWD=root;PORT=3306;SERVER=localhost;UID=root"
Conn.Open ConnectionString
If Conn.State<>0Then
Reporter.ReportEvent micPass,"testing","连接数据库成功"
else
Reporter.ReportEvent micFail,"testing","连接数据库失败"
End If
注意:其中DSN=数据源名;UID=用户名;PWD=用户密码
 

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

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

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

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

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

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

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

qtp 怎样连接mysql数据库操作

1.首先安装mysql数据驱动,qtp在windows系统下操作连接mysql,所以下载mysql-connector-odbc-   5.1.8-win32.msi   下载地址:http://my...

EMS Mysql数据库连接工具破解版

  • 2017年12月15日 15:12
  • 46.52MB
  • 下载

QTP中VBS调用数据库的方式【mysql,sqlserver,oracle,excel】

Option Explicit Dim oDataBase Set oDataBase = new DataBase Dim sDBName, sSQL, RS '''To Read Mysql D...
  • five3
  • five3
  • 2012年06月13日 18:18
  • 2197

android 连接mysql数据库jar包

  • 2017年10月13日 10:32
  • 278KB
  • 下载

Php连接及读取和写入mysql数据库的常用代码

1.为了更好地设置数据连接,一般会将数据连接所涉及的值定义成变量. $mysql_server_name='localhost'; //改成自己的mysql数据库服务器 $mysql_usernam...

pymysql python连接mysql数据库

  • 2017年11月07日 16:53
  • 69KB
  • 下载

java 连接mysql数据库并动态创建表

java链接mysql数据库需要驱动包,那么我们先去下载驱动包http://dev.mysql.com/downloads/connector/j/,驱动包就是一个jar包里面包含了我们要使用的类、方...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:QTP连接mysql数据库
举报原因:
原因补充:

(最多只允许输入30个字)