Titanic8712 发表于 2010-4-14 10:19:01

qtp连接数据问题 oracle

小弟刚开始学QTP不会连接数据库麻烦会有的发给我 谢谢最好有备注   因为小弟我不是很懂网上的连接

TIB 发表于 2010-4-14 11:11:15

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

[ 本帖最后由 TIB 于 2010-4-14 11:12 编辑 ]

Titanic8712 发表于 2010-4-14 13:47:52

谢谢
页: [1]
查看完整版本: qtp连接数据问题 oracle