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

zhangjl76

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

smart55

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

gjay1688

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

zhangjl76

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

feiyunkai

有两种方法，第一种适合没有数据库访问权限，第二种适合有数据库访问权限
方法一：
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 编辑 ]