执行存储过程能返回给记录集（recordset）吗，为什么他老说我对象关闭？？高手们帮我看一下，急坏了啊？？？

[ylljony]

Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
Set record = Conn.Execute("exec sp_PSXFRR00 '" & Trim(lblfstrcode.Caption) & "','" & strRegister & "', '" & CDate(lblfxfrdate.Caption) & "','" & Trim(txtfxfrno.Text) & "','10010'")
Set rpt_XfrR00.DataSource = RS
‘或者下面执行================
Set rpt_XfrR00.DataSource = Conn.Execute("exec sp_PSXFRR00 '" & Trim(lblfstrcode.Caption) & "','" & strRegister & "', '" & CDate(lblfxfrdate.Caption) & "','" & Trim(txtfxfrno.Text) & "','10010'")
’=============================能这样吗？
rpt_XfrR00.Refresh
rpt_XfrR00.Show

[ylljony]

在sql server 2000中啊

[lihonggen0]

你跟踪一下你的SQL语句，在SQL查询分析器里试一下，看能否得到数据？

如果没有数据，就是你的存储过程的问题，或是没数据

如果有数据，请在存储过程前加上
SET NOCOUNT ON

存储过程末加上：
SET NOCOUNT OFF


如：

create proc getlinkinfo
as

SET NOCOUNT ON


..........


SET NOCOUNT OFF


这样在VB6应用程序中就可以得到数据了

[creazyfish]

同意楼上的嘿嘿

[huangjianyou]

record那里定义了？存储过程肯定可以返回记录集啦。

^_^

[ylljony]

不好意思是我发错了，应该如下：

Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
Set RS = Conn.Execute("exec sp_PSXFRR00 '" & Trim(lblfstrcode.Caption) & "','" & strRegister & "', '" & CDate(lblfxfrdate.Caption) & "','" & Trim(txtfxfrno.Text) & "','10010'")
Set rpt_XfrR00.DataSource = RS
‘或者下面执行================
Set rpt_XfrR00.DataSource = Conn.Execute("exec sp_PSXFRR00 '" & Trim(lblfstrcode.Caption) & "','" & strRegister & "', '" & CDate(lblfxfrdate.Caption) & "','" & Trim(txtfxfrno.Text) & "','10010'")
’=============================能这样吗？
rpt_XfrR00.Refresh
rpt_XfrR00.Show

[True1024]

Dim RS As ADODB.Recordset
Set RS = New ADODB.Recordset
Set RS = Conn.Execute("exec sp_PSXFRR00 '" & Trim(lblfstrcode.Caption) & "','" & strRegister & "', '" & CDate(lblfxfrdate.Caption) & "','" & Trim(txtfxfrno.Text) & "','10010'")
Set rpt_XfrR00.DataSource = RS
这样可以.

[ylljony]

TO True1024(星空) :
你这不是跟我的一样吗？说过了出错：”对象关闭时，不能操作“

[ylljony]

注明：XfrR00为报表？？？？？？？？？？
高手们，快帮忙解决啊，急坏了？？？？？？？？？？？？？？？？？？？？？？

[GGL123]

存储过程在哪