Кака полусить данные, возвращаемые хранимой процедурой

[Altair]

Запускаю хранимую процедуру (Microsoft SQL Server), которая возвращает таблицу с данными.
Однако работать с данными не могу т.к. рекордсет закрыт(State= 0).
Ошибка ADODB.Recordset. Операция не допускается если рекордсет закрыт.
Почему так происходит?
Соединение открыто, с эти проблем нет.

Dim ConnetionString As String
Dim conn As ADODB.Connection
Dim Command As ADODB.Command


Set conn = New ADODB.Connection
Set Command = New ADODB.Command
Set ResRecord = New ADODB.Recordset

conn.ConnectionString = f_ConnectionString()
conn.Open
'обработка ошибок
On Error GoTo ErrLine

Command.ActiveConnection = conn
Command.CommandText = "GRS_REPORT1_PF"
Command.CommandType = adCmdStoredProc

Call Command.Parameters.Append(Command.CreateParameter("@DateEnd", adVarWChar, adParamInput, 20))
Command.Parameters("@DateEnd").Value = "02.02.2008"

Set ResRecord = conn.Execute(Command.CommandText, , CommandTypeEnum.adCmdStoredProc)
Call ResRecord.Open(Command, , ADODB.adOpenDynamic, ADODB.adOpenDynamic, сommandTypeEnum.adCmdStoredProc)

[Konst_One]

вот пример:

Код: Выделить всё

Public Function GetRequests(ByVal ModuleID As Integer) As ADODB.Recordset
Dim cmd As ADODB.Command
Dim Rs As ADODB.Recordset
Dim p As ADODB.Parameters

    Set cmd = New ADODB.Command
    cmd.ActiveConnection = GetConnectionString()
    cmd.CommandType = adCmdStoredProc
    cmd.CommandText = "GetRequests"
    Set p = cmd.Parameters
    p.Append cmd.CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue)
    p.Append cmd.CreateParameter("@ModuleID", adSmallInt, adParamInput, , ModuleID)

    Set Rs = New ADODB.Recordset
    Rs.CursorLocation = adUseClient
    Rs.Open cmd, , adOpenStatic, adLockReadOnly

    Set GetRequests = Rs

    Set cmd = Nothing
    Set Rs = Nothing
    Set p = Nothing   
End Function

[Antonariy]

Код: Выделить всё

Set ResRecord = conn.Execute(Command.CommandText, , CommandTypeEnum.adCmdStoredProc)
Call ResRecord.Open(Command, , ADODB.adOpenDynamic, ADODB.adOpenDynamic, сommandTypeEnum.adCmdStoredProc)

На лицо две попытки открыть один и тот же рекордсет. Первая не прокатит потому что в Execute нужно передавать текстовый запрос, а передается лишь имя процедуры без параметра. И этим способом возвращаемые параметры не получить.
Во второй adOpenDynamic не может быть четвертым параметром метода Open. Вернее его значение может, но смысл совсем другой. И последний параметр не нужен - то, что это хранимая процедура, было указано в Command.CommandType = adCmdStoredProc. Но в принципе рекордсет должен был открыться. А раз не открылся, значит в начале хранимой процедуры нет текста set nocount on.

Konst_One
p.Append - лишние. Если указать тип adCmdStoredProc, имя и соединение, то параметры создадутся сами - в хранимке они описаны.

[HandKot]

и не забыть в хранимой процедуре в начале написать
SET NOCOUNT ON
иначе рекордсет будет всегда заткрыт (точнее там вроде служебнпя информация), и чтобы получить результат выполнения надо будет делать NextRecordset

[alibek]

Konst_One
p.Append - лишние. Если указать тип adCmdStoredProc, имя и соединение, то параметры создадутся сами - в хранимке они описаны.

Лучше все-же после задания соединения и указания имени вызвать .Refresh, чтобы они гарантированно взялись с базы.

[Altair]

Не помогло, рекордсет закрыт. В процедуре прописал SET NOCOUNT ON. Процедура собирает данные во временную таблицу, последней строкой в ней идет

select * from #TempTable, остальной код:

Set conn = New ADODB.Connection
Set Command = New ADODB.Command
Set ResRecord = New ADODB.Recordset
ResRecord.CursorLocation = adUseClient

conn.ConnectionString = f_ConnectionString()
conn.Open

'обработка ошибок
On Error GoTo ErrLine

Command.ActiveConnection = conn
Command.CommandType = adCmdStoredProc
Command.CommandText = "GRS_REPORT1_PF"
Command.CommandTimeout = 100

Call Command.Parameters.Append(Command.CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue))

Call Command.Parameters.Append(Command.CreateParameter("@DateEnd", adVarWChar, adParamInput, 20))

Command.Parameters("@DateEnd").Value = ToDate

Call ResRecord.Open(Command, , ADODB.adOpenStatic, adLockReadOnly)


'проверяем наличие данных

If (ResRecord.EOF And ResRecord.BOF) Then
MsgBox ("Нет данных")
GoTo Exitsub
Else

Есть ли еще какие то нюансы?

[Antonariy]

Код процедуры в студию.

[Altair]

Процедура достаточно большая чтобы приводить ее код.
Внутри процедуры есть вызов другой процедуры. После того как убрал этот вызов, проблема с рекордсетом пропала.
Во второй процедуре ошибок нет, в SQL Server все корректно
работает.

Какая для VBA разница вызываю я что-то внутри процедуры или нет?

[Altair]

Во второй процедуре стояло set nocount off,
исправил на on и все заработало.

Спасибо всем