'定義乙個變數
dim cnn
'建立乙個adodb物件，賦值給這個變數
set cnn =createobject("adodb.connection")
'連線指定的資料庫，使用者名稱密碼和資料來源名稱(data source就是步驟一建立的資料來源名稱)根據實際環境填寫
'cnn.connectionstring="provider=oraoledb.oracle.1;persist security info=false;userid=mibs;password=mibs;data source=mibs71" ' oracle
cnn.connectionstring="provider=msdasql.1;password=db2inst1;persist security info=true;user id=db2inst1;data source=39_xbankred" ' db2
'建立開啟資料庫的函式
function dbopen()
cnn.open '開啟資料庫連線
if cnn.state = 0 then '判斷資料庫連線是否成功
reporter.reportevent micfail,"testing", "連線資料庫失敗"
else
reporter.reportevent micpass,"testing", "連線資料庫成功"
end if
end function
'建立關閉資料庫的函式
function dbclose()
cnn.close
set cnn = nothing
end function
'建立你要運算元據庫的sql語句
function dbdel()
if cnn.state<>0 then
del_quicktrans_term = "delete fromquicktrans_term"
del_cashdrawer = "delete fromcashdrawer"
cnn.execute del_quicktrans_term
cnn.execute del_cashdrawer
end if
end function
qtp查詢mysql QTP如何連線 查詢資料庫
完整的連線指令碼 dim conn set conn createobject adodb.connection 建立資料庫例項 const connectionstring driver database test pwd root port 3306 server localhost uid r...
qtp查詢mysql QTP中測試資料庫連線
祝大家新年快樂，有任何問題可與我聯絡 二 方式 1 set con createobject adodb.connection conset driver server oracle uid llr pwd llr con.open conset if con.state 0 then msgbox...
qtp連線mysql 無驅動 QTP連線MySQL
1 安裝 connector odbc 2 檢視資料來源名稱 控制面板 管理工具 資料來源 odbc 新增 3 連線資料庫 dim conn,connstring 建立資料庫例項 set conn createobject adodb.connection 連線字串 connstring drive...