[align=left]如题
非常简单的代码:
If Rs.State = 1 Then
Rs.Close
End If
cmd.ActiveConnection = ConnServer
cmd.CommandText = "PROC_FETCH_XCVR_ORACLE"
cmd.CommandType = adCmdStoredProc
Set param = cmd.CreateParameter("job_no_par", adChar, adParamInput, 50, txtjob.Text)
cmd.Parameters.Append param
Set param = cmd.CreateParameter("job_no_par", adChar, adParamOutput, 50, "")
cmd.Parameters.Append param
Set Rs = cmd.ExecuteIf Rs.RecordCount > 1 Then
但是运行到红色字体部分报错:Run-time error '3704':Operation is not allowed when the object is closed
我尝试在Set Rs = cmd.Execute之后加入Rs.Open,但仍然不起作用,帮忙看下是什么原因?
非常简单的代码:
If Rs.State = 1 Then
Rs.Close
End If
cmd.ActiveConnection = ConnServer
cmd.CommandText = "PROC_FETCH_XCVR_ORACLE"
cmd.CommandType = adCmdStoredProc
Set param = cmd.CreateParameter("job_no_par", adChar, adParamInput, 50, txtjob.Text)
cmd.Parameters.Append param
Set param = cmd.CreateParameter("job_no_par", adChar, adParamOutput, 50, "")
cmd.Parameters.Append param
Set Rs = cmd.ExecuteIf Rs.RecordCount > 1 Then
但是运行到红色字体部分报错:Run-time error '3704':Operation is not allowed when the object is closed
我尝试在Set Rs = cmd.Execute之后加入Rs.Open,但仍然不起作用,帮忙看下是什么原因?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货