Ошибка при выполнении SQL запроса "Слишком мало параметров требуется 1"

@SASHA 808 · Регистрация: 27.04.2015

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

Доброго времени суток!
Столкнулся со следующей проблемой: после перемещения файла Excel с макросом на другой компьютер при выполнении SQL запроса возникает ошибка (На моем компе все работает отлично): "Слишком мало праметров. Требуется 1". сравнил подключенные библиотеки. Все совпадает. Может у кого то возникала подобная проблема. SQL запрос выполняется из файла Excel в файл Excel.

@Catstail · 27.04.2015, 14:23

Покажи код. И это может быть связано с разными версиями Excel

@SASHA 808 · 27.04.2015, 14:42 **[ТС]**

Версии Excel одинаковые (сеть корпоративная). Пробовал так же и на XP и на семерке все одно и то же.
А вот непосредственно код:

Visual Basic

Private Sub Workbook_Open()
Application.ScreenUpdating = False
Sheets(" ").Select
Sheets("База").Visible = True
   Sheets("База").Select
  Sheets("База").Range("A2:E300").Select
    Selection.ClearContents
   Sheets("База").Select
Sheets("База2").Visible = True
   Sheets("База2").Select
  Sheets("База2").Rows("2:500").Select
    Selection.ClearContents
Sheets("Лист2").Visible = True
   Sheets("Лист2").Select
  Sheets("Лист2").Columns("A:B").Select
    Selection.ClearContents
r = Environ("USERNAME")
 
If r = "Логин пользователя" Then
cp = "Петров"
cp = "'" & cp & "'"
End If
 
 
Dim SQLConn As New ADODB.Connection
SQLConn.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;HDR=Yes; Data Source=EV1"
On Error GoTo 111
SQLConn.Open
Worksheets("База2").Range("U2").CopyFromRecordset SQLConn.Execute("SELECT [Дата получения решения],[Статус решения],[Дата реализации решения],[Комментарии / причины не реализации решения] FROM [Форма реестра new$] WHERE [Исполнитель]  = " & cp)
 
com
 
r = 2
Do While Workbooks("SA.xlsm").Worksheets("База2").Cells(r, 1).Value <> Empty
i = 2
Do While Workbooks("SA.xlsm").Worksheets("Лист2").Cells(i, 1).Value <> Empty
If Workbooks("SA.xlsm").Worksheets("Лист2").Cells(i, 1).Value = Workbooks("SA.xlsm").Worksheets("База2").Cells(r, 1).Value Then
Workbooks("SA.xlsm").Worksheets("База2").Cells(r, 20).Value = Workbooks("SA.xlsm").Worksheets("Лист2").Cells(i, 2).Value
End If
i = i + 1
Loop
r = r + 1
Loop
SQLConn.Close
Sheets("База").Visible = False
Sheets("База2").Visible = False
Sheets("Лист2").Visible = False
m = Application.CountA(Worksheets("База").Columns(1)) + 1
UserForm1.ListBox1.RowSource = "База!A2:E" & (m - 1)
UserForm1.Show
Exit Sub
111:
A1 = Err.Description
A2 = Err.Number
 
End Sub

@Catstail · 27.04.2015, 14:59

А источник данных EV1 создан?

shanemac51 · 27.04.2015, 15:09

Visual Basic

'' заблокируйте обработчик, что бы видеть точное имя ошибки
''On Error GoTo 111
SQLConn.Open
''Первым делом проверьте имена полей и таблиц
S1="SELECT [Дата получения решения],[Статус решения],[Дата реализации решения],"
s1=s1 & " [Комментарии / причины не реализации решения] FROM [Форма реестра new$]"
s1=s1 & " WHERE [Исполнитель] = " & cp
'' просмотрите строку
DEBUG.PRINT S1 
 
Worksheets("База2").Range("U2").CopyFromRecordset SQLConn.Execute(S1)

@SASHA 808 · 27.04.2015, 16:45 **[ТС]**

1. Источник создан правильно. Несколько раз путь перепроверял.
2. Имена полей также проверил в первую очередь. Сократил запрос до одного поля. Взял самое простое. (не помогло). Тем более у меня то на компе работает, при перемещении ничего не менял.
3. Обработчик тож блокировал получал ошибку -2147217904 (80040е 10)

Добавлено через 1 час 13 минут
Благодарю за помощь.
Отдельное спасибо shanemac51. Посмотрел строку через DEBUG.PRINT и увидел что на других компах переменная "ср" отображалась почему то без кавычек. Если добавить кавычки непосредственно в запросе то проблема решается)))

@SASHA 808 0 / 0 / 0 Регистрация: 27.04.2015 Сообщений: 4
		1
	Ошибка при выполнении SQL запроса "Слишком мало параметров требуется 1" 27.04.2015, 14:20. Показов 2970. Ответов 5 Метки нет (Все метки) Доброго времени суток! Столкнулся со следующей проблемой: после перемещения файла Excel с макросом на другой компьютер при выполнении SQL запроса возникает ошибка (На моем компе все работает отлично): "Слишком мало праметров. Требуется 1". сравнил подключенные библиотеки. Все совпадает. Может у кого то возникала подобная проблема. SQL запрос выполняется из файла Excel в файл Excel. 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,640 Записей в блоге: 13
	27.04.2015, 14:23	2
	Покажи код. И это может быть связано с разными версиями Excel 0

@Catstail Модератор 36601 / 20330 / 4220 Регистрация: 12.02.2012 Сообщений: 33,640 Записей в блоге: 13
	27.04.2015, 14:59	4
	А источник данных EV1 создан? 0

@SASHA 808 0 / 0 / 0 Регистрация: 27.04.2015 Сообщений: 4
	27.04.2015, 16:45 [ТС]	6
	1. Источник создан правильно. Несколько раз путь перепроверял. 2. Имена полей также проверил в первую очередь. Сократил запрос до одного поля. Взял самое простое. (не помогло). Тем более у меня то на компе работает, при перемещении ничего не менял. 3. Обработчик тож блокировал получал ошибку -2147217904 (80040е 10) Добавлено через 1 час 13 минут Благодарю за помощь. Отдельное спасибо shanemac51. Посмотрел строку через DEBUG.PRINT и увидел что на других компах переменная "ср" отображалась почему то без кавычек. Если добавить кавычки непосредственно в запросе то проблема решается))) 0