SQL-запрос в VBA форма Patrol (Патрули)

@vasya_27 · Регистрация: 01.03.2016

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

Здравствуйте! Требуется создать запрос на выборку из нескольких таблиц по ключевому полю.

Охранное предприятие.
Имеется форма Patrol (Патрули), на которой имеются 2 вкладки -
1) Информация о патрулях
2)Выезды патруля (на объекты, для проверки).

Также есть формы/таблицы Action (Происшествия) и Object (Объекты).

Так вот, на второй вкладке Patrol имеется список, хочу в него вывести все происшествия по отдельному патрулю.

Схема данных:

Сделал такой запрос, но что-то в нём неладное

Visual Basic
1
2
3
4
5
6
7
Dim s$
s = "SELECT tblPatrol.PatrolID, tblAction.ActionID AS ВЫЕЗД_№, tblObject.ObjectID AS ОБЪЕКТ_№," & _
"tblAddress.AddressName AS АДРЕС, tblAddress.AddressSign AS ПРИЗНАК," & _
"tblObject.House AS ДОМ, tblObject.Flat AS КВ " & _
"FROM tblAddress INNER JOIN tblAddressON tblAddress.Address = tblObject.Address "
 
ListBox.RowSource = s

БД (Access 2010):
47 Маслов 4.rar

mobile · 10.05.2017, 11:33

В запросе было множество ошибок и во From и в Select. В частности не было таблицы tblAction, связывающей tblPatrol и tblAddress. Да и самой tblPatrol не было во From. Кроме того при переносах строк не давались пробелы, что делало выражение ошибочным - склеивались куски строк

Попробуйте

Visual Basic
1
2
3
4
5
6
s = "SELECT tblPatrol.PatrolID, tblAction.ActionID AS ВЫЕЗД_№, tblObject.ObjectID AS ОБЪЕКТ_№, " & _
" tblAddress.AddressName AS АДРЕС, tblAddress.AddressSign AS ПРИЗНАК, " & _
" tblObject.House AS ДОМ, tblObject.Flat AS КВ " & _
" FROM tblPatrol INNER JOIN ((tblAddress INNER JOIN tblObject " & _
" ON tblAddress.Address = tblObject.Address) INNER JOIN tblAction " & _
" ON tblObject.ObjectID = tblAction.ObjectID) ON tblPatrol.PatrolID = tblAction.PatrolID"

@vasya_27 · 10.05.2017, 15:40 **[ТС]**

mobile, запрос работает, но выборка идет по всем патрулям. Как сделать выборку по одному?

mobile · 10.05.2017, 18:07

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

mobile, запрос работает, но выборка идет по всем патрулям. Как сделать выборку по одному?

Делаем в запросе условие на текущий ид патруля

Visual Basic
1
2
3
4
5
6
7
s = "SELECT tblPatrol.PatrolID, tblAction.ActionID AS ВЫЕЗД_№, tblObject.ObjectID AS ОБЪЕКТ_№, " & _
" tblAddress.AddressName AS АДРЕС, tblAddress.AddressSign AS ПРИЗНАК, " & _
" tblObject.House AS ДОМ, tblObject.Flat AS КВ " & _
" FROM tblPatrol INNER JOIN ((tblAddress INNER JOIN tblObject " & _
" ON tblAddress.Address = tblObject.Address) INNER JOIN tblAction " & _
" ON tblObject.ObjectID = tblAction.ObjectID) ON tblPatrol.PatrolID = tblAction.PatrolID " & _
" where tblPatrol.PatrolID=" & Me.PatrolID

@vasya_27 · 11.05.2017, 07:59 **[ТС]**

mobile, спасибо!

Новые блоги и статьи Все статьи Все блоги /
Как украсить новогоднюю елку с Q# и Qiskit EggHead 24.06.2025 Что может быть необычнее, чем применить законы квантовой механики для украшения новогодней елки? Пока другие развешивают обычные гирлянды, я решил объединить свою страсть к квантовым вычислениям с. . .	Системы нулевого доверия на C# UnmanagedCoder 24.06.2025 Традиционная архитектура безопасности работает по принципу средневекового замка: создаём высокие стены вокруг корпоративной сети, укрепляем ворота межсетевыми экранами и системами обнаружения. . .	Снова не мой путь. Циклическое среднее, я обеими руками за проверку условия, в ракурсе данной задачи - циклическое среднее в топку. Hrethgir 24.06.2025 Привет. Такой вопрос - нужно выводить среднее математическое между двумя направлениями, интервал значений которых может лежать в диапазоне одного оборота по кругу. Проблема заключается в том, что. . .	Деплой Flask приложения py-thonny 23.06.2025 За годы работы с Flask я натыкался на одни и те же грабли достаточно часто, чтобы наконец научится их обходить. И сегодня хочу поделится опытом, который сбережет вам немало нервных клеток. Начнем с. . .	WebAssembly и контейнеры в .NET Aspire для оркестрации распределенных архитектур ArchitectMsa 23.06.2025 Я наблюдаю, как WebAssembly (или просто WASM) постепенно выходит за рамки своего первоначального предназначения — исполнения кода на стороне браузера. Теперь эта технология проникает в серверную. . .
Непрерывная интеграция для пакета Python Mr. Docker 22.06.2025 Было 4 часа утра пятницы, когда я выпустил новую версию нашей внутренней библиотеки для обработки данных. Релиз 0. 5. 2 содержал небольшой фикс для обработки дат в ISO формате, что может пойти не так?. . .	Продвинутый ETL на C# из OLTP БД в хранилище stackOverflow 22.06.2025 Работая в сфере корпоративной аналитики, я постоянно сталкиваюсь с одним и тем же - нужны чистые, структурированные и, главное, свежие данные. Без них современные аналитические системы, машинное. . .	Мастер-класс по микросервисам на Node.js Reangularity 21.06.2025 Node. js стал одной из самых популярных платформ для микросервисной архитектуры не случайно. Его неблокирующая однопоточная модель и событийно-ориентированный подход делают его идеальным для. . .	Управление Arduino из WPF приложения Wired 21.06.2025 Зачем вообще связывать Arduino с WPF-приложением? Казалось бы, у Arduino есть собственная среда разработки, своя экосистема, свои способы управления. Однако при создании серьезных проектов. . .	Звёздная пыль kumehtar 20.06.2025 Я просто это себе представляю: как создавался этот мир. Как энергия слипалась в маленькие частички. Как они собирались в первые звёзды, как во вселенной впервые появился Свет. Как эти звёзды. . .

@vasya_27 4 / 4 / 0 Регистрация: 01.03.2016 Сообщений: 139
	10.05.2017, 15:40 [ТС]
	mobile, запрос работает, но выборка идет по всем патрулям. Как сделать выборку по одному? 0

@vasya_27 4 / 4 / 0 Регистрация: 01.03.2016 Сообщений: 139
	11.05.2017, 07:59 [ТС]
	mobile, спасибо! 0

Опции темы

SQL-запрос в VBA форма Patrol (Патрули)

Решение