ADO 3704错误，不知道为什么

[了缘]

Private Sub CmdQuery_Click()
Dim Rs As New ADODB.Recordset
Dim Conn As New ADODB.Connection
Conn.ConnectionTimeout = 600
Conn.CursorLocation = adUseServer
Conn.CommandTimeout = 600

Dim strSql As String
strConnString = "Provider=SQLOLEDB.1;Password=wecoo;Persist Security Info=True;User ID=sa;Initial Catalog=UDRP_app2;Data Source=UFSOFT3\sql1"
strSql = "exec dbo.s_proview_procsaleItemtype 2004"
' strSql = "select * from test"
Conn.Open strConnString

Rs.CursorLocation = adUseClient
' Rs.CursorType = adOpenStatic
Rs.Open strSql, Conn, adOpenStatic
' Set Rs = Conn.Execute("exec dbo.s_proview_procsaleItemtype 2004")

If Rs.EOF = False Then
Dim intI As Integer
intI = Rs.RecordCount
MsgBox intI
Set DataGrid.DataSource = Rs.DataSource
End If

Set Rs = Nothing
Set Conn = Nothing


End Sub


strSql = "exec dbo.s_proview_procsaleItemtype 2004"
' strSql = "select * from test"
如果换成下面的直接查询就没有问题，不知道为什么，求助，谢谢

[了缘]

exec dbo.s_proview_procsaleItemtype 2004
是有记录集返回的

[aohan]

你用ADODC的方法试一下，应该没有问题。

[myhgyp]

把下面一段改一下试试：
If Rs.EOF = False Then
Dim intI As Integer
intI = Rs.RecordCount
MsgBox intI
Set DataGrid.DataSource = Rs '已改
DataGrid.refresh '再增加这一句
End If

[了缘]

是执行到If Rs.EOF = False Then就报错了，说对象已经关闭，不可以操作，
就是说RS已经关闭了，但是我没有执行关闭操作。

[了缘]

谢谢大家，希望大家来讨论

[aohan]

你先这样解决，将你存储过程中的数据存到一个表中（我估计你内部是创建一个临时表或者只用了一条SELECT语句），然后再参该表进行绑定

[了缘]

谢谢帮助，已经解决了，
解决方法，存储过程中加了一句，set nocount on