QTP连接mysql数据库

 

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 <> 0 Then
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 <> 0 Then
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 = ""
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 ' 打印所有查询的记录

     sum=""  '清零

     str.MoveNext ' 使游标进入下一个
Wend

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