页面总数怎么获取
本帖最后由 jialingling7777 于 2016-11-10 17:15 编辑Browser("问学学校管理平台").Page("问学学校管理平台_3").WebElement("总计：67") '这里面的67就是一个变量，回放的时候会报对象不存在，因为新增一条数据后这个值+1了
LZ你这个是分享帖子吗？我怎么感觉分享的话说的有点简单了。建议可以写得详细一点。 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=0;PWD=learnask;PORT=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 sumfrom t_student where school_id=546 and delete_flag=0"
set sqlexe=Conn.Execute(sql)
Whilesqlexe.EOF'EOF结束符
sqlvalue=sqlexe.Fields.item("sum").value
msgbox sqlvalue
Wend
Conn.Close
SetConn=nothing
Set sqlexe=nothing
'-----------------------------------页面的总总数与数据库中的值比较------------------------------------------
If intnum=sqlvalue Then
msgbox "列表总数据正确"
else
msgbox "列表总数据不正确"
End If jialingling7777 发表于 2016-11-11 10:12
不是我是想问大家怎么获取，不过我已经解决了，可以分享给大家：
'------------------------------- ...
好的 支持你的分享，特此已经奖励测试积点了哦！{:3_75:} 支持
页:
[1]
