51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

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

[求助] 如何判定res(0)属性value是否有值

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-12-18 12:50:27 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Dim res,cmd,sql
Set res=createobject("adodb.recordset")
Set cmd=createobject("adodb.command")
Cmd.activec
Cmd.CommandType = 1
sql="select area_code from bw_in  where area_code='"&area_code"'
Cmd.CommandText = sql
res = Cmd.Execute()
'在这里做判断,如何判定res(0)属性value是否有值'//应该怎样判断
If   Cstr(res(0)) = Cstr(mm)Then
      Reporter.ReportEvent micPass, "Service",   "服务成功"     
  else
Reporter.ReportEvent micfail, "test",   "服务失败"
End If
Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2007-12-18 13:04:48 | 只看该作者
res是一个recordset对象,查询出来后你可以这样:
...
res.MoveFirst
if CStr(res.Fields.Item("Value") = CStr(mm) Then
...

你之前也可以用select count(*)来得到recordset的记录数
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2007-12-18 13:08:26 | 只看该作者
用watch检查的时候,有对象res(0),但是在属性中“value”的值为NO VALUE
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2007-12-18 13:11:18 | 只看该作者
谢谢
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2007-12-18 13:11:24 | 只看该作者
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-8 09:28 , Processed in 0.071477 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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