帮忙看一下脚本，如何才能查询成功

linvsfen00

脚本如下：
查询出记录数为：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 编辑 ]

yzem99

你可以打出来看看取的值是不是对啊

mm=DataTable("mainFrameOutput_Text_out", dtGlobalSheet)
MsgBox mm

dcyan

sql=mm?
"select count(*) from oa_receivebumf  where BUMFNAME like'%收文测试%'" =78?
是不是应该写成 res(0)＝mm?

[ 本帖最后由 dcyan 于 2007-5-8 21:05 编辑 ]

linvsfen00

非常感谢

linvsfen00

mm=DataTable("mainFrameOutput_Text_out", dtGlobalSheet)
MsgBox mm
打印出来是78条记录

还有就是
mm=DataTable.GlobalSheet.GetParameter("mainFrameOutput_Text_out").Value
MsgBox mm   //打印出来也是78条记录

mm=DataTable("mainFrameOutput_Text_out", dtGlobalSheet)和mm=DataTable.GlobalSheet.GetParameter("mainFrameOutput_Text_out").Value取的值是一样的，谢谢

[ 本帖最后由 linvsfen00 于 2007-5-9 09:52 编辑 ]

linvsfen00

谢谢三楼
"select count(*) from oa_receivebumf  where BUMFNAME like'%收文测试%'" =78?  是的，查询出是78条记录
res(0)＝mm，修改成这语句还是查询失败

[ 本帖最后由 linvsfen00 于 2007-5-9 13:31 编辑 ]

linvsfen00

MsgBox res(0)，打印该语句是也是78条记录

是不是下面的if语句写得有问题？
MsgBox res(0)
if   res(0)=mm Then
     Reporter.ReportEvent micPass, "test",   "查询成功"    //如果执行   if res(0)=78 and mm=78  Then语句时就提示查询成功
     else
    Reporter.ReportEvent micfail, "test",   "查询失败"
End If


如果执行   if res(0)=78 and mm=78  Then语句时就提示查询成功，那为什么执行   if   res(0)=mm Then 时会提示失败？？？

如果需要两个值进行比较，相等的话就提示成功，不相等时提示失败，脚本如何编辑？谢谢

[ 本帖最后由 linvsfen00 于 2007-5-9 10:33 编辑 ]

zoeHuang

可能取出来的两个值不是同一个类型，所以用等号直接比较的时候有问题，可以试试 用Cstr 把两个值都转换成string然后比较看看

linvsfen00

谢谢zoeHuang的回答，转换成  
if   Cstr(res(0)) = Cstr(mm)Then
后，执行通过。问题解决。sdlkfj3