對于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.kjueaiud.com/
