模板
教程
環境
性能
功能
管理
軟件測試 > 測試技術 > 軟件測試工具 > Mercury軟件測試工具 > QuickTestPro >
QTP中MS SQL SERVER數據庫連接的一種簡單方法
在 QTP 中,我們可以通過復制 數據庫 數據到databable中,實現數據的參數化.但這樣的做法往往比較煩瑣.換一種思路,在Expert View中直接添加連接數據庫代碼如何?接下來,我們就來完成這個 工作 . 對于MS sql server數據庫的連接,我們首先要知道所用的MS sql serv
在QTP中,我們可以通過復制數據庫數據到databable中,實現數據的參數化.但這樣的做法往往比較煩瑣.換一種思路,在Expert View中直接添加連接數據庫代碼如何?接下來,我們就來完成這個工作. 對于MS sql server數據庫的連接,我們首先要知道所用的MS sql server數據庫的連接字符串.這里告訴大家一個輕松獲取連接字符串的方法: 新建.txt文件,修改文件名(包括后綴)為XX.udl,雙擊打開XX.udl文件,在"Provider"選項中選擇"Microsoft OLE DB Provider for SQL Server",在"Connection"中,選擇相應的server name和database,有用戶名和密碼的輸入用戶名和密碼,點擊右下方的"Test Connection"驗證數據庫是否連通.點擊"OK".把XX.udl文件用記事本方式打開,以"Provider"開始的部分就是你的數據庫連接字符串.
知道了連接字符串,接下來我們來完善代碼部分.
Dim Cnn //定義變量
Dim Rst //定義變量
Dim strCnn //定義變量
strCnn="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=sa;Initial Catalog=test;Data Source=SIMONVM" //將獲得的連接字符串賦值到
strCnn Set Cnn=CreateObject("ADODB.Connection") //生成數據庫連接對象
Cnn.Open strCnn //打開數據庫 Set Rst=CreateObject("ADODB.Recordset") //生成記錄集對象
Rst.Open "select OrgName from Organization",Cnn //書寫SQL語句
Rst.MoveFirst //將焦點定在第一行
還可以通過Rst.Field( )函數取出對應行的值(參看QTP Tutorial Help).
對于以上代碼,我只是完成了MS sql server數據庫的連接和執行命令部分.后續對表格的應用還未涉及.希望大家指點和補充.
原文轉自：http://www.anti-gravitydesign.com
