Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Макрос для SQL зароса в excel, Не работает макрос для выведение результата sql запроса в ячейку excel
 
#1
27.02.2018 16:13:23
Здравствуйте уважаемые формучане, в файле примера, при его запуске вылезает форма, которая позволяет выбрать месяц и год и на основе этих данных получить отчет на листе эксель, но при работе выдает ошибку "1004 синтаксическая ошибка sql" и ругается на строчку .refresh backgroundquery:=false. Кто может подсказать в чем может быть проблема, и может быть в принципе мой способ получение sql запроса не оптимальный.

Для полной картины сылку на БД прилагаю https://drive.google.com/open?id=1gIAo0VNcMoir5Dzg7zNzR_-UQhaLAVYp
 
 
 
#2
27.02.2018 16:22:47
ну, четко же написано:
FastPuppy,
Цитата
FastPuppy написал:
синтаксическая ошибка sql
перепроверьте текст запроса, который получается (вместо обновления сделайте debug.print) и посчитайте количество открывающих и закрывающих скобок в выражении WHERE. Их мало того что как то дофига там лишних, так еще и разное количество. Да и кроме скобок там много ошибок...
Изменено: StepanWolkoff - 27.02.2018 16:32:14
 
 
 
#3
27.02.2018 16:58:11
Плюс  у вас каждый раз создается новое подключение и вставляется таблица в ячейку B5
Код
        With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("B5"))
            .CommandText = SQLDB491Received104
            .Name = "DB491Received104"
            .Refresh BackgroundQuery:=False
        End With

Может конечно в этом есть тайный смысл, но мне кажется - нет.
 
 
 
#4
27.02.2018 17:04:56
Код
"SELECT Count([Тип]) AS [Count] FROM DB491 WHERE [Тип]='ЭК-104' AND [Серийный]='Да' AND Month([Дата поступления])='" & m & "' AND Year([Дата поступления])='" & g & "'"
 
 
 
#5
28.02.2018 08:54:40
StepanWolkoff, К сожалению этот код не является полностью моим полностью магию как происходит подключение я не понял, но  вставлять в ячейку результат надо ибо в последствии будет много разных запросов с одним числом из разных БД. Просто париться с аксесовскими отчетами откровенно говоря не хотелось, они реально ужасны.

Хотя конструкция вида, была б явно лучше, но как
Цитата
Dim varConn As New Connection

varConn.Open "BD"
Jungl Спасибо, с вашей помощью запрос заработал
Изменено: FastPuppy - 28.02.2018 17:00:41
 
 
 
Страницы: 1
Читают тему
Наверх