Quicktest professional连接数据库查询例子

刚开始学习QTP，学习数据库连接的例子
脚本如下：

Browser("测试登录").Page("测试登录").WebEdit("uname").Click
Browser("测试登录").Window("人员选择 -- 网页对话框").Page("人员选择").Frame("contentLeft").Link("人事部").Click
Browser("测试登录").Window("人员选择 -- 网页对话框").Page("人员选择").Frame("basefrm").Link("胡芬").Click
Browser("测试登录").Window("人员选择 -- 网页对话框").Page("人员选择").Frame("botfrm").Image("btn_gb_on").FireEvent "onmouseover"
Browser("测试登录").Window("人员选择 -- 网页对话框").Page("人员选择").Frame("botfrm").Image("btn_gb_on").Click
Browser("测试登录").Page("测试登录").WebButton("登 录").Click
Browser("测试登录").Page("办公自动化系统").Frame("leftFrame").Link("公文管理").Click
Browser("测试登录").Page("办公自动化系统").Frame("leftFrame_2").Link("收文管理").Click
Browser("测试登录").Page("办公自动化系统").Frame("leftFrame_2").Link("收文查询").Click
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").WebEdit("oaReceiveBumf.bumfName").Set "收文测试"
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").Image("btn_cx_on").FireEvent "onmouseover"
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").Image("btn_cx_on").Click
'DbTable("DbTable_4").Output CheckPoint("DbTable_4")

//Dim nn
//nn=DataTable.GlobalSheet.GetParameter("p_Text").Value

Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").Output CheckPoint("78")
Dim mm
//mm=DataTable.GlobalSheet.GetParameter("mainFrameOutput_Text_out").Value
mm=DataTable("mainFrameOutput_Text_out", dtGlobalSheet)
MsgBox mm

Dim res,cmd,sql

Set res=createobject("adodb.recordset")
Set cmd=createobject("adodb.command")
Cmd.activeconnection="DRIVER={Oracle in OraHome92};SERVER=HKORACLE;UID=USER;PWD=ZJLH;DBQ=HKORACLE;DBA=W;APA=T;EXC=F;XSM=Default;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;BTD=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;"
//连接oracle数据库

Cmd.CommandType = 1
sql="select count(*) from oa_receivebumf  where BUMFNAME like'%收文测试%'"   //模糊查询，查询名称含有“收文测试”的记录总数
//sql="select  count(*)  from oa_receivebumf  where BUMFNAME='"&nn&"'"
Cmd.CommandText = sql
Set res = Cmd.Execute()

MsgBox res(0)
If   Cstr(res(0)) = Cstr(mm)Then                     //CSTR转换成字符串

      Reporter.ReportEvent micPass, "test",   "查询成功"     //判断是否相等，相等则输出“查询成功”
  else
 Reporter.ReportEvent micfail, "test",   "查询失败"
End If

Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing

Browser("测试登录").Page("办公自动化系统").Frame("leftFrame_2").Link("注销").Click
Browser("测试登录").Page("测试登录_2").Sync