Select T1.*, T3.* From RECETTE T1, RECING T2, INGREDIENT T3 Where T1.categorie Like '%Entrée%' And T2.id_recette = T1.id_recette And T2.id_ingredient = T3.id_ingredient And T2.quantite < T3.quantite_ingredient
Select *
From RECETTE
Where categorie Like '%Entrée%'
monRecordSet1.MoveFirst Do Not monRecordSet1.EOF maRecette = monRecordSet1.Fields("id_recette").Value monRecordSet2.Open _ "Select T1.*, T2.* From RECING T1, INGREDIENT T2 Where T1.id_recette = " & maRecette & _ And T1.id_ingredient = T3.id_ingredient And T2.quantite < T1.quantite_ingredient" ' Epluchage du résultat : Si pas de récultat, c'est que ' tous les composants sont présents, sinon, il en manque un ' Effacement If monRecordSet2.RecordCount > 0 Then monRecordSet1.Delete End If monRecordSet1.Move.Next Loop
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionmonRecordSet1.MoveFirst Do Not monRecordSet1.EOF maRecette = monRecordSet1.Fields("id_recette").Value monRecordSet2.Open _ " Select T1.*, T2.* From RECING T1, INGREDIENT T2 Where T1.id_recette = " &maRecette & _ And T1.id_ingredient = T3.id_ingredient And T2.quantite > T1.quantite_ingredient" ' Epluchage du résultat : Si pas de résultat, c'est que ' tous les composants sont présents, sinon, il en manque un ' Effacement If monRecordSet2.RecordCount > 0 Then monRecordSet1.Delete End If monRecordSet1.Move.Next Loop