心念旧安,夙夜忧叹。
QTP中连接MySQL的方法(数据库验证点和ADO连接)
上一篇 /
下一篇 2008-06-29 18:28:00
/ 个人分类:原创文章
查看( 3995 ) /
评论( 40 )
很多朋友对于QTP中连接MYSQL束手无策,其实根本原因是默认的我们的操作系统中ODBC驱动里默认不支持开源的MySQL驱动。
;u XJI K?+w'vs0
要解决这个问题的方法非常简单,安装一个相关的驱动就能解决问题了。
zJ`+q?yTCQM0
这里给出这个驱动程序的下载地址:
MyODBC-3.51.11-2-win.exe51Testing软件测试网#FIwB
r
安装完毕后,到“控制面板--管理工具--数据源ODBC--系统DSN”把它添加进来,步骤见下面截图qtpmysqsl1.JPG到qtpmysqsl5.JPG(我在本机上安装了一个Discuz论坛)。
[ \\0cg kn[0
添加完毕后,就可以开始使用了。
8e h`4r1r:VW A9|0
以下给出具体的实现过程
51Testing软件测试网7R6IZ:H2j5N(J
(一)数据库验证点:
51Testing软件测试网
S1\KV;r!bqR
见下面截图 qtpmysqsl6.JPG 到 qtpmysqsl9.JPG
51Testing软件测试网~TuhNP4l
(二)ADO连接MySQL数据库的代码:
.}%XS.k3C'qih0
例子(获取论坛中的帖子主题和内容):
CODE:51Testing软件测试网u'Y Av~(T:X!R
Dim Cnn, Rst, strCnn51Testing软件测试网I}1Aq I*XAPD1|O
d3b:t^e*YA
H0
strCnn = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=discuz;USER=root;Option=3"51Testing软件测试网R6O$D.k:D5f ~5B3o0{
Set Cnn = CreateObject("ADODB.connection")51Testing软件测试网 _(Dgi7SU[#s9^
Cnn.Open strCnn
gMp3K&Xzt0
Set Rst = CreateObject("ADODB.Recordset")51Testing软件测试网#_(h/f{k!S+Jf f
Rst.Open "select * from cdb_posts", Cnn51Testing软件测试网3r
wY3K&][Ji
Rst.MoveFirst51Testing软件测试网([W)Y/r-S8Zdc
While Rst.EOF <> True51Testing软件测试网u!cg0F,ak0J
MsgBox Rst.Fields("subject") & Chr(13) & Chr(10) & Rst.Fields("message") & Chr(13) & Chr(10)51Testing软件测试网)I4i*u+?vTzD
Rst.MoveNext
^{!J1e"C5VF`0
Wend
e?
ZxL9@C@0
Rst.Close51Testing软件测试网 y
vQ,Z-|1w.Q"?
Cnn.Close
-DQ]9H4Loc4[+w0
51Testing软件测试网XI(}^&k3F-_{
Set Rst = Nothing51Testing软件测试网(@N8r@j @2[
Set Cnn = Nothing
51Testing软件测试网4f-R _\AI$w7T%n^.XU0qtpmysqsl1.JPG
51Testing软件测试网 Q!DjzF@;Xh(}`AMxT^0qtpmysqsl2.JPG
51Testing软件测试网p!}M)uH7N1rMU6r~3YX z9E_0qtpmysqsl3.JPG
A4zD?"cR"RQ#K00Lp,cO$}2R0qtpmysqsl4.JPG
51Testing软件测试网ro7J c&?XNsI(y!RZ6?3j&E.Y$b0qtpmysqsl5.JPG
8~6N|
G:Z
U9L0H"PIo6YG0qtpmysqsl6.JPG
51Testing软件测试网%g#CN3A3vE-Wp!ar8F!Mh9}~(Bq0qtpmysqsl7.JPG
51Testing软件测试网O9`P-f'mC%W,P)U51Testing软件测试网-P:{`u(L![Mqtpmysqsl8.JPG
t2^0Y
F H;|P']'n1}01r/By/\*ikD8X-d0qtpmysqsl9.JPG
论坛模式
推荐
收藏
分享给好友
管理
TAG:
-
songfun
发布于2008-06-29 18:30:09
-
这里再补充两个网友的ADO代码,供大家参考:
CODE:
Set Conn = CreateObject("ADODB.Connection" )
str="DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.1.107;DATABASE=wp_core;user id=root; password=45retret4"
Conn.open str
Set Rs = CreateObject ("ADODB.Recordset" )
select_role_id="select * from `wp_core`.`wp_role` limit 0, 5000"
rs.open select_role_id,conn,1,3
if (not Rs.eof) then
role_id=rs(0)
msgbox(role_id)
rs.fields("id")=8888
rs.update
end if
rs.addnew
rs.fields("id")="8888"
rs.fields("name")="zhouruijun"
msgbox(rs(0))
msgbox(rs(1))
rs.update()
Rs.close
Set Rs = Nothing
Conn.close
Set Conn = Nothing
CODE:
Set Conn = CreateObject("ADODB.Connection" )
str="DRIVER={MySQL ODBC 3.51 Driver};SERVER=192.168.1.100;DATABASE=wp_blog;user id=zzz ; password=123456"
Conn.open str
Set Rs = CreateObject ("ADODB.Recordset" )
sql = "select * from `wp_blog`.`blg_webcategory` limit 0, 5000;"
Rs.open sql,conn,1,3
If (not Rs.eof) then
Rs.MoveFirst
MsgBox Rs(0)
MsgBox Rs(1)
MsgBox Rs(2)
MsgBox Rs(3)
end if
Rs.close
Set Rs = Nothing
Conn.close
Set Conn = Nothing
-
小孩
发布于2008-06-29 21:15:28
-
师傅
-
flashdna发布于2008-06-30 10:57:10
-
very good!
太及时了,非常感谢!
-
heqingbluesky发布于2008-06-30 14:57:25
-
Collect it.Thanks
-
lanshier
发布于2008-08-19 12:51:37
-
谢谢老师~~~~~
-
rovegirl
发布于2008-09-25 14:02:17
-
谢谢!老师真好!
-
pudding_xw发布于2008-10-24 15:23:23
-
非常感谢!!!
-
redstar
发布于2008-10-28 15:20:23
-
--谢谢LZ,修改下连接SYBASE数据库
uh)d+yI$a ~j51Testing软件测试网Dim Cnn, Rst, strCnn软件测试,软件测试论坛,软件测试方法,软件测试工具,软件测试流程,软件测试培训,软件测试外包,软件质量管理 ,软件缺陷跟踪,软件配置工具kmUtX"E{x"I
软件测试 - 软件测试论坛 - 软件缺陷跟踪 - 软件配置工具 - 测试用例设计 - Web测试 - 自动化测试工具GT uu8bPU
strCnn = "DRIVER={Sybase ASE ODBC Driver};UID=sa;DB=databasename;NA=database_server_ip;FILEDSN=数据源WD="
5j)PBQyl:T软件测试 - 软件测试论坛 - 软件缺陷跟踪 - 软件配置工具 - 测试用例设计 - Web测试 - 自动化测试工具Set Cnn = CreateObject("ADODB.connection")软件测试,软件测试论坛,软件测试方法,软件测试工具,软件测试流程,软件测试培训,软件测试外包,软件质量管理 ,软件缺陷跟踪,软件配置工具L)~WJ`'J
Cnn.Open strCnn51Testing软件测试网-A
}ah$oN D
Set Rst = CreateObject("ADODB.Recordset")
5bd[p+upXQq软件测试 - 软件测试论坛 - 软件缺陷跟踪 - 软件配置工具 - 测试用例设计 - Web测试 - 自动化测试工具Rst.Open "select * from user_inf", Cnn
m7s9f;s L!RM中国软件测试人的精神家园,介绍先进的软件测试工具、 软件测试流程和软件测试思想,定期举办软件测试沙龙,软件测试精品 资料下载,提供专业的软件测试培训服务Rst.MoveFirst51Testing软件测试网kJ3U O)Lv*i
中国软件测试人的精神家园,介绍先进的软件测试工具、 软件测试流程和软件测试思想,定期举办软件测试沙龙,软件测试精品 资料下载,提供专业的软件测试培训服务4GW0^fA9C
While Rst.EOF <> True
5p J(S.S-Ji0F
[k_中国软件测试人的精神家园,介绍先进的软件测试工具、 软件测试流程和软件测试思想,定期举办软件测试沙龙,软件测试精品 资料下载,提供专业的软件测试培训服务 msgbox Rst.Fields("user_id") & Chr(13) & Chr(10) & Rst.Fields("user_name") & Chr(13) & Chr(10)www.51testing.com]!}i,F!Zg P`#SO
Rst.MoveNext软件测试 - 软件测试论坛 - 软件缺陷跟踪 - 软件配置工具 - 测试用例设计 - Web测试 - 自动化测试工具x0x|V:S;Y&lPo+SD
Wend软件测试,软件测试论坛,软件测试方法,软件测试工具,软件测试流程,软件测试培训,软件测试外包,软件质量管理 ,软件缺陷跟踪,软件配置工具0p @(h0c;|6J[s
www.51testing.com6Wr
ccA o:m*s+\"r
T
Rst.Close
V(`.dT"O$I*JE51Testing软件测试网Cnn.Close
} _'dB
igJZwww.51testing.com