Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Procedure "PredstUpd" expects parameter "@id", which was not supplied / 5 сообщений из 5, страница 1 из 1
05.11.2004, 21:45:36
    #32771542
Bagin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Procedure "PredstUpd" expects parameter "@id", which was not supplied
Здравствуйте!
При попытке сделать rstForUpdate.Parameters.Refresh или rstForUpdate.Count выскакивает ошибка:
Код: plaintext
Procedure "PredstUpd" expects parameter "@id", which was not supplied
И что интересно, не на всех машинах. Система везде установлена одинаково

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Private Function RecordPut()
 Dim rstForUpdate As New ADODB.Command
 Set rstForUpdate.ActiveConnection = cnnPrj
 rstForUpdate.CommandType = adCmdStoredProc
 rstForUpdate.CommandText = frmSubForm.Controls("SQLUpdate")

' ВОТ ЗДЕСЬ ВЫЛЕТАЕТ ОШИБКА:
 rstForUpdate.Parameters.Refresh

 Dim Param
 Dim ParamName
 For Each Param In rstForUpdate.Parameters
  ParamName = Replace(Param.Name, "@", "")
  If ParamName <> "RETURN_VALUE" Then
       rstForUpdate.Parameters("@" + ParamName) = _
                      rstProp.Fields(ParamName)
  End If
 Next Param

 Set rstForUpdate = Nothing
End Function
...
Рейтинг: 0 / 0
17.11.2004, 12:34:08
    #32786423
Bagin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Procedure "PredstUpd" expects parameter "@id", which was not supplied
Сделал такой код:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
 Dim rstForUpdate As New ADODB.Command
 Set rstForUpdate.ActiveConnection = cnnPrj
 rstForUpdate.CommandType = adCmdStoredProc
 rstForUpdate.CommandText = frmSubForm.Controls("SQLUpdate")
 
 Dim Param
 Dim ParamName
 For Each Param In rstForUpdate.Parameters
  ParamName = Replace(Param.Name, "@", "")
  If ParamName <> "RETURN_VALUE" Then
       rstForUpdate.Parameters("@" + ParamName) = _
                      rstProp.Fields(ParamName)
  End If
 Next Param

' Далее ошибка, нет такого параметра:
 rstForUpdate.Parameters("@Id") = rstProp.Fields("Id")

............
............
 Set rstForUpdate = Nothing
На одной машине выполняется нормально, на других нет. Проверял в дебайгере там, где выполняется видны все необходимые параметры, а там где глюк - ни одного. Везде установлен аксесс 2003, win2000, обновления и сервис паки одинаковые. Что может быть и как можно получить список параметров ХП другим способом?
Спасибо.
...
Рейтинг: 0 / 0
17.11.2004, 13:13:59
    #32786551
ищ
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Procedure "PredstUpd" expects parameter "@id", which was not supplied
With cmd
Set .ActiveConnection = CurrentProject.Connection
.CommandType = adCmdStoredProc
.CommandText = "ХранПроца"

.Parameters.Append .CreateParameter("id", adInteger, adParamInput, , [подФорма]![ID])
...
Рейтинг: 0 / 0
17.11.2004, 13:44:14
    #32786651
Bagin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Procedure "PredstUpd" expects parameter "@id", which was not supplied
Да это понятно. У меня используется одна функция на все ХП, в которой определяются входные параметры для текущей ХП, чтобы не прописывать все параметры, т.к. хранимых процедур очень много и у кажной много различных аргументов. Вот только на одной машине все определяется, а на других нет.
...
Рейтинг: 0 / 0
17.11.2004, 17:37:51
    #32787545
Bagin
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Procedure "PredstUpd" expects parameter "@id", which was not supplied
Сделал:
Код: plaintext
.Parameters.Append .CreateParameter("id", adInteger, adParamInput, , [подФорма]![ID])
Ругается: метод CreateParameter не найден.
Что может быть?
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Procedure "PredstUpd" expects parameter "@id", which was not supplied / 5 сообщений из 5, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]