Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 08.12.2016, 16:33   #1
armati lepori
Пользователь
 
Аватар для armati lepori
 
Регистрация: 23.09.2016
Сообщений: 34
Вопрос Перестал работать макрос с ADO Connection

8 октября 2016 г. Был создан и отлично работал тестовый макрос с ADO подключением
===============
Sub AAA()
Dim oConn As New ADODB.Connection
Set oConn = CreateObject("ADODB.Connection")
oConn.Open "Provider=Microsoft.ACE.OLEDB.12.0; " & _
"Data Source=проба.xlsm;" & _
"Extended Properties=""Excel 12.0;HDR=:2;IMEX=1';"""
''''здесь было содержательное тело макроса
oConn.Close
End Sub
=================
Книга«проба.xlsm» это сама рабочая книга (нужны SQL запросы к БД лежащей в книге в виде диапазона)
Вчера пришло время воспользоваться наработкой. Но полный отлуп:
“Обновление невозможно. База данных или объект доступны только для чтения» см. подробности на скриншоте.
Скрин сделан так, чтобы показать «октябрьский" результат теста. БД (справа вверху) перекачивалась вниз налево.

Помогите понять ситуацию
Убивает не то, что есть проблема, а то что ее не было!!!
Изображения
Тип файла: png Eror ADO Connect.png (57.8 Кб, 125 просмотров)
Я не волшебник - я только учусь.

Последний раз редактировалось armati lepori; 08.12.2016 в 16:35.
armati lepori вне форума Ответить с цитированием
Старый 08.12.2016, 20:53   #2
armati lepori
Пользователь
 
Аватар для armati lepori
 
Регистрация: 23.09.2016
Сообщений: 34
По умолчанию

Заработало!
Заменил строчку (ну если точно - то две)
"Data Source=" & ThisWorkbook.Path & "\проба.xlsm" & _
"; Extended Properties=""Excel 12.0;HDR=:2;IMEX=1';"""

Нужно явно указать на путь к файлу в данной папке.
Но непонятно почему тогда раньше работало.
Видимо меня решили поучить стилю программирования и наказали за отступление от известных принципов
Я не волшебник - я только учусь.
armati lepori вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
перестал работать макрос, запускающий поиск в Хроме caute Microsoft Office Word 0 26.05.2015 06:48
ADO Connection Brother Abbat БД в Delphi 10 02.12.2011 14:32
Проблема с ADOTable и ADO Connection. kardinal94 БД в Delphi 2 19.08.2010 04:24
ADO Connection Zer Компоненты Delphi 2 09.07.2010 19:22