Выдает ошибку при использовании SQL запроса из Excel vba

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Выдает ошибку при использовании SQL запроса из Excel vba (Макросы/Sub)

parovoznik

Дата: Суббота, 23.01.2016, 19:04 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 446

Репутация: 26 ±

Замечаний: 0% ±

Excel 2013

Доброго времени суток.
При использовании SQL запроса выдает ошибку"общая ошибка ODBC". Использую запрос к базе данных Access и вывод на лист Excel

К сообщению приложен файл: 9554789.7z (29.5 Kb)

Ответить

_Boroda_

Дата: Суббота, 23.01.2016, 19:42 | Сообщение № 2

Группа: Админы

Ранг: Местный житель

Сообщений: 16800

Репутация: 6558 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

У меня вот так работает (с полным путем и с куском DSN=MS Access Database)
[vba]

Код

Sub SQLQuery_1()
    Dim varConn As String
    Dim varSQL As String

        Range("A1").CurrentRegion.ClearContents

        varConn = "ODBC;DSN=MS Access Database;DBQ=D:\Стереть\пример\База данных7.accdb;Driver={Driver do Microsoft Access (*.accdb)}"

        varSQL = "SELECT Имя, Фамилия, Должность FROM Таблица1"

             With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("A1"))
                 .CommandText = varSQL
                 .Name = "Query-39008"
                 .Refresh BackgroundQuery:=False
             End With

End Sub

[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

parovoznik

Дата: Суббота, 23.01.2016, 19:59 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 446

Репутация: 26 ±

Замечаний: 0% ±

Excel 2013

_Boroda_, спасибо все работает :'(

Ответить

krosav4ig

Дата: Суббота, 23.01.2016, 20:12 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 997 ±

Замечаний: 0% ±

Excel 2007,2010,2013

немного опоздал

добавлю, что диапазон нужно не просто очищать, а удалять, ибо остаются подключения
добавил еще 1 вариант на Лист2
[vba]

Код

Sub SQLQuery_1()
    Dim varConn As String
    Dim varSQL As String

    Range("A1").CurrentRegion.Delete xlUp

    varConn = "ODBC;DSN=MS Access Database;DriverId=25;DBQ=База данных7.accdb_;DefaultDir=" & ThisWorkbook.Path
    varSQL = "SELECT Имя, Фамилия, Должность FROM Таблица1"

    With ActiveSheet.QueryTables.Add(Connection:=varConn, Destination:=Range("A1"))
        .CommandText = varSQL
        .Name = "Query-39008"
        .Refresh BackgroundQuery:=False
    End With
End Sub

[/vba]

К сообщению приложен файл: SQL_.xlsm (28.2 Kb)

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Суббота, 23.01.2016, 20:12

Ответить

Выдает ошибку при использовании SQL запроса из Excel vba (Макросы/Sub)

Страница 1 из 1
1