TA的每日心情 | 奋斗 2014-12-18 10:31 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
回复 1# 的帖子
有两种方法,第一种适合没有数据库访问权限,第二种适合有数据库访问权限
方法一:
Dim row,maxrow,i,j
For j=1to 10000 '设置循环的次数,10000大于该页面数据的总页数就可以了
maxrow=Browser("A").Page("B").WebTable("C").RowCount '获取当前页最大行数
For row=2 to maxrow ’第一行为标题,所以从第2行开始
name=Browser("A").Page("B").WebTable("C").GetCellData(row,1) '依次获取各行中记录的名称(假设第一列为记录名称,如果为别的列,修改1为对应列号就可以了)
If name="已删除记录的名称"Then
Reporter.ReportEvent micFail,"删除失败","fail"
End If
next
If maxrow<11 Then '11为该数据表的最大行数,按照实际情况写
Exit for '当前页数据未达到翻页条件时,结束翻页
End If
Browser("A").Page("B").Link(">").Click '检查完当前页后,进行翻页
next
方法二:
Dim conn,strSql '定义变量
set conn = CreateObject("ADODB.Connection") '创建连接
conn.C '设置连接字符串
conn.open '开启连接
If conn.state = 0 Then '如果连接状态为0,表示连接失败,否则表示连接成功
Reporter.ReportEvent micFail,"测试连接","连接失败"
else
Reporter.ReportEvent micPass,"测试连接","连接成功"
Set yuju=CreateObject("ADODB.Recordset")
sql="select name from info where user='del'" 'name为记录名称,info为name所在的表,del为删除的记录,然后查看查询结果中是否有记录或者用语句判断都可以,有Reporter.ReportEvent micFail,没有Reporter.ReportEvent micPass
yuju.open sql,Conn,1,3
conn.close
Set conn = nothing
End If
[ 本帖最后由 feiyunkai 于 2009-10-28 16:18 编辑 ] |
|