QTP连接MySQL

1、安装 Connector/ODBC

最新版下载地址：http://dev.mysql.com/downloads/connector/odbc/

2、查看数据源名称

『控制面板』- 『管理工具』- 『数据源(ODBC)』-『添加』

3、连接数据库

Dim Conn,ConnString
'创建数据库实例
Set Conn=CreateObject("ADODB.Connection")
'连接字符串
ConnString="Driver={Mysql ODBC 5.2w Driver};DATABASE=mysql;UID=root;PWD=root;PORT=3306;SERVER=localhost;"
'打开数据库连接
Conn.Open ConnString
If Conn.State<>0 Then
    Msgbox "连接数据库成功"
Else
    Msgbox"连接数据库失败"
End If
'关闭数据库实例
Conn.Close
Set Conn = Nothing

4、数据库查询实例

Dim Conn,ConnString,strSQLString,strRecordset,i,sum

Set Conn=CreateObject("ADODB.Connection")
ConnString="Driver={Mysql ODBC 5.2w Driver};DATABASE=mysql;UID=root;PWD=root;PORT=3306;SERVER=localhost;"
Conn.Open ConnString

If Conn.State<>0 Then
    Call Query()
else
    Msgbox "连接数据库失败"
End If

Function Query()
    '创建数据集实例
    Set strRecordset = CreateObject("ADODB.Recordset")
    '查询数据库
    strSQLString = "Select * from db"
    '1,1表示只读;1,3表示插入数据;2,3表示修改数据
    strRecordset.Open strSQLString,conn,1,1 
    '使游标指向第一个记录
    strRecordset.MoveFirst
    sum=""
    While Not strRecordset.EOF        
        For i=0 to strRecordset.Fields.Count-1
            sum=sum & strRecordset(i) & " " 
        Next
        Msgbox sum & vbCRLF
        '使游标进入下一个
        strRecordset.MoveNext
    Wend
    '关闭数据集实例
    strRecordset.Close 
    Set strRecordset=Nothing
End Function
'关闭数据库实例
Conn.Close 
Set Conn=Nothing