怎么验证页面上的记录被删除不存在了？

zhangjl76 发表于 2009-9-10 09:34:23

我在页面上创建一条记录后，然后删除，怎么验证这条记录不存在了？
大家帮帮我啊，在线等！！！！！！！！！

smart55 发表于 2009-9-10 09:42:13

连接到数据库上，查询你刚删除的这条记录，如果查询结果为0条记录，则该记录不存在。

gjay1688 发表于 2009-10-15 10:52:00

简单点，直接在页面上验证一下这条记录不存在就行了

zhangjl76 发表于 2009-10-15 11:11:04

问个问题，行吗？

你好，在吗？打扰一下，能问你个问题吗？

feiyunkai 发表于 2009-10-28 15:57:43

回复 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
Ifmaxrow<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 编辑 ]

页: [1]

51Testing软件测试论坛 's Archiver