|
脚本如下:
查询出记录数为:78条,
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
Browser("测试登录").Page("办公自动化系统").Frame("mainFrame").Output CheckPoint("78")
Dim mm
mm=DataTable.GlobalSheet.GetParameter("mainFrameOutput_Text_out").Value //从datatable中取值是这么取的吗?
Dim res,cmd,sql
Set res=createobject("adodb.recordset")
Set Cmd=createobject("adodb.command")
Cmd.activeconnection="DRIVER={Oracle in OraHome92};SERVER=HKORACLE;UID=USER_ZJLH;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;"
Cmd.CommandType = 1
sql="select count(*) from oa_receivebumf where BUMFNAME like'%收文测试%'" //直接在数据库中查询出来也是78条记录,sql语句正确的
Cmd.CommandText = sql
Set res = Cmd.Execute()
if sql=mm Then
Reporter.ReportEvent micPass, "test", "查询成功"
else
Reporter.ReportEvent micfail, "test", "查询失败" //每次执行都是提示查询失败,不知道问题出现在哪
End If
Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing
[ 本帖最后由 linvsfen00 于 2007-5-9 10:42 编辑 ] |
|