Requête SQL Sélection sur 2 bases avec 3 conditions (seconde base)

Version imprimable

01/06/2024, 12h06
com-ace

Requête SQL Sélection sur 2 bases avec 3 conditions (seconde base)
Bonjour

J'ai besoin d'une requête sélection portant sur deux bases liées : 1er base référence (recette) et seconde base base Ingrédients
Je souhaite sélectionner les recettes comprenant jusqu'à 3 ingrédients choisis.
Je n'arrive pas à trouver de solutions.
Sans doute car je n'arrive pas à exprimer ma recherche de façon efficace : exemple "Requête sélection portant sur 2 tables avec critères de recherche ..." ne donne rien d'exploitables
Ajouter un AND entre les critères de recherche ne donnent bien évidement rien
Code:

1 2 WHERE (((Ingrédients.Ingrédients)="Citron")) AND (((Ingrédients.Ingrédients)="Curry")) AND (((Ingrédients.Ingrédients)="Oignons"));
Je suis preneur de vos sources (ou de vos suggestions
Merci d'avance
01/06/2024, 17h46
User

Bonjour,

Trois ingrédients choisis, mais choisis comment exactement ?

Cdlt,

Les ingrédients sont choisis à partir d'un contrôle liste (contenant l'ensemble des ingrédients de la table) qui alimente 3 champs dans un formulaire.
Je récupère les 3 champs et les intègrent dans ma requête SQL Select

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
        Dim SQL As String
        SQL = "SELECT [Liste des recettes].Intitulé, [Liste des recettes].N°, [Liste des recettes].Type, [Liste des recettes].Cats, [Liste des recettes].Facilité, [Liste des recettes].Temps_de_préparation, [Liste des recettes].Base, Ingrédients_Recette.Ingrédients"
        SQL = SQL & " FROM [Liste des recettes] LEFT JOIN Ingrédients_Recette ON [Liste des recettes].N° = Ingrédients_Recette.ID_Recette"
        SQL = SQL & " WHERE (((Ingrédients_Recette.Ingrédients)= " & Chr(34) & Me.Choix1 & Chr(34)
        If Me.Choix2 = "" Or IsNull(Me.Choix2) Then
                SQL = SQL & "));"
        Else
                SQL = SQL & ")) AND (((Ingrédients_Recette.Ingrédients)= " & Chr(34) & Me.Choix2 & Chr(34)
                If Me.Choix3 = "" Or IsNull(Me.Choix3) Then
                        SQL = SQL & "));"
                Else
                        SQL = SQL & ")) AND (((Ingrédients_Recette.Ingrédients)= " & Chr(34) & Me.Choix3 & Chr(34) & "));"
                End If
        End If
        Forms!Choix_des_recettes.RecordSource = SQL

L'objectif est le paramétrage d'un formulaire liste des recettes concernées.
La requête fonctionne avec un seul ingrédient mais je n'arrive pas à trouver la solution pour la requête recherche toutes les recettes qui utilisent 3 ingrédients.
Je ne sais pas si cela est possible d'ailleurs. Il faut peut être rechercher une autre solution.

Bonjour,

C'est ET ou OR :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
        Dim SQL As String
        SQL = "SELECT [Liste des recettes].Intitulé, [Liste des recettes].N°, [Liste des recettes].Type, [Liste des recettes].Cats, [Liste des recettes].Facilité, [Liste des recettes].Temps_de_préparation, [Liste des recettes].Base, Ingrédients_Recette.Ingrédients"
        SQL = SQL & " FROM [Liste des recettes] LEFT JOIN Ingrédients_Recette ON [Liste des recettes].N° = Ingrédients_Recette.ID_Recette"
        SQL = SQL & " WHERE (Ingrédients_Recette.Ingrédients= " & Chr(34) & Me.Choix1 & Chr(34) & ")"
 
        If Me.Choix2 <> "" and Not IsNull(Me.Choix2) Then
            SQL = SQL & " OR (Ingrédients_Recette.Ingrédients= " & Chr(34) & Me.Choix2 & Chr(34) & ")"    
        end if
 
        If (Me.Choix3 <> "") and Not IsNull(Me.Choix3) Then
            SQL = SQL & " OR (Ingrédients_Recette.Ingrédients= " & Chr(34) & Me.Choix3 & Chr(34) & ")"
        End If
 
        Forms!Choix_des_recettes.RecordSource = SQL

Cdlt,

Bonjour,
S'il s'agit de trouver les recettes qui utilisent 3 ingrédients déterminés, une requête possible serait

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
SELECT
bs.*
FROM
(
SELECT
rs.*,
(SELECT 'O' FROM Ingredients AS is WHERE is.IdRecette = rs.IdRecette AND is.IdIngredient = "'" & Me.Choix1 & "'") AS Ingredient1,
(SELECT 'O' FROM Ingredients AS is WHERE is.IdRecette = rs.IdRecette AND is.IdIngredient = "'" & Me.Choix2 & "'") AS Ingredient2,
(SELECT 'O' FROM Ingredients AS is WHERE is.IdRecette = rs.IdRecette AND is.IdIngredient = "'" & Me.Choix3 & "'") AS Ingredient3
FROM Recettes AS rs
) bs
WHERE
Ingredient1 = 'O' AND Ingredient2 ='O' AND Ingredient3 = 'O'
;

Bon DEV
.

Bonjour,
Tu as fait une jointure externe, et mis une restriction sur la table de droite dans la clause WHERE, ce qui change de facto celle-ci en jointure interne.
De plus si deux ingrédients sont choisis, la requête ne fonctionne plus. L'ingrédient ne peut pas être égal à choix1 et choix2.

Je vois 2 solutions :

Une jointure interne par choix
une seule jointure, un in et un count

Exemple :
Code:

1 2 3 4 5 6 7 8 Select recette.Intitulé, recette Type, count(*) From recette Inner joint ingrédient On recette.id = ingrédient.IdRecette Where ingrédient.code in (ici la liste des codes) Group by recette.intitulé, recette.Type Having count(*) = x,
Il faut évidement mettre la liste des codes d'ingrédients dans le In, ainsi que le nombre à la place de x en fin de requête. De même si tu ajoutes des colonnes dans le Select, il faut aussi les ajouter à la clause Group By.
Petit avantage, tu peux mettre par exemple 7 ingrédients mais 4 dans le Group By, pour avoir les recettes qui ont au moins 4 ingrédients sur les 7 spécifiés.

Tatayo.

Bonjour,

En effet si tous les choix sont inclus dans la recette alors en reprenant la proposition de SQL de Tatayo traduite en VBA :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
        Dim SQL As String
	Dim nbChoix as integer
 
        SQL = "SELECT [Liste des recettes].Intitulé, [Liste des recettes].N°, [Liste des recettes].Type, [Liste des recettes].Cats, [Liste des recettes].Facilité, [Liste des recettes].Temps_de_préparation, [Liste des recettes].Base"
        SQL = SQL & " FROM [Liste des recettes] INNER JOIN Ingrédients_Recette ON [Liste des recettes].N° = Ingrédients_Recette.ID_Recette"
        SQL = SQL & " WHERE (Ingrédients_Recette.Ingrédients= " & Chr(34) & Me.Choix1 & Chr(34) & ")"
 
        nbChoix = 1
 
        If Me.Choix2 <> "" and Not IsNull(Me.Choix2) Then
            SQL = SQL & " OR (Ingrédients_Recette.Ingrédients= " & Chr(34) & Me.Choix2 & Chr(34) & ")" 
            nbChoix = nbChoix + 1   
        end if
 
        If (Me.Choix3 <> "") and Not IsNull(Me.Choix3) Then
            SQL = SQL & " OR (Ingrédients_Recette.Ingrédients= " & Chr(34) & Me.Choix3 & Chr(34) & ")"
            nbChoix = nbChoix + 1 
        End If
 
        SQL = SQL & " GROUP BY [Liste des recettes].Intitulé, [Liste des recettes].N°, [Liste des recettes].Type, [Liste des recettes].Cats, [Liste des recettes].Facilité, [Liste des recettes].Temps_de_préparation, [Liste des recettes].Base"
 
	SQL = SQL & " HAVING COUNT(*)=" & nbChoix
 
        Forms!Choix_des_recettes.RecordSource = SQL