Заполнить таблицу на сервере данными из таблицы БД Access на текущем компьютере vba

@blackeangel · Регистрация: 22.07.2015

Студворк — интернет-сервис помощи студентам

Подключаюсь к текущей таблице на ПК, пытаюсь сделать тест, что б сервер не обижать, из копии БД закинуть в текущую. Не выходит. Не хочет подключаться ко второму файлу.

Добавлено через 8 минут

Visual Basic
1
2
3
4
5
6
Sub test_etp()
    Set cnt = New ADODB.Connection
    cnt.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Pavel\Desktop\test_etp2.accdb;"
    Ask = "insert into [Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Pavel\Desktop\test_etp.accdb].[123] Select * from [Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Pavel\Desktop\test_etp.accdb].[567];"
    Set rs = cnt.Execute(Ask)
End Sub

@qwertehok · 06.06.2019, 17:16

Сообщение от blackeangel

Не хочет подключаться ко второму файлу.

убедите его как-нибудь

ну или ошибку покажите

@blackeangel · 06.06.2019, 17:26 **[ТС]**

qwertehok, ошибка - "неверный параметр" пишет

@qwertehok · 06.06.2019, 17:28

а сам запрос в MSSQL отрабатывает?

@blackeangel · 06.06.2019, 17:32 **[ТС]**

qwertehok, нет

@qwertehok · 06.06.2019, 22:06

судя по коду это не запрос MSSQL
вы темой не ошиблись?

@blackeangel · 06.06.2019, 22:25 **[ТС]**

qwertehok, строка #4 кода сообщения #1, разве не запрос sql?
Темой возможно и ошибся, тк хз где помогут, ибо тут 2 языка используется...

@qwertehok · 06.06.2019, 22:30

Сообщение от blackeangel

разве не запрос sql?

запросы SQL разные бывают
если запрос в студии не отрабатывает, то он не правильный

может такое поможет?
https://stackoverflow.com/ques... oft-access

@alvk · 07.06.2019, 04:58

Сообщение от qwertehok

это не запрос MSSQL

Сообщение от blackeangel

разве не запрос sql?

Вам не это написали, буквы посчитайте хотя бы.

@Eugene-LS · 07.06.2019, 05:08

Сообщение от blackeangel

Не выходит. Не хочет подключаться ко второму файлу.

А курсор у вас где?

Ничего, - на этом все, поначалу, "спотыкаются". сервер вашей машины не "видит" и её данных, заодно ...

@blackeangel · 07.06.2019, 06:49 **[ТС]**

alvk, и? Стандартные sql команды работают и в Access и в sqlite, и в MSsql.
Eugene-LS, на 5й строчке, на строке выполнения запроса Ask.
На счёт сервера, до него ещё палкой не докинуть, тк пока тренеруемся на 2х файлах на локальной машине.
Если это Access, то его запускаем, создаём пустую БД и идём в макросы. Где пытаемся заполнить из одного стороннего файла другой сторонний (БД1.Тбл1 в БД2.Тбл2) столбцы у них имеют одинаковое название и порядок.

Добавлено через 4 минуты
Как понимаю, скорее всего проблема как раз в подключении к файлу, тк даже

SQL
1
SELECT * FROM [Provider=Microsoft.ACE.OLEDB.12.0;DATA SOURCE=D:\Pavel\Desktop\test_etp.accdb].[123]

Не работает

@Eugene-LS · 07.06.2019, 06:52

Сообщение от blackeangel

Не работает

И не должно (работать при таком подходе), насколько я в этом деле, скромно, понимаю.
Вы бы почитали чего ... для хорошего старта

@blackeangel · 07.06.2019, 06:53 **[ТС]**

Eugene-LS, интересно знать почему же?
В какую литературу удариться?

@Eugene-LS · 07.06.2019, 07:10

Сообщение от blackeangel

В какую литературу удариться?

В которой написано, что строку подключения в запросе SELECT - указывать излишне.
... а может я чего не понял ... извините.

Пошел перечитывать ваш вопрос...

Добавлено через 3 минуты
blackeangel, ничего не понимаю!

Visual Basic
1
Ask = "insert into [Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Pavel\Desktop\test_etp.accdb].[123] Select * from [Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Pavel\Desktop\test_etp.accdb].[567];"

Это что было?

Зыбыли. - Извините.
Покидаю топик ...
Успехов!

@ltv_1953 · 07.06.2019, 07:37

Если все Аксесс (и база в которой запрос, и база, в которой Тбл1), то должно работать так

