TA的每日心情 | 衰 2017-12-27 14:08 |
---|
签到天数: 4 天 连续签到: 1 天 [LV.2]测试排长
|
3#
楼主 |
发表于 2016-11-11 10:12:23
|
只看该作者
不是我是想问大家怎么获取,不过我已经解决了,可以分享给大家:
' --------------------------------------获取页面总数------------------------------------------------
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 |
评分
-
查看全部评分
|