很多朋友对于QTP中连接MYSQL束手无策，其实根本原因是默认的我们的操作系统中ODBC驱动里默认不支持开源的MySQL驱动。51Testing软件测试网sL)[ZK'p r} B
要解决这个问题的方法非常简单，安装一个相关的驱动就能解决问题了。
7pQf_-q0b Y]/N46301这里给出这个驱动程序的下载地址：MyODBC-3.51.11-2-win.exe
lL[a0o46301安装完毕后，到“控制面板--管理工具--数据源ODBC--系统DSN”把它添加进来，步骤见下面截图qtpmysqsl1.JPG到qtpmysqsl5.JPG（我在本机上安装了一个Discuz论坛）。51Testing软件测试网(m
M5{ a&\,x6b^
添加完毕后，就可以开始使用了。
4W#C%P-_o4ZO46301以下给出具体的实现过程
u
VtW
k5[-B#EYg46301（一）数据库验证点：51Testing软件测试网L })I(O$b tW'k(x
见下面截图 qtpmysqsl6.JPG 到 qtpmysqsl9.JPG
P%^{d$r+V46301（二）ADO连接MySQL数据库的代码：
+D8[(Xrw_d7n,r46301例子（获取论坛中的帖子主题和内容）：

CODE:

Dim Cnn, Rst, strCnn51Testing软件测试网m+n ?!sP0^Tb
51Testing软件测试网!B!Qt6gt@T G
strCnn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=discuz;USER=root;Option=3"
$X v2Ko}(AE ^46301Set Cnn = CreateObject("ADODB.connection")51Testing软件测试网 \.}~4Wa {
Cnn.Open strCnn51Testing软件测试网
C/OR d
A(^%b\Wr
Set Rst = CreateObject("ADODB.Recordset")
|nz(G7h46301Rst.Open "select * from cdb_posts", Cnn51Testing软件测试网;X7x/Re2~H
Rst.MoveFirst
8k)s'uYqtJ46301While Rst.EOF <> True
r(Un3T:Ys"O46301    MsgBox Rst.Fields("subject") & Chr(13) & Chr(10) & Rst.Fields("message") & Chr(13) & Chr(10)
0Ip,w8q.\)e46301    Rst.MoveNext51Testing软件测试网8]B%P8z'l V
Wend51Testing软件测试网1G
Y1N V3V v|
Rst.Close51Testing软件测试网(x.wMjr(}
Cnn.Close
-T.N/j,m"Fq!^4630151Testing软件测试网 ? H%\ @;Mf
Set Rst = Nothing
z5t/i-g&hg&WX46301Set Cnn = Nothing51Testing软件测试网9s[:X&I H3nv;s N~
51Testing软件测试网
Ft-KHDF
qtpmysqsl1.JPG51Testing软件测试网P4Q
@
q-w3~

/y`E"\h2n6C(O46301qtpmysqsl2.JPG
b*|;|Tob4630151Testing软件测试网"xj}_5S-z|`
qtpmysqsl3.JPG
%e"c6@{y&ERD?Y46301
A:bJ$C3[:@~
OK46301qtpmysqsl4.JPG51Testing软件测试网!^ Hbe#o)L F
51Testing软件测试网8E o-\B\ fO.b K
qtpmysqsl5.JPG51Testing软件测试网 ym_1k L2m J
gl

wt} d*I
@~%Y2H[46301qtpmysqsl6.JPG
9dbe!Y}t5Z9^9c4630151Testing软件测试网7dSl#YB9X%s
qtpmysqsl7.JPG51Testing软件测试网1a:y*Q9~9q*{
51Testing软件测试网0f h7^5B6\x U3u
bJ7d
qtpmysqsl8.JPG51Testing软件测试网-o _4cw I)|)t8X