UFT試用版下載

使用UFT調(diào)用psql.exe操作postgresql

UFT中有一個(gè)CMD，在CMD中可以做很多事情。在這里，我們?yōu)榇蠹抑v解在UFT中怎樣通過(guò)psql.exe操作數(shù)據(jù)庫(kù)。

psql.exe 是pgAdmin的一個(gè)工具，默認(rèn)存儲(chǔ)位置在“C:\Program Files\PostgreSQL\9.3\bin”（視具體情況而定）。

如下所示：

    SystemUtil.Run "cmd"
    Window("cmd").Type "C:"
    Window("cmd").Type micReturn
    Window("cmd").Type "cd C:\Program Files\PostgreSQL\9.3\bin"
    Window("cmd").Type micReturn
    Window("cmd").Type "psql.exe -h localhost -U root -d security_db -p 5432"
    Window("cmd").Type micReturn

1. 使用UFT自帶的SystemUtil 打開一個(gè)cmd 窗口
2. 使用UFT定位得到這個(gè)CMD窗口
3. 切換到psql.exe所在的目錄（也是可以不用的，直接帶路徑就可以，Program Files 有空格，需要引號(hào)）
4. 連接到postgresql
   • 主機(jī)地址
   • 數(shù)據(jù)庫(kù)用戶名
   • 數(shù)據(jù)庫(kù)密碼
   • 數(shù)據(jù)庫(kù)實(shí)例名稱
   • 連接之后就是各種CURD了

UFT加載函數(shù)庫(kù)的3種方式

UFT加載函數(shù)庫(kù)包含以下3種方式：

• 靜態(tài)加載函數(shù)庫(kù)：File-Setting-Resources
• 動(dòng)態(tài)調(diào)用VBS文件：ExecuteFile
• 動(dòng)態(tài)調(diào)用函數(shù)：LoadFunctionLibrary

UFT加載函數(shù)庫(kù)3種方式的區(qū)別：

• 靜態(tài)加載方式與LoadFunctionLibrary方式都能加載vbs、txt、qfl格式，而ExecuteFile只能加載vbs格式
• 靜態(tài)加載方式后，我們可以使用F7（stepgenerator）來(lái)生成步驟
• 當(dāng)腳本中設(shè)置斷點(diǎn)后，用靜態(tài)加載方式和LoadFunctionLibrary方式會(huì)回到腳本中，而ExecuteFile不會(huì)
• 當(dāng)腳本中含有類時(shí)，使用ExecuteFile；腳本中不含類時(shí)使用LoadFunctionLibrary方便排查錯(cuò)誤

QTP連接MSsql數(shù)據(jù)庫(kù)操作

    Dim AdoCnn ,strDb,Rst,strCnn,ilen ,strsql '//定義變量
    strCnn=" DSN=qtp;Description=study_Qtp;UID=sa;PWD=123;APP=UFTBase;WSID=.;DATABASE=suooter" 'qtp為ODBC數(shù)據(jù)源

    'strCnn=" DRIVER=SQL Server;SERVER=.;UID=sa;PWD=123;APP=Microsoft Office 2003;WSID=.;DATABASE=suooter "  '無(wú)ODBC數(shù)據(jù)源方式

    Set AdoCnn=CreateObject("ADODB.Connection") '//生成數(shù)據(jù)庫(kù)連接對(duì)象
    AdoCnn.Open strCnn   '   //打開數(shù)據(jù)庫(kù)
    If AdoCnn.State=0 Then '判斷是否鏈接數(shù)據(jù)庫(kù)成功
    msgbox "Connect Fail"
    else
    msgbox "Connect Success"
    End If

    strsql="Select x  FROM PlayerInfo"
    Set Rst =AdoCnn.Execute(strsql)
    ' 得到所有列值
    While not Rst.EOF
    msgbox Rst.Fields.Item("x").Value
    Rst.MoveNext
    Wend

    Rst.Close
    AdoCnn.close
    Set AdoCnn=Nothing
    Set Rst=Nothing

回放時(shí)只訪問(wèn)Datatable第一行數(shù)據(jù)的解決方法

在for循環(huán)內(nèi)的最后一行添加：

    DataTable.GetSheet("***").SetNextRow '

    可獲取DataTable中的下一行數(shù)據(jù)