51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2646|回复: 4
打印 上一主题 下一主题

[原创] 怎么验证页面上的记录被删除不存在了?

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-9-10 09:34:23 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
我在页面上创建一条记录后,然后删除,怎么验证这条记录不存在了?
大家帮帮我啊,在线等 !!!!!!!!!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2009-9-10 09:42:13 | 只看该作者
连接到数据库上,查询你刚删除的这条记录,如果查询结果为0条记录,则该记录不存在。
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2009-10-15 10:52:00 | 只看该作者
简单点,直接在页面上验证一下这条记录不存在就行了
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2009-10-15 11:11:04 | 只看该作者

问个问题,行吗?

你好,在吗?打扰一下,能问你个问题吗?
回复 支持 反对

使用道具 举报

  • TA的每日心情
    奋斗
    2014-12-18 10:31
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    5#
    发表于 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
    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 编辑 ]
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-25 08:05 , Processed in 0.081532 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表