如何判定res(0)属性value是否有值

silencesnow

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

gy21st

res是一个recordset对象，查询出来后你可以这样：
...
res.MoveFirst
if CStr(res.Fields.Item("Value") = CStr(mm) Then
...

你之前也可以用select count(*)来得到recordset的记录数

silencesnow

用watch检查的时候，有对象res(0)，但是在属性中“value”的值为NO VALUE

silencesnow

谢谢

silencesnow