标题: vbscipt rs.recordcount的值总是等于-1救命啊 [打印本页] 作者: tuojing 时间: 2009-10-21 15:35 标题: vbscipt rs.recordcount的值总是等于-1救命啊 Dim Cmd, res,money
Set Cmd = CreateObject("ADODB.COMMAND")
Cmd.ActiveC
Set res = createobject("ADODB.RECORDSET")
Cmd.CommandType = 1
Cmd.CommandText ="select rtrim(t.fpadamount,'.') as a from fpadetail t ,baseuser b where b.usrid= t.usrid and b.usrname='truck' "
Set res = Cmd.Execute()
If res.Recordcount<>-1 Then
money=res(0)
else
money = 0
End If
MsgBox res.Recordcount
Set res = nothing
Set Cmd.ActiveConnection = nothing
Set Cmd= nothing