这段程序总是出错，请帮忙！

[hfyanzi]

Dim cn_1 As ADODB.Connection
Dim cmd As ADODB.Command
Dim rs_1 As ADODB.Recordset
Dim strSql_1 As String

Set cn_1 = New ADODB.Connection
Set cmd = New ADODB.Command

cn_1.ConnectionString = "Provider=SQLOLEDB.1;" _
+ "Persist Security Info=false;Initial Catalog=xxx;Data Source=yyyy;user id=winhonor_KUCUEN;pwd=zzz" '广

cn_1.CursorLocation = adUseClient
cn_1.Open

cmd.ActiveConnection = cn_1
cmd.CommandText = "test1"
cmd.CommandType = adCmdStoredProc

Set rs_1 = cmd.Execute

If rs_1.RecordCount <= 0 Then
Exit Sub
End If

提示对象关闭时，不充许操作！
请各位帮助，哪里设置不对？
谢谢！

[cangwu_lee]

执行存储过程没有返回recordset

[hfyanzi]

代码如何写，谢谢！

[cangwu_lee]

Sub main()
Dim cn_1 As ADODB.Connection
Dim rs_1 As ADODB.Recordset
Set cn_1 = New ADODB.Connection

cn_1.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=false;Initial Catalog=pubs;Data Source=192.168.11.1;user id=sa;pwd=123456"

cn_1.CursorLocation = adUseClient
cn_1.Open

Dim i As Long
Set rs_1 = cn_1.Execute("TestProc", i)
i = rs_1.RecordCount
rs_1.Close
Set rs_1 = Nothing

cn_1.Close
Set cn_1 = Nothing

If i < 1 Then
Exit Sub
End If


End Sub

[hfyanzi]

哥们，还是周样的问题！

[clear_zero]

你查查你的存储过程本身，有没有返回值呢

[hfyanzi]

存储过程我在SQL Server中热行过能查出结果，没有问题，有记录集。

[hfyanzi]

过程如下：

ELECT CardNo, LabelNo, CONVERT(VARCHAR(10), OpTime, 120)
AS COL_1, CONVERT(VARCHAR(8), OpTime, 112) +
(SELECT RIGHT(10000 + COUNT(DISTINCT cardno) + 1, 4)
FROM OpHis
WHERE datediff(day, OpTime, getdate()) =5 AND (OpType = 2) AND
(MedicineNo NOT IN
(SELECT medicineno
FROM OpHis
WHERE optype = 3)) AND cardno < T.cardno) AS COL_2
into #sales
FROM OpHis T
WHERE (DATEDIFF(day, OpTime, GETDATE()) = 5) AND (OpType = 2) AND
(MedicineNo NOT IN
(SELECT medicineno
FROM OpHis
WHERE optype = 3))
ORDER BY CardNo

select cardno,goodsnumqb,col_1,col_2,LabelNo
from #sales,GoodsQB
where Goodsnum = labelno
order by cardno


请问这个存储过程在以上的程序调用中有什么问题？

[飘零风]

加上
rs_1.CursorType = adOpenStatic
试试

[hfyanzi]

不是不行

[liuwei308025]

rs_1 不需要open 吗？

[cqq_chen]

存储过程有问题！

[cqq_chen]

在存储过程中加入
set nocount on