急救!高分相送!执行存储过程,返回的recordSet总是说对象已关闭?WHY?
我用的是VB6.0 + SQLSERVER2000, 执行一存储过程,其中存储过程带有输出参数.
代码如下:
Dim strCnn As String
Dim cnn As ADODB.Connection
Dim cmdChange As ADODB.Command
Set cmdChange = New ADODB.Command
cmdChange.ActiveConnection = cnn
cmdChange.CommandType = adCmdStoredProc
cmdChange.CommandText = "stu_GetChangeByNO"
cmdChange.Parameters.Append cmdChange.CreateParameter("@stuNo", adChar, adParamInput, 6)
cmdChange.Parameters.Append cmdChange.CreateParameter("@id", adInteger, adParamOutput)
cmdChange.Parameters.Append cmdChange.CreateParameter("@des", adVarChar, adParamOutput, 50)
cmdChange.Parameters.Append cmdChange.CreateParameter("@recordTime", adDate, adParamOutput)
cmdChange.Parameters.Append cmdChange.CreateParameter("@memo", adVarChar, adParamOutput, 1000)
cmdChange.Parameters("@stuNo").Value = txtStuNo.Text
cmdChange.Execute
然后想将recordset绑定到datagrid或adodc上,
使用
Dim rsChange As New ADODB.Recordset
Set rsChange.Source = cmdChange
rsChange.Open
MsgBox rsChange.RecordCount
执行时总是说"对象关闭时,不允许操作"
我晕!不是已经Open了吗? 查了好多资料, 试过好几种方法都搞不定, 请大家帮忙啊.分不够说一声. 有答案立马加!
赶着知道,谢了!