Запрос на добавление ИЗ другой базы данных

@Обсидиан · Регистрация: 11.10.2010

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

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

Добавлено через 1 час 14 минут
Ага!!! Все извиняюсь за беспокоство - сам разобрался!
Если кому интересно, то для решения данной проблемы, необходимо в запросе SQL поместить Предложение IN в конце конструкции, после выражения предложения FROM.
Примерно так:

SQL
1
2
3
INSERT INTO ТаблицаПустая ( Значение1, Значение2, Значение3 )
SELECT ТаблицаЗаполненная.Значение1, ТаблицаЗаполненная.Значение2, ТаблицаЗаполненная.Значение3
FROM ТаблицаЗаполненная IN 'C:\Запросы\БазаЗаполненная.mdb';

Добавлено через 8 часов 18 минут
Гм, а вот с развитием запроса что-то не клеится. Хочу вставить в него ссылку на объект управления Поле1 Формы1 в котором содержится путь к базе данных:

SQL
1
2
3
INSERT INTO ТаблицаПустая ( Значение1, Значение2, Значение3 )
SELECT ТаблицаЗаполненная.Значение1, ТаблицаЗаполненная.Значение2, ТаблицаЗаполненная.Значение3
FROM ТаблицаЗаполненная IN  'Forms!Форма1!Поле1';

Выдает: "Не удается найти файл 'C:\Запросы\Forms!Форма1!Поле1' " При выборе любой директории пишет путь в указанную папку, а вместо названия файла БД - Forms!Форма1!Поле1. Подозреваю, что дело в синтаксисе, но ничего придумать не могу. Помогите кто знает как быть.

@HOUSE MD · 04.12.2010, 20:49

Доброго времени суток.
1. Попробуйте сделать выполнение запроса SQL с использованием переменных (например так):

Visual Basic
1
2
3
4
5
6
Me!DISTRICT.RowSource = sqlDISTRICT(Name_column_district, Name_table)
 
 
Public Function sqlDISTRICT(Name_column_district As String, Name_table As Variant)
    sqlDISTRICT = "SELECT " & Name_table & ".POINT_COD, " & Name_table & Name_column_district & " FROM " & Name_table & " WHERE (((" & Name_table & ".POINT_COD) Like Forms!frmNewPatient!District_cod))"
End Function

2. Или сделать програмноеизменение запроса (видел такое решение, но как делается - не знаю)

@Teslenko_EA · 04.12.2010, 23:53

Здравствуйте Обсидиан.
Если запрос на добавление выполняется (вызывается) из кода VBA
корректную сборку SQL конструкции выполнять стоит так-же в коде:

Visual Basic
1
2
3
4
5
Const sQ = "INSERT INTO ТаблицаПустая ( Значение1, Значение2, Значение3 ) " + _
"SELECT Значение1, Значение2, Значение3 FROM ТаблицаЗаполненная IN '"
Dim s$
s = Forms!Форма1!Поле1 & "'"
CurrentDb.Execute sQ + s

Евгений.

@Обсидиан · 05.12.2010, 08:51 **[ТС]**

Сообщение от HOUSE MD

Доброго времени суток.
1. Попробуйте сделать выполнение запроса SQL с использованием переменных (например так):

Visual Basic
1
2
3
4
5
6
Me!DISTRICT.RowSource = sqlDISTRICT(Name_column_district, Name_table)
 
 
Public Function sqlDISTRICT(Name_column_district As String, Name_table As Variant)
    sqlDISTRICT = "SELECT " & Name_table & ".POINT_COD, " & Name_table & Name_column_district & " FROM " & Name_table & " WHERE (((" & Name_table & ".POINT_COD) Like Forms!frmNewPatient!District_cod))"
End Function

2. Или сделать програмноеизменение запроса (видел такое решение, но как делается - не знаю)

Спасибо большое за ответ. Но боюсь, для меня это слишком сложно, все-таки, я не профессиональный программист. Тем не менее код интересный, на досуге обязательно разберусь.

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

Здравствуйте Обсидиан.
Если запрос на добавление выполняется (вызывается) из кода VBA
корректную сборку SQL конструкции выполнять стоит так-же в коде:

Visual Basic
1
2
3
4
5
Const sQ = "INSERT INTO ТаблицаПустая ( Значение1, Значение2, Значение3 ) " + _
"SELECT Значение1, Значение2, Значение3 FROM ТаблицаЗаполненная IN '"
Dim s$
s = Forms!Форма1!Поле1 & "'"
CurrentDb.Execute sQ + s

И Вам спасибо, Евгений, что не оставляете без внимания мои записи. Ваш вариант мне более подошел.
В моем же случае для решения задачи, я просто перенес запрос SQL в код VBA. Странно, но в VBA это сработало!
Событие "Нажатие кнопки" для Форма1!Кнопка1

Visual Basic
1
2
3
4
5
6
7
Private Sub Кнопка1_Click()
    Dim SQL As String
    SQL = "INSERT INTO ТаблицаПустая ( Значение1, Значение2, Значение3 )" & _
          "SELECT ТаблицаЗаполненная.Значение1, ТаблицаЗаполненная.Значение2, ТаблицаЗаполненная.Значение3 " & _
          "FROM ТаблицаЗаполненная IN " & "'" & Поле1 & "'"  ' В Поле1 содержится путь к базе данных. 
    DoCmd.RunSQL SQL
End Sub

Правда мой код несколько более "топорный".

@Teslenko_EA · 05.12.2010, 18:35

Обсидиан, Ваш код нельзя называть "топорным", ведь задача выполняется, а различия между кодами в следующем :
1. постоянную (неизменяемую) часть SQL конструкции я помещаю в константу.
'доступ к константе меньше "напрягает" VB(A)
2. текстовое значение контрола Поле1 передается в переменную
'значения всех контролов лучше помещать в переменные не нагружая конкатенацией текста с объектом.
3. сформированная SQL конструкция выполняется не командой JET - .RunSQL, а командой DAO - .Execute
'DoCmd внутренняя команда JET, зависящая от настроек MS Access, а DAO не зависит от этих настроек.
но главное принцип тот-же и задача выполняется.
Евгений.

Новые блоги и статьи Все статьи Все блоги /
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. Пошагово создадим проект для загрузки изображения. . .

@Teslenko_EA 1181 / 632 / 39 Регистрация: 30.05.2010 Сообщений: 715
	05.12.2010, 18:35
	Обсидиан, Ваш код нельзя называть "топорным", ведь задача выполняется, а различия между кодами в следующем : 1. постоянную (неизменяемую) часть SQL конструкции я помещаю в константу. 'доступ к константе меньше "напрягает" VB(A) 2. текстовое значение контрола Поле1 передается в переменную 'значения всех контролов лучше помещать в переменные не нагружая конкатенацией текста с объектом. 3. сформированная SQL конструкция выполняется не командой JET - .RunSQL, а командой DAO - .Execute 'DoCmd внутренняя команда JET, зависящая от настроек MS Access, а DAO не зависит от этих настроек. но главное принцип тот-же и задача выполняется. Евгений. 3