делаю клиентское приложение в access 2007 для sql server 2005

обработчик события click:

передаю входные параметры ХП: @b_code, @r_un, @date_z, @srok_v (это всё Input), выходной параметр: @out_msg (output):

CurrentDb.QueryDefs("new_registration").SQL = "use library EXECUTE new_registration @b_code='" & Me.ПолеСоСписком20.Value & "', @r_un='" & [ПолеСоСписком3] & "', @date_z='" & Me.Поле58.Value & "', @srok_v='" & Me.Поле38.Value & "', @out_msg=1 "

выполняю запрос:
DoCmd.OpenQuery ("new_registration")

запрос хорошо отрабатывается, но вот не мзнаю, как в VB получить значение выходного параметра @out_msg (int) !!!

вот сама ХП:

ALTER proc [dbo].[new_registration]
@b_code char(10), @r_un int, @date_z datetime, @srok_v datetime=null, @out_msg int output
as
exec ostatok /*обращаюсь к процедуре подсчета текущего числа экземпляров каждой книги по каждому залу*/
declare @rr char(10)
set @rr=(select library.dbo.readers.rr_id from library.dbo.readers where library.dbo.readers.reader_un=@r_un) /*вычисляю номер зала, за которым закреплен читатель*/

if (select book_ost from library.dbo.book_count where library.dbo.book_count.book_code=@b_code and library.dbo.book_count.rr_id=@rr)>0 /*определяю наличие экземпляров (>=1) выбранной книги в зале*/
and (select library.dbo.readers.Date_vyp from library.dbo.readers where library.dbo.readers.reader_un=@r_un) is NULL /*"валидация" читателя*/
begin
INSERT INTO Registration (book_code, reader_un, date_zakr, srok_vozvr) VALUES (@b_code, @r_un, convert(datetime,@date_z,104), convert(datetime,@srok_v,104)) /*если хотя бы один экземпляр выбранной книги имеется в наличии, осуществляю акт регистрации записи в регистрационном журнале*/
exec ostatok /*обновляю сведения о текущем количестве книг*/
set @out_msg=1
end

else
begin
set @out_msg=0
end

return @out_msg

Помогите, пожалуйста, братцы, сроки меня поджимают уже!!!!

но мне не нужны рекордсеты (я не отчет строю, и не выборку какую-нибудь, а просто добавляю запись в таблицу с предпроверкой кучи условий), так вот, в зависимости от сценария выполнения процедуры (блок If), мне в accesse нужно будет показать одно сообщение: типа "ок, запись добавлена", если же процедура выполнилась по другому сценарию (блок else), то показываю пользователю другой мессадж: "запись НЕ сохранена, перепроверь входящие данные". так вот чтобы показывать эти мессаджы, надо знать, как процедура выполнилась, а кроме привязки этого результата к выходным параметрам, я ничего не придумала...

везде пишут про ADODB.Command, НО:
Dim cmd As ADODB.Command сразу выдает ошибку: User-defined type not defined

Это вообще возможно: присвоить переменной VB значение выходного параметра ХП SQL???????

[/quot]

скукотища, не могли бы Вы поподробнее расписать этот момент, то есть слепить аналог этому:


используя Dim cmd AsObject и т.д.

Пошла другим путем: добавила-таки ссылку на Microsoft ActiveX Data Objects 2.X Library в Tools\References

сделала тестовую ХП "fu"^


вызываю в VB:


выдает ошибку: "Произошли ошибки во время выполнения пошаговой операции OLE DB. По восзможности проверьте значения всех состояний OLE DB/ Работа не выполнена"

укажите, пожалуйста, на мою ошибку!

Всем огромное человеческое СПАСИБО, а ососбенно ё !!!