qtp求教

wdlcoke

***qtp咋样从数据库里取值？？？

TIB

要看什么数据库，一般通过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

复制代码