ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос для выборки записей через форму при связи многие ко многим
9 сообщений из 9, страница 1 из 1
Запрос для выборки записей через форму при связи многие ко многим
    #39865917
bratint
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bratint
Гость
Никак не могу разобраться. Есть БД книг, в одной таблице записаны книги, во другой - рубрики (художественная, детская, научная и т.п.). Каждая книга может относиться к нескольким рубрикам.

Надо, чтобы на форму можно было вывести все книги, относящиеся к определённым рубрикам.

Как вывести все книги, принадлежащие к одной рубрике - это понятно:
Код: vbnet
1.
Me.RecordSource = "SELECT * FROM Книги INNER JOIN КнВид ON Книги.Кн_ключ=КнВид.Кн_ключ WHERE Вид_ключ = " & Me.Список2


Но каким должен быть запрос, чтобы вывести книги, принадлежащие одновременно к нескольким рубрикам? Например, детские и художественные ?

Вариант с Книги INNER JOIN КнВид здесь, по-видимому, уже не подойдёт, поскольку, если, например, "Книга 1" принадлежит сразу к 2 рубрикам, то он даст для неё 2 строки:
Название Вид_ключКнига11Книга12
Т.е. в этой таблице не существует кортежа, который имел бы 2 значения "Вид_ключ", поэтому мы не сможем найти его через какое-либо условие WHERE. Способов решить это с помощью GROUP BY мне не удалось найти.

Единственное, что я смог придумать - это использовать множество запросов, например,

Запрос 1 - выводит ключи художественных книг:
Код: plaintext
SELECT КнВид.Кн_ключ FROM КнВид WHERE КнВид.Вид_ключ=1
Запрос 2 - выводит ключи детских книг:
Код: plaintext
SELECT КнВид.Кн_ключ FROM КнВид WHERE КнВид.Вид_ключ=2
Запрос 3 - выводит ключи детских и художественных книг:
Код: plaintext
SELECT Запрос1.Кн_ключ FROM Запрос1 INNER JOIN Запрос2 ON Запрос1.Кн_ключ=Запрос2.Кн_ключ

Но! Чтобы по такому принципу определялся источник записей формы, надо или реализовать этот запрос через одну строку, или динамически формировать подзапросы во время работы формы.
Первый вариант, конечно же, исключается, поскольку он невероятно сложен (с учётом того, что число рубрик не ограничено).
Реализовать второй - более реально, для этого надо динамически создавать/изменять запросы базы данных, которые служат источниками данных формы.

Вопрос в том, существуют ли какие-то другие, более простые/правильные способы решения этой задачи?
...
Рейтинг: 0 / 0
23.09.2019, 21:51
| Ответить | Цитировать | Написать  
Запрос для выборки записей через форму при связи многие ко многим
    #39865963
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
bratint,
создаете список кодов, которым удовлетворяет та или иная книга
Код: vbnet
1.
2.
3.
4.
Dim str as string
str="1,2" ' каким то образом
'  и затем используете оператор IN
Me.RecordSource = "SELECT Кн_ключ FROM КнВид WHERE (Вид_ключ in (" & str & "));"
...
Рейтинг: 0 / 0
23.09.2019, 22:58
| Ответить | Цитировать | Написать  
Запрос для выборки записей через форму при связи многие ко многим
    #39865964
Шаман
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Шаман
Гость
bratint,
Какая версия Access? 2003 или старше? По картинке вроде на 2003 смахивает.
Дело в том, что в 2007 появилась фишка с добавлением в одно поле нескольких значений.
Подобная ситуация, с выводом нужных значений, решается на раз-два без каких либо заморочек.
На всякий случай прикрепляю пример в формате accdb
...
Рейтинг: 0 / 0
23.09.2019, 23:03
| Ответить | Цитировать | Написать  
Запрос для выборки записей через форму при связи многие ко многим
    #39865982
ИВП
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИВП
Участник
Шаман,

Не надо учить плохому
...
Рейтинг: 0 / 0
24.09.2019, 00:09
| Ответить | Цитировать | Написать  
Запрос для выборки записей через форму при связи многие ко многим
    #39866032
Фотография 4d_monster
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
4d_monster
Участник
ШаманДело в том, что в 2007 появилась фишка с добавлением в одно поле нескольких значений.
Даже микрософт призывает никогда ей не пользоваться.
...
Рейтинг: 0 / 0
24.09.2019, 08:13
| Ответить | Цитировать | Написать  
Запрос для выборки записей через форму при связи многие ко многим
    #39866057
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Общий подход:

Код: vbnet
1.
2.
3.
4.
5.
SELECT список полей
FROM таблица-источник
WHERE рубрика IN ('рубрика 1', 'рубрика 2', ...)
GROUP BY список полей
HAVING COUNT (рубрика) = {количество рубрик в условии отбора}
...
Рейтинг: 0 / 0
24.09.2019, 09:09
| Ответить | Цитировать | Написать  
Запрос для выборки записей через форму при связи многие ко многим
    #39866363
bratint
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bratint
Гость
alecko, так не получится - этот запрос выдаст художественные или детские , а надо получить художественные и детские !

Шаман, Access 2002. Формат accdb не поддерживается :-(

Akina, спасибо, работает!!!
...
Рейтинг: 0 / 0
24.09.2019, 14:48
| Ответить | Цитировать | Написать  
Запрос для выборки записей через форму при связи многие ко многим
    #39866433
alecko
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alecko
Участник
bratint, да, точно - условие "и" можно реализовать через Not IN и ставить все другие категории кроме детских и художественных.
...
Рейтинг: 0 / 0
24.09.2019, 15:42
| Ответить | Цитировать | Написать  
Запрос для выборки записей через форму при связи многие ко многим
    #39866519
bratint
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
bratint
Гость
alecko, но тогда не выведутся книги, которые кроме 1 и 2 рубрик относятся ещё к каким-нибудь, а они должны быть. Здесь код Акины - самое то.

Может кому пригодится код для формы:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Dim str_vid As String
    
Sub MyPoisk()
Dim VarItm As Variant
Dim WasFirstVal As Boolean
    WasFirstVal = False
    str_vid = ""
    For Each VarItm In Список2.ItemsSelected
        If WasFirstVal = True Then
            str_vid = str_vid & ", "
        End If
        str_vid = str_vid & Список2.ItemData(VarItm)
        WasFirstVal = True
    Next VarItm
End Sub

Private Sub Список2_AfterUpdate()
    If Список2.ItemsSelected.Count > 0 Then
        MyPoisk
        Me.RecordSource = "SELECT Кн_ключ, Название, Год FROM Каталог WHERE Вид_ключ IN (" & str_vid & ") GROUP BY Кн_ключ, Название, Год HAVING COUNT(Вид_ключ)=" & Список2.ItemsSelected.Count
    End If
End Sub

Каталог - это Книги inner join КнВид. Не забудьте также включить несвязное выделение в параметрах списка.
...
Рейтинг: 0 / 0
24.09.2019, 17:24
| Ответить | Цитировать | Написать  
9 сообщений из 9, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Запрос для выборки записей через форму при связи многие ко многим
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&fpage=26&tid=1610455]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 51ms
get topic data:
 77ms
get forum data:
 2ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 17ms
total:  239ms
созд. / загр.: 239ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]