页面总数怎么获取

jialingling7777

Browser("问学学校管理平台").Page("问学学校管理平台_3").WebElement("总计：67") '这里面的67就是一个变量，回放的时候会报对象不存在，因为新增一条数据后这个值+1了

lsekfe

LZ你这个是分享帖子吗？我怎么感觉分享的话说的有点简单了。建议可以写得详细一点。

jialingling7777

lsekfe 发表于 2016-11-11 10:01
LZ你这个是分享帖子吗？我怎么感觉分享的话说的有点简单了。建议可以写得详细一点。

不是我是想问大家怎么获取，不过我已经解决了，可以分享给大家：

'  --------------------------------------获取页面总数------------------------------------------------
Private Sub Command1_Click()

   Dim s
   Dim l
     s=Browser("问学学校管理平台").Page("问学学校管理平台_3").WebElement("总计：67").GetROProperty("innertext")      'WebElement("总计：67")这块67是变量，要正则表达式处理下，否则回复失败的
    l =right(s,2)   '获取总计：后面的数值
        intnum=cint(l)
        msgbox intnum

End Sub

Call Command1_Click()


Dim Conn
Set Conn=CreateObject("ADODB.Connection")        '创建数据库实例
Const ConnectionString="DATABASE=wenxue_master;DESCRIPTION=for test;DSN=wenxue;OPTION=0WD=learnaskORT=3306;SERVER=10.0.0.212;UID=learnask"
Conn.Open ConnectionString    '打开数据库
If Conn.State<>0Then
Reporter.ReportEvent micPass,"testing","连接数据库成功"         '校验数据库是否成功连接
msgbox "连接数据库成功"
else
Reporter.ReportEvent micFail,"testing","连接数据库失败"
End If
'---------------------------------------数据库中检查的总数----------------------------------------------------------------------------
sql="select count(*) as sum  from t_student where school_id=546 and delete_flag=0"
set sqlexe=Conn.Execute(sql)
While  sqlexe.EOF  'EOF结束符
        sqlvalue=sqlexe.Fields.item("sum").value
    msgbox sqlvalue
Wend

Conn.Close
Set  Conn=nothing
Set sqlexe=nothing
'-----------------------------------页面的总总数与数据库中的值比较------------------------------------------
If intnum=sqlvalue Then
         msgbox "列表总数据正确"
          else
           msgbox "列表总数据不正确"
End If

lsekfe

jialingling7777 发表于 2016-11-11 10:12
不是我是想问大家怎么获取，不过我已经解决了，可以分享给大家：

'  ------------------------------- ...

好的 支持你的分享，特此已经奖励测试积点了哦！

jingzizx

支持