qtp连接数据问题 oracle

Titanic8712

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

TIB

1. Dim rs,sq,pkey
   
2. set conn=createobject("adodb.connection")
   
3. set rs=createobject("adodb.recordset")
   
4. 
   
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;"
   
7. 
   
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

谢谢