刚开始学习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