VBA Не найдено имя аргумента для процедуры PL/SQL

Узнай цену своей работы

Формулировка задачи:

Коллеги,
Имеется следующий код для вызова функции Oracle:
Листинг программы
  1. strCon = "Provider=MSDAORA.1; Data Source=test; User ID=test; Password=test"
  2. Set oCMD = CreateObject("ADODB.Command")
  3. Set oCon = CreateObject("ADODB.Connection")
  4. Set oRS = CreateObject("ADODB.Recordset")
  5. oCon.Open strCon
  6.  
  7. oCMD.ActiveConnection = oCon
  8. oCMD.CommandText = "{call tctdbs.test.CheckConnection(?,?,{resultset 0, aResult})}"
  9. oCMD.Parameters.Refresh
  10. oCMD.Parameters("aDateFrom").Value = "111"
  11. oCMD.Parameters("aDateTo").Value = "222"
  12. Set oRS = oCMD.Execute
  13. y = 2
  14. While Not oRS.EOF
  15. Cells(y, 1).Value = oRS("DAT")
  16. Cells(y, 2).Value = oRS("DT")
  17. Cells(y, 3).Value = oRS("TXT")
  18. y = y + 1
  19. oRS.MoveNext
  20. Wend
  21. oCon.Close

На строке Set oRS = oCMD.Execute получаю сообщение (во вложении)
Что не так? Аргументы зацепились. Значения им присвоены. Куда копать?

Решение задачи: «VBA Не найдено имя аргумента для процедуры PL/SQL»

textual
Листинг программы
  1. cmd.Parameters.Append cmd.CreateParameter(...)

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.25 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы