原創|行業資訊|編輯:龔雪|2016-04-05 10:41:31.000|閱讀 1764 次
概述:分享UFT(原QTP)調用數據庫的幾個技巧
# 界面/圖表報表/文檔/IDE等千款熱門軟控件火熱銷售中 >>
UFT中有一個CMD,在CMD中可以做很多事情。在這里,我們為大家講解在UFT中怎樣通過psql.exe操作數據庫。
psql.exe 是pgAdmin的一個工具,默認存儲位置在“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
UFT加載函數庫包含以下3種方式:
UFT加載函數庫3種方式的區別:
Dim AdoCnn ,strDb,Rst,strCnn,ilen ,strsql '//定義變量 strCnn=" DSN=qtp;Description=study_Qtp;UID=sa;PWD=123;APP=UFTBase;WSID=.;DATABASE=suooter" 'qtp為ODBC數據源 'strCnn=" DRIVER=SQL Server;SERVER=.;UID=sa;PWD=123;APP=Microsoft Office 2003;WSID=.;DATABASE=suooter " '無ODBC數據源方式 Set AdoCnn=CreateObject("ADODB.Connection") '//生成數據庫連接對象 AdoCnn.Open strCnn ' //打開數據庫 If AdoCnn.State=0 Then '判斷是否鏈接數據庫成功 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
在for循環內的最后一行添加:
DataTable.GetSheet("***").SetNextRow ' 可獲取DataTable中的下一行數據
本站文章除注明轉載外,均為本站原創或翻譯。歡迎任何形式的轉載,但請務必注明出處、不得修改原文相關鏈接,如果存在內容上的異議請郵件反饋至chenjj@fc6vip.cn