Ошибка при обращении к хранимой процедуре MS SQL через vba ADODB.Command

@Ritm · Регистрация: 19.08.2011

Студворк — интернет-сервис помощи студентам

Пишет что избыточность параметров не могу не как понять что не так пишу, поправьте пожалуйста.
Код хранимой процедуры на сервере MS SQL возвращает числовое значение равное единице

T-SQL
1
2
3
4
5
6
7
8
9
10
ALTER PROC [dbo].[MenuL1Count]
    @UserId int
AS
    SELECT COUNT(T2.id)
    FROM [dbo].[tbsys_autuse] AS T1
    INNER JOIN [dbo].[tbsys_usermenu] AS T2
    ON T1.usermenu_id = T2.id
    WHERE (T1.authentication_id = @UserId) AND (T2.item_0 <> '0') AND (T2.item_2 = '0') AND
          (T2.item_3 = '0') AND (T2.item_4 = '0') AND (T2.item_5 = '0') AND (T2.item_6 = '0') 
                  AND (T2.item_7 = '0') AND (T2.item_8 = '0') AND (T2.item_9 = '0')

Обращение к ней через vba

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
With mADOCn
        .ConnectionTimeout = 100
        .Open ps_DataBase, ps_User, ps_Pass
End With
With mADOCmd
        .CommandTimeout = 15
        .ActiveConnection = "DSN=" & ps_DataBase & "; UID=" & ps_User & "; pwd=" & ps_Pass
End With           
mADOCmd.CommandText = "MenuL1Count"
mADOCmd.CommandType = adCmdStoredProc
mADOCmd.CommandTimeout = 15
Set mADOPr = mADOCmd.CreateParameter("@UserId", adInteger, adParamInput)
mADOCmd.Parameters.Append mADOPr
mADOCmd.Parameters(0) = 1
mADOCmd.Execute

@CRIDEL · 15.04.2015, 13:47

mADOCmd.Parameters(0) = 1 а это что?

@UBUNTU · 17.04.2015, 16:47

Покажите ошибку котору вернул sql

Новые блоги и статьи Все статьи Все блоги /
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ
Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .	Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .

@CRIDEL 70 / 62 / 19 Регистрация: 03.05.2013 Сообщений: 397
	15.04.2015, 13:47
	mADOCmd.Parameters(0) = 1 а это что? 0

@UBUNTU 352 / 213 / 42 Регистрация: 04.02.2015 Сообщений: 1,344
	17.04.2015, 16:47
	Покажите ошибку котору вернул sql 0