SQL
1
SELECT * FROM Тбл1 IN 'D:\Pavel\Desktop\test_etp.accdb'

Добавлено через 8 минут

Сообщение от blackeangel

Стандартные sql команды работают и в Access и в sqlite, и в MSsql.

Угу. И во всех этих диалектах нужно указывать <table_source> после FROM ...

@blackeangel · 07.06.2019, 14:18 **[ТС]**

ltv_1953, да, это сработало.

Добавлено через 4 часа 40 минут
ltv_1953, а вот так вот

Visual Basic
1
2
3
4
5
6
Sub test_etp()
    Set cnt = New ADODB.Connection
    cnt.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\Pavel\Desktop\test_etp2.accdb;"
    Ask = "insert into 123 in 'D:\Pavel\Desktop\test_etp.accdb' select * from 567 in 'D:\Pavel\Desktop\test_etp2.accdb';"
    Set rs = cnt.Execute(Ask)
End Sub

Выдаёт ошибку 3704 "Операция не допускается, если объект закрыт."

Добавлено через 1 час 42 минуты
Точнее вставляет, а потом выдаёт ошибку эту

mobile · 07.06.2019, 14:23

blackeangel, Вы хотите использовать запрос на изменение набора данных (Insert Into) и взять по нему рекордсет. Это невозможно. Рекордсет можно создать только на запросах на выборку (Select).

@blackeangel · 07.06.2019, 14:27 **[ТС]**

mobile, тогда почему выполняет вставку?
И да, перечислив все столбцы, кроме ключа по аналогии с

SQL
1
2
3
INSERT INTO `db`.`table_to` (`a1_2`, `a2_2`, `a3_2`, `a4_2`)
SELECT `a1`, `a2`, `a3`, `a4`
FROM `db`.`table_from` ;

Заработало без выдачи ошибок.

@alvk · 07.06.2019, 14:40

Сообщение от blackeangel

alvk, и? Стандартные sql команды работают и в Access и в sqlite, и в MSsql.

А в postgre в my ?

Сообщение от blackeangel

FROM `db`

Это абсолютно точно не mssql

@blackeangel · 14.06.2019, 10:45 **[ТС]**

ltv_1953, продолжаю свои мучения. Пишу примерно так:

Visual Basic
1
2
3
4
5
6
Set conn = New ADODB.Connection
conn.ConnectingString="......."
conn.Open
Ask="insert into [base].[dbo].[table1] (столбец1, стообец2,столбец3) select * from[list] in 'D:\Pavel\Desktop\test_etp.mdb';"
conn.Execute ask
conn.Close

Выдаёт ошибку Incorrect syntax near the keywords 'in'
В чём проблема? Как обойти?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@blackeangel 19 / 10 / 1 Регистрация: 22.07.2015 Сообщений: 908
	06.06.2019, 17:26 [ТС]
	qwertehok, ошибка - "неверный параметр" пишет 0

@qwertehok 5971 / 4547 / 1094 Регистрация: 29.08.2013 Сообщений: 28,168 Записей в блоге: 3
	06.06.2019, 17:28
	а сам запрос в MSSQL отрабатывает? 0

@blackeangel 19 / 10 / 1 Регистрация: 22.07.2015 Сообщений: 908
	06.06.2019, 17:32 [ТС]
	qwertehok, нет 0

@qwertehok 5971 / 4547 / 1094 Регистрация: 29.08.2013 Сообщений: 28,168 Записей в блоге: 3
	06.06.2019, 22:06
	судя по коду это не запрос MSSQL вы темой не ошиблись? 0

@blackeangel 19 / 10 / 1 Регистрация: 22.07.2015 Сообщений: 908
	06.06.2019, 22:25 [ТС]
	qwertehok, строка #4 кода сообщения #1, разве не запрос sql? Темой возможно и ошибся, тк хз где помогут, ибо тут 2 языка используется... 0

@blackeangel 19 / 10 / 1 Регистрация: 22.07.2015 Сообщений: 908
	07.06.2019, 06:53 [ТС]
	Eugene-LS, интересно знать почему же? В какую литературу удариться? 0

mobile 26826 / 14506 / 3192 Регистрация: 28.04.2012 Сообщений: 15,782
	07.06.2019, 14:23
	blackeangel, Вы хотите использовать запрос на изменение набора данных (Insert Into) и взять по нему рекордсет. Это невозможно. Рекордсет можно создать только на запросах на выборку (Select). 0