应当将SUB改为FUNCTION,即:
Public Fuction Update(rs As adodb.Recordset) as long
在返回前应当将你在函数中运算得的id赋给Update,即:
Update=id
Public Fuction Update(rs As adodb.Recordset) as long
在返回前应当将你在函数中运算得的id赋给Update,即:
Update=id
将函数改为
Public Function Update(rs As ADODB.Recordset) As Long
Update = rs("id")
End Function
后,仍然是在lngRe=object.Update(rs)时出错。IE错误提示为:
Microsoft VBScript 运行时错误 (0x800A000D)