查询数据库,判断结果是否正确

查询数据库的Action

Dim connString
connString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Administrator\桌面\test.mdb;Persist Security Info=False"

cmd.activeconnection=connString

'查询名字的sql语句
sql="select PersonName from Users where PersonID='"&parameter("usercode")&"'"

cmd.CommandText=sql
Set res=cmd.Execute()

If res.EOF And res.BOF Then
 res.Close
 Reporter.ReportEvent micFail,"查询人员姓名","查询失败"
 parameter("username")="unknow"
 Else
 'res CSTR转换成字符串
 If  Cstr(res(0))<>"" Then
  Dim returnname
  returnname=Cstr(res(0))
  Reporter.ReportEvent micPass,"查询人员姓名","查询成功,"&parameter("username") & "姓名是" & returnname
  parameter("username")=Cstr(res(0))
 End If
End If

Set res=nothing
Set connString=nothing

调用查询Action的Action

Dim returnname

RunAction "QueryDB", oneIteration,"wangwu",returnname

MsgBox (returnname)