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。
最新驱动地址: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。