vb执行存储过程为什么没记录返回？？？

[boaosi]

列入：Tb_AA
code username
1 aaa
2 bbb
3 ccc
创建存储过程
create proc pro_AA
as
begin
set nocount on
select * from Tb_AA
set nocount off
end
---- 执行这个存储过程应该是返回三条记录集

现在我用vb去调用
Dim con As New ADODB.Connection
Dim rs2 As New ADODB.Recordset
Dim mycom As New ADODB.Command

StrCon = "Provider=SQLOLEDB.1;Password=" & strPassWord & ";Persist Security Info=True;User ID=" & strUserName & ";Initial Catalog="数据库名";Data Source=."
con.CommandTimeout = 3000
con.ConnectionString = StrCon
con.Open
''''''''数据库连接没问题
Set mycom.ActiveConnection = con
mycom.CommandText = "pro_AA"
mycom.CommandType = adCmdStoredProc
Set rs2 = mycom.Execute("pro_AA")


执行到这里 rs2中应该有三条记录集。。。

可是我在程序中得到rs2的记录集为空？？？

？？？？

[penguinhzf]

我也试过同样的问题,但现在还没法解决.

[prcstar]

CON.CursorLocation = adUseClient'加上这句
CON.Open

[prcstar]

Set rs2 = mycom.Execute("pro_AA") '这句可以写为Set rs2 = mycom.Execute,不需要再使用存储过程名称

[boaosi]

试了上面几位的方法 还是没有成功哦


继续请教！！

[chenyanm]

直接用
Dim con As New ADODB.Connection
Dim rs2 As New ADODB.Recordset

StrCon = "Provider=SQLOLEDB.1;Password=" & strPassWord & ";Persist Security Info=True;User ID=" & strUserName & ";Initial Catalog="数据库名";Data Source=."
con.CommandTimeout = 3000
con.ConnectionString = StrCon
con.Open
''''''''数据库连接没问题
Set rs2 = con.Execute("exec pro_AA")

[boaosi]

还是不行哦

继续求助！！

[Tiger_Zhao]

好像记得存储过程中必须最后一句是 SELECT 语句，所以两句 set nocount 是不需要的。

[prcstar]

用SQL查询分析器执行
pro_AA
看是否有数据?

[fxgang]

存储过程
create proc pro_AA
as
begin
set nocount on
select * from Tb_AA
set nocount off
end
中
set nocount off
不需要
Dim DaCn As New ADODB.Connection
Dim DaRs As New ADODB.Recordset
Dim Sql As String

Sql="exec pro_AA"
DaCn.ConnectionString = StrCon
DaCn.Open
DaRs.CursorLocation = adUseClient
DaRs.Open Sql, DaCn, adOpenStatic, adLockReadOnly
if not DaRs then
......
end if
DaRs.Close
DaCn.Close
Set DaRs = Nothing
Set DaCn = Nothing

[tcbo]

用SQL查询分析器执行
pro_AA
看是否有数据?

若有：
Dim DaCn As New ADODB.Connection
Dim DaRs As New ADODB.Recordset
Dim Sql As String

Sql="exec pro_AA"
DaCn.ConnectionString = StrCon
DaCn.CursorLocation = adUseClient
DaCn.open StrCon


DaRs.Open strsql,DaCn,adOpenStatic, adLockReadOnly

===用下面的语句看下，DsRs的数据源SQL
debug.print DaRs.Source