QTP如何連接配接/查詢資料庫
- 在日常測試工作中經常會遇到有關于資料的測試,比如資料的正确性,完整性,測試人員造的測試資料預期與實際程式運作結果是否一緻,如果這個時候資料量比較多的情況下,通過人工比對無疑是一項非常耗時,而且安全系數不高的工作,今天分享一篇通過自動化測試工具QTP怎麼連接配接和查詢資料庫,解決資料庫無法連接配接等問題,輕松完成所需要的工作,工作效率和正确性将得到保證。
工具/原料
1、定義一個變量名為Conn的變量,通過set方法建立一個資料庫執行個體
Dim Conn
Set Conn=CreateObject("ADODB.Connection") '建立資料庫執行個體
- QTP測試軟體
- windows系統配置mysql資料源
2
通過mysql ODBC5.1 Driver資料源連接配接Mysql資料庫,并配置mysql資料庫的通行證
Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=datebase_name;PWD=password;PORT=3306;SERVER=192.178.***。** ;UID=user_name"
![](https://img.laitimes.com/img/__Qf2AjLwojIjJCLyojI0JCLi0zaHRGcWdUYuVzVa9GczoVdG1mWfVGc5RHLwkzX39GZhh2csATMflHLwEzX4xSZz91ZsADMx8FdsYkRGZkRG9lcvx2bjxSa2EWNhJTW1AlUxEFeVRUUfRHelRHL2EzXlpXazxyayFWbyVGdhd3LcV2Zh1Wa9M3clN2byBXLzN3btg3PnVGcq5CZxUWNlFjMmVmYlRmN4cjYzkDN3ETM1AzN0IzN5ADMx8CXzIzLcRDMxIDMy8CXn9Gbi9CXzV2Zh1WavwVbvNmLvR3YxUjL2M3Lc9CX6MHc0RHaiojIsJye.jpeg)
步驟閱讀
步驟閱讀
3
校驗資料庫是否已經成功連接配接,Reporter.ReportEvent micPass,"testing",這條語句的結果是最後顯示在運作後結果的,平時在調試的時候可以使用 msgbox "連接配接資料庫成功",就是彈出一個框,列印引号中的字。
Conn.Open ConnectionString '打開資料庫
If Conn.State<>0Then
Reporter.ReportEvent micPass,"testing","連接配接資料庫成功" '校驗資料庫是否成功連接配接
msgbox "連接配接資料庫成功"
else
Reporter.ReportEvent micFail,"testing","連接配接資料庫失敗"
End If
4
Set str=CreateObject("ADODB.Recordset")'使用set方法建立資料集執行個體
5
通過sql語句查出需要的資料,然後通過for循環,循環讀取資料庫中的内容,并将所需要的資料列印出來。
'查詢資料庫
sql="SELECT shop_id FROM taobao_shop" '這條語句是對資料庫的查詢指令,這條語句是查詢一個表名為taobao_shop的資料,但是隻顯示shop_id字段
str.Open sql,conn,1,1'1,1表示隻讀;1,3表示插入資料;2,3表示修改資料
str.MoveFirst'使遊标指向第一個記錄
sum=""
While Not str.EOF
msgbox str.Fields("shop_id") '測試資料庫中某一個字段的資料擷取是否正确
For i=0to str.Fields.Count-1'str.Fields.Count表示字段個數
sum=sum & str(i) &""'把整個記錄顯示出來
Next
Print sum & vbCRLF'列印所有查詢的記錄
sum="" '清零
str.MoveNext'使遊标進入下一個,這裡其實就是一個循環,循環去讀取SQL語句查詢到的資料,然後列印出來。
Wend
6
在完成腳本查詢以後不要忘記關閉和釋放資料庫和執行個體集。
str.Close '關閉資料集執行個體
Set str=Nothing '釋放資料集
Conn.Close '關閉資料庫執行個體
Set Conn=Nothing '釋放資料庫連接配接
7
完整的連接配接腳本代碼:
Set Conn=CreateObject("ADODB.Connection") '建立資料庫執行個體
'Const ConnectionString="Driver={Mysql ODBC 5.1 Driver};DATABASE=test;PWD=root;PORT=3306;SERVER=localhost;UID=root" '配置資料庫通行證
Conn.Open ConnectionString
Set str=CreateObject("ADODB.Recordset")'建立資料集執行個體
sql="SELECT shop_id FROM taobao_shop"
msgbox str.Fields("shop_id") '測試查詢得到的資料
str.MoveNext'使遊标進入下一個
Set str=Nothing