|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
08.12.2016, 16:33 | #1 |
Пользователь
Регистрация: 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 запросы к БД лежащей в книге в виде диапазона) Вчера пришло время воспользоваться наработкой. Но полный отлуп: “Обновление невозможно. База данных или объект доступны только для чтения» см. подробности на скриншоте. Скрин сделан так, чтобы показать «октябрьский" результат теста. БД (справа вверху) перекачивалась вниз налево. Помогите понять ситуацию Убивает не то, что есть проблема, а то что ее не было!!!
Я не волшебник - я только учусь.
Последний раз редактировалось armati lepori; 08.12.2016 в 16:35. |
08.12.2016, 20:53 | #2 |
Пользователь
Регистрация: 23.09.2016
Сообщений: 34
|
Заработало!
Заменил строчку (ну если точно - то две) "Data Source=" & ThisWorkbook.Path & "\проба.xlsm" & _ "; Extended Properties=""Excel 12.0;HDR=:2;IMEX=1';""" Нужно явно указать на путь к файлу в данной папке. Но непонятно почему тогда раньше работало. Видимо меня решили поучить стилю программирования и наказали за отступление от известных принципов
Я не волшебник - я только учусь.
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
перестал работать макрос, запускающий поиск в Хроме | 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 |