【seagull1985-QTP】oracle数据库查询

seagull1985

1. '==========================================================================
   
2. ' NAME: Database processing
   
3. ' AUTHOR: heyl  
   
4. ' DATE  : 2013-07-12
   
5. ' COMMENT:  
   
6. '==========================================================================
   
7. Class Db_procs
   
8. 'PopBox Processing
   
9. sub PopBox(Prompt,intSecond,strTitle)
   
10.         dim obj
    
11.         set obj = createobject("WScript.Shell")
    
12.         obj.Popup Prompt,intSecond,strTitle
    
13.         set obj=nothing
    
14. end sub
    
15. 'Create database link
    
16. Function CreOraLink(provider,userid,passwd,dataip,strsql,columnname)
    
17.     Dim Cnn,strCnn       
    
18.         strCnn ="Provider="&provider&";Password="&passwd&";Persist Security Info=True;User ID="&userid&";Data Source="&dataip
    
19.         Set Cnn = CreateObject("adodb.Connection")
    
20.         Cnn.Open strCnn
    
21.         If Cnn.State = 0 Then
    
22.                 Call PopBox("创建数据库链接失败",30,"数据库链接")
    
23.         End If
    
24.         'Generate the recordset object
    
25.         Set Rs = CreateObject("ADODB.Recordset")
    
26.         'excute sql
    
27.         Rs.Open strsql,Cnn,1,3
    
28.         'if you want judge the database state,must define(DS_dbrc) a global variable in QTP
    
29.         DS_dbrc = Rs.Recordcount
    
30.         if DS_dbrc <> 0 Then
    
31.          DS_dbvalue = Rs(columnname)
    
32.          if DS_dbvalue <> "" Then
    
33.          DS_dbvalue = Cstr(DS_dbvalue)
    
34.          End if
    
35.          else
    
36.          DS_dbvalue = ""
    
37.         End if
    
38.         Rs.close
    
39.         Set RS=nothing
    
40.         Cnn.Close
    
41.         Set Cnn=nothing
    
42. End Function
    
43. End Class
    
44. 
    
45. ' Dim DS_dbvalue
    
46. ' Set DBP = new Db_procs
    
47. ' ttt = "select * from HPSTJNL_CHECKED"
    
48. ' Call DBP.CreOraLink("MSDASQL.1","mast","mast","10.211.16.120",ttt,0)
    
49. ' msgbox DS_dbvalue
    
50. ' ttt = "select * from HPSTJNL"
    
51. ' Call DBP.CreOraLink("MSDASQL.1","mast","mast","10.211.16.120",ttt,"txn_cd")
    
52. ' msgbox DS_dbvalue
    
53. 
    
54. 
    
55. 
    
56. 
    

复制代码

赵佳乐SMILE

棒棒哒

fhhh_eyou

学习中，谢谢