Ошибка доступа к сквозному запросу - PullRequest
Новая
       2

Ошибка доступа к сквозному запросу

0 голосов
/ 25 января 2012

Я использую следующий код для запуска сквозного запроса.Я пытаюсь выполнить сквозной запрос, а затем проверить, сколько записей возвращено, чтобы выяснить, сработал ли он.Но я получаю сообщение об ошибке:

«Недопустимая операция»

Почему это происходит и как я могу исправить?

1 Ответ

1 голос
/ 25 января 2012

Использовать синтаксис EXEC 

qdf.SQL = "EXEC spAL_AssignSurrogateUPC '" & Replace(Item, "'", "''") & "';"

(я предполагаю, что это SQL Server.)

Я также добавил функцию замены для обработки одинарных кавычек в строке Item. Это также помогает предотвратить инъекции SQL.

РЕДАКТИРОВАТЬ:

Попробуйте сделать это вместо использования оператора With 

Dim rs as DAO.Recordset

...

Set rs = qdf.OpenRecordset(dbOpenSnapshot)
If rs.EOF Then
    MsgBox "ERROR.  Could not assign surrogate UPC."
Else
    MsgBox "Surrogate UPC assigned."
End If
...