51Testing软件测试论坛

标题: qtp求教 [打印本页]

---

作者: wdlcoke    时间: 2010-8-6 10:45
标题: qtp求教
***qtp咋样从数据库里取值？？？

---

作者: TIB    时间: 2010-8-6 14:03
要看什么数据库，一般通过ADO可连接，下面是SQLServer的例子：

1. Dim Conn
   
2. Dim Rst
   
3. Dim str_Link_DBSource
   
4. str_Link_DBSource="Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=TEST"
   
5. 
   
6. Set Conn=CreateObject("ADODB.Connection")
   
7. Conn.Open str_Link_DBSource
   
8. 
   
9. Set Rst=CreateObject("ADODB.Recordset")
   
10. Rst.Open "select * from Orders",Conn,2,2
    
11. Rst.MoveFirst
    
12. Do While Rst.Eof<>true
    
13.       Print Rst.Fields(0) & " " & Rst.Fields(1) & " " & Rst.Fields(2)
    
14.       Rst.MoveNext
    
15. Loop
    
16. 
    
17. Rst.Close
    
18. Conn.Close
    
19. Set Rst=Nothing
    
20. Set Conn=Nothing

复制代码

---

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)

Powered by Discuz! X3.2