51Testing软件测试论坛

标题: qtp连接数据问题 oracle [打印本页]
作者: Titanic8712    时间: 2010-4-14 10:19
标题: qtp连接数据问题 oracle
小弟刚开始学QTP  不会连接数据库  麻烦会有的发给我 谢谢  最好有备注   因为小弟我不是很懂网上的连接
作者: TIB    时间: 2010-4-14 11:11
  1. Dim rs,sq,pkey
  2. set conn=createobject("adodb.connection")
  3. set rs=createobject("adodb.recordset")

  5. ' 需要安装Oracle客户端
  6. 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;"

  8. sql="SELECT * FROM TAB"
  9. rs.open sql,conn
  10. rs.MoveFirst
  11. Do While rs.Eof<>true
  12. Msgbox rs.Fields(0)
  13. rs.MoveNext
  14. Loop
  15. rs.close
  16. set rs=nothing
  17. conn.close
  18. set conn=nothing
复制代码

[ 本帖最后由 TIB 于 2010-4-14 11:12 编辑 ]
作者: Titanic8712    时间: 2010-4-14 13:47
谢谢



欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2