|
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 |
|