bug dans mon appli VB6 Fermé

Question

Bonjour tout le monde,

J'ai créé un début d'application en VB6 qui devrait me permettre de simuler l'utilisation d'une machine à café.

à un certain moment, je clic sur une recette, une zone de liste doit montrer les différents ingrédients composant cette recette.

Le problème, c'est que la zone de liste ne se remplit pas.

Pourrais-je vous demander d'exécuter mon appli et de tester par vous-même ?

Voici les instructions pour l'exécution :

- Aller dans le menu "Machine" et choisir "ouvrir le panneau de gestion"
- Y indiquer le mot de passe "secret"
- aller ensuite dans le menu Gestion (qui vient d'apparaître)
- Choisir "Gérer les recettes et les ingrédients
- Sélectionner une recette (par exemple "café normal")
- vous voyez alors apparaitre le nom et le prix de la recette
- dans composition de la recette, devrait venir la composition de la requête par rapport à cette chaine SQL :

Code :

Set rsRecette = BDOuvrirTable("SELECT recette.* , detail_recette.* FROM detail_recette LEFT JOIN recette ON detail_recette.ref_recette = recette.id WHERE recette.id = " & listRecettes(0).ItemData(listRecettes(0).ListIndex), True)
ListCompositionRecette.Text = rsRecette("ref_ingredient") & " x " & rsRecette("nom")

mais comme je l'ai dit plus haut, rien n'apparait dans la zone de liste.

Le problème vient pour moi de la requête ci-dessus, c'est en fait une left join.

Est-il possible de vous laisser l'entierté de l'application et la base de données ?

Un super grand et sincère merci pour votre aide.

beegees

mikebzh · Answer

fais un zip de tes fichiers et mets les à dispo sur le site www.cijoint.fr, ensuite tu post le lien ici.
Je verrai ce que je peux faire.

beegees · Answer

Salut,

Merci pour ta réponse.

Voici le lien de l'attaché :

http://www.cijoint.fr/cjlink.php?file=cj200812/cijhHBJiAC.zip

Merci encore.

beegees

mikebzh · Answer

Il manque deux formes
A première vue dans ta requète il semblerait que 
[code]
ON detail_recette.ref_recette = recette.id
[\code]

J'ai jeter un petit coup d'oeil aux tables recette.ref_recette et recette.id vont avoir du mal à être identique !!!

mikebzh · Answer

On peut essayer un truc du genre

[code]
dim i as integer
...............
Set rsRecette = BDOuvrirTable("SELECT ingredient.nom FROM ingredient WHERE ingredient.id IN (SELECT detail_recette.ref_ingredient FROM detail_recette WHERE detail_recette.ref_recette IN (SELECT recette.id FROM recette WHERE recette.nom ='" & textNomRecette(0).Text & "'))", True)
    i = 0
    Do While Not rsRecette.EOF
        ListCompositionRecette.List(i) = rsRecette("nom")
        rsRecette.MoveNext
        i = i + 1
    Loop
.................
[\code]

A plus

beegees · Answer

Salut,

Je te remercie beaucoup pour ta solution.

beegees

Bug dans mon appli VB6

5 réponses

Discussions similaires