声明：本空间大部分博客信息为寻找问题时在网上拷贝或转载，在此博客中做个记录，方便自己也方便有类似问题的朋友，因原出处已不好查询，如有侵权，请发邮件表明文章和原出处地址，本人一定会在文章中注明。谢谢。

QTP如何访问Oracle数据库？

上一篇 / 下一篇 2012-10-11 10:30:40 / 个人分类：QTP自动化测试

Dim rs,sq,pkey
set conn=createobject("adodb.connection")
set rs=createobject("adodb.recordset")

' 需要安装Oracle客户端
conn.open "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=scott;Data Source=orcl;Password=orcl;Extended Properties=;Host=192.168.1.188;Port=1521;Service Name=orcl;"

sql="SELECT * FROM TAB"
rs.open sql,conn
rs.MoveFirst
Do While rs.Eof<>true
Msgbox rs.Fields(0)
rs.MoveNext
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing

收藏举报

TAG:

查看全部评论