UTF（QTP）与Mysql的连接心得

1、下载ODBC驱动
最新驱动地址：http://dev.mysql.com/downloads/connector/odbc/  

2、安装驱动
全部默认安装即可。
-------------------------------
异常处理：
如果安装报错，请把odbc换个老版本，比如说将5.3更换为5.1的，就解决了问题。
5.1老版本地址：http://dev.mysql.com/downloads/connector/odbc/5.1.html
-------------------------------


3、代码样例
======================================================================
Dim Conn
Set Conn=CreateObject("ADODB.Connection")


'驱动名获取方法：
'系统控制面板=>管理工具=>数据源ODBC=>系统DNS=>添加 会列出所有驱动名
'如mysql为：MySQL ODBC 5.1 Driver
Const ConnectionString="Driver={MySQL ODBC 5.1 Driver};DATABASE=mysql;PWD=root;PORT=3306;SERVER=192.168.1.102;UID=root"


Conn.Open ConnectionString
'连接测试代码
If Conn.State<>0 Then
Reporter.ReportEvent micPass,"数据库连接","成功"
else
Reporter.ReportEvent micFail,"数据库连接","失败"
End If


'创建数据集实例
Set str=CreateObject("ADODB.Recordset")
 
'sql语句
sql="select host, user from user"
'定义结果集
resultStr=""


'参数：
'1)1,1表示只读;
'2)1,3表示插入数据;
'3)2,3表示修改数据
str.Open sql,conn,1,1 


'直接取某个字段的第一个值
'----------------------------
'msgbox str.Fields("host")
'----------------------------


'多行记录
'----------------------------
'使游标指向第一个记录
str.MoveFirst
While Not str.EOF
'msgbox str.Fields("username")
'str.Fields.Count表示字段个数
For i=0 to str.Fields.Count-1
resultStr=resultStr & vbCRLF & str(i)
Next
'使游标进入下一个
str.MoveNext
Wend


msgbox resultStr
'----------------------------


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

在某些64位系统上执行以上代码，即使驱动名等其他完全正确的情况下，还可能出现的以下异常：
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序

原因：
微软的ODBC在64位机上，有2个：
C:\Windows\SysWOW64\odbcad32.exe：32位，非系统默认，但是UFT可能直接调用这个。
C:\Windows\System32\odbcad32.exe：64位，系统默认，但UFT不掉用。
当mysql odbc只安装了64位时，UFT无法调用到32位odbcad32.exe而报错。


解决方法：
1、补安装一个32位的mysql odbc。