vb调用存储过程返回记录集的问题(vb的bug,头疼)

[lianlei]

cmd.ActiveConnection = con
cmd.CommandText = "checkContact"
cmd.CommandType = adCmdStoredProc
cmd.CommandTimeout = 0
cmd.Parameters("@BeginDate") = CDate("2006-6-1")
cmd.Parameters("@EndDate") = CDate("2006-6-28")
cmd.Parameters("@FCustID") = "08.01.07.07"
Set rs = cmd.Execute


-------------------------------------
我上面的代码返回记录集时会报错，提示记录集已经关闭，如果cmd.Parameters("@FCustID") = "08.01.07.07"中的08.01.07.07换成其他值时就不会出错，能够查询到结果
我的vb已经打上sp6的补丁了,mdac为2.8的,实在找不出原因了

[一笑拔剑]

不是吧
试下看

[蔡健常熟]

Dim cmd As ADODB.Command
Dim rs As ADODB.Recordset
Dim connect_p As ADODB.Connection
Set connect_p = New ADODB.Connection
connect_p.ConnectionString = con
connect_p.CommandTimeout = 3600
connect_p.Open

Set rs = New ADODB.Recordset
Set cmd = New ADODB.Command
Set cmd.ActiveConnection = connect_p
cmd.CommandText = "checkContact"
cmd.CommandType = adCmdStoredProc
cmd.CommandTimeout = 0
cmd.Parameters("@BeginDate") = CDate("2006-6-1")
cmd.Parameters("@EndDate") = CDate("2006-6-28")
cmd.Parameters("@FCustID") = "08.01.07.07"
Set rs = cmd.Execute

这样估计没问题了

[duyhui]

同意楼上

[一笑拔剑]

呵呵

不是这样吧

[迈克揉索芙特]

con.open
cmd.ActiveConnection = con
cmd.CommandText = "checkContact"
cmd.CommandType = adCmdStoredProc
cmd.CommandTimeout = 0
cmd.Parameters("@BeginDate") = CDate("2006-6-1")
cmd.Parameters("@EndDate") = CDate("2006-6-28")
cmd.Parameters("@FCustID") = "08.01.07.07"
Set rs = cmd.Execute

[zyg0]

我也遇到过这个问题
create proc aaaa
as
begin
set nocount on --估计你没有加这一句加上
select * from 表
set nocount off --估计你没有加这一句加上
end
这个是oledb连接的问题 只要注意下存储过程的写法就行乐

[fj182]

呵呵，我也曾经被这个问题搞得很郁闷。楼上正解。

[一笑拔剑]

楼上正解

[verywzm]

mark

[还想懒够]

对

Set nocount on

[空心兜兜]

帮顶！

[beijingbeerman]

mark

[clear_zero]

create proc aaaa
as
begin
set nocount on --估计你没有加这一句加上
select * from 表
set nocount off --估计你没有加这一句加上
end

曾经头疼过