Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Ка прочит...

Тема: Ка прочитать возвращаемое значение из ХП?

15.06.2007 21:03:43

38 сообщения

Тема: Ка прочитать возвращаемое значение из ХП?

Доброго времени суток!

Как в клиенте на Access прочитать возвращаемое значение, после вызова ХП!

Спасибо!

P.S. Связь с SQL server
Автор: RV от 20.02.2003 14:44:49 Источник ...

15.06.2007 21:03:43

ТимурРахимов

16 сообщения

RE: Ка прочитать возвращаемое значение из ХП?

Не совсем ясно, правда, имелся ли в виду статус процедуры (то, что в Transact-SQL возвращается оператором RETURN), или параметр процедуры, объявленный как OUTPUT. Ниже приведён пример кода, который охватывает оба этих случая.

Хранимая процедура на сервере объявлена следующим образом:

Create Procedure dbo.пцПлатПоручОчерНомер
(
@Плательщик int,
@ВидПП varchar(3),
@Номер int output
)

А вот так выглядит функция-оболочка (wrapper) для вызова этой хранимой процедуры из VBA:

Function ОчереднойНомерПлатПоруч(Плательщик As Long, ВидПП As String) As Variant

Dim cmd As adodb.Command

Dim Статус As Integer

On Error Resume Next

Set cmd = New adodb.Command

cmd.ActiveConnection = Application.CurrentProject.Connection

cmd.CommandText = "пцПлатПоручОчерНомер"
cmd.CommandType = adCmdStoredProc

'порядок присоединения должен совпадать с порядком следования параметров в процедуре

'Этот параметр добавлять обязательно в первую очередь!
cmd.Parameters.Append cmd.CreateParameter("RETURN_VALUE", adInteger, adParamReturnValue)

cmd.Parameters.Append cmd.CreateParameter("Плательщик", adInteger, adParamInput, , Плательщик)
cmd.Parameters.Append cmd.CreateParameter("ВидПП", adVarChar, adParamInput, 3, ВидПП)
cmd.Parameters.Append cmd.CreateParameter("Номер", adInteger, adParamOutput)

cmd.Execute
If Err <> 0 Then
ОчереднойНомерПлатПоруч = Null
Exit Function
End If

Статус = cmd!RETURN_VALUE

If Статус = 0 Then
ОчереднойНомерПлатПоруч = cmd.Parameters("Номер")
Else
ОчереднойНомерПлатПоруч = Null
End If

End Function

P.S. Связь с SQL server
Автор: Тимур Рахимов от 12.01.2004 22:18:52 Источник ...

15.06.2007 21:03:43

All

4316 сообщения