下载地址：http://mysql.mirrors.pair.com/downloads/connector-odbc/5.1/mysqlconnector-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=mysql_mail;database=extmail;pwd=123456;port=3306;server=192.168.2.52;uid=root
'const connectionstring=driver={mysql odbc 5.1 driver};database=extmail;pwd=123456;port=3306;server=192.168.2.52;uid=root
conn.open connectionstring
if conn.state0 then
reporter.reportevent micpass,testing,连接数据库成功
else
reporter.reportevent micfail,testing,连接数据库失败
end if
如果没有进行第3个步骤，没有添加默认数据源，可以用普通方式连接
dim conn
set conn=createobject(adodb.connection)
'const connectionstring=dsn=mysql_mail;database=extmail;pwd=123456;port=3306;server=192.168.2.52;uid=root
const connectionstring=driver={mysql odbc 5.1 driver};database=extmail;pwd=123456;port=3306;server=192.168.2.52;uid=root
conn.open connectionstring
if conn.state0 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=mysql_mail;database=extmail;pwd=123456;port=3306;server=192.168.2.52;uid=root
'const connectionstring=driver={mysql odbc 5.1 driver};database=extmail;pwd=123456;port=3306;server=192.168.2.52;uid=root
conn.open connectionstring
if conn.state0 then
reporter.reportevent micpass,testing,连接数据库成功
else
reporter.reportevent micfail,testing,连接数据库失败
end if
set str=createobject(adodb.recordset)'创建数据集实例
'查询数据库
sql=select * from manager where type='postmaster'
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'打印所有查询的记录
str.movenext'使游标进入下一个
wend
str.close '关闭数据集实例
set str=nothing
conn.close '关闭数据库实例
set conn=nothing