QTP中连接MySQL的方法（数据库验证点和ADO连接）

上一篇 / 下一篇 2011-07-24 09:45:41 / 个人分类：QTP

很多朋友对于QTP中连接MYSQL束手无策，其实根本原因是默认的我们的操作系统中ODBC驱动里默认不支持开源的MySQL驱动。
要解决这个问题的方法非常简单，安装一个相关的驱动就能解决问题了。
这里给出这个驱动程序的下载地址：MyODBC-3.51.11-2-win.exe
安装完毕后，到“控制面板--管理工具--数据源ODBC--系统DSN”把它添加进来，步骤见下面截图qtpmysqsl1.JPG到qtpmysqsl5.JPG（我在本机上安装了一个Discuz论坛）。
添加完毕后，就可以开始使用了。
以下给出具体的实现过程
（一）数据库验证点：
见下面截图 qtpmysqsl6.JPG 到 qtpmysqsl9.JPG
（二）ADO连接MySQL数据库的代码：
例子（获取论坛中的帖子主题和内容）：

Dim Cnn, Rst, strCnn
strCnn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=discuz;USER=root;Option=3"
Set Cnn = CreateObject("ADODB.connection")
Cnn.Open strCnn
Set Rst = CreateObject("ADODB.Recordset")
Rst.Open "select * from cdb_posts", Cnn
Rst.MoveFirst
While Rst.EOF <> True
MsgBox Rst.Fields("subject") & Chr(13) & Chr(10) & Rst.Fields("message") & Chr(13) & Chr(10)
Rst.MoveNext
Wend
Rst.Close
Cnn.Close
Set Rst = Nothing
Set Cnn = Nothing