1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. Visual Basic 6
Sujet Précédent Sujet Suivant

Comment ne pas choisir un élément dans un recordset

Résolu
Messages postés
152
Date d'inscription
mardi 4 novembre 2008
Statut
Membre
Dernière intervention
10 avril 2017
 -
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
 -
Bonjour tout le monde,

J'ai une combobox qui contient ces éléments :

<meta http-equiv= "Content-Type" content="text/html;charset=UTF-8" /><title>support</title><caption> support </caption>----
nom |----
baquet en plastique, ----
cornet, ----
gaufrette, ----
panier en biscuit, <tfoot></tfoot>

Tous les supports sauf la gaufrette peut accueillir de la crème fraiche :

<meta http-equiv ="Content-Type" content= "text/html;charset=UTF-8" /><title>support</title><caption> support </caption>----
id |nom |nappage_possible |creme_fraiche_possible |----
1, baquet en plastique, -1, 0, ----
2, cornet, 0, -1, ----
3, gaufrette, 0, 0, ----
4, panier en biscuit, -1, -1, <tfoot></tfoot>

Je remplis donc la combobox suppléments pour ceux qui peuvent accueillir la crème fraiche et les autres ingrédients :

Private Sub supplements()    sql "SELECT id, nom, creme_fraiche_possible FROM support WHERE ID " & comboTypeSupport.ItemData(comboTypeSupport.ListIndex)
    Set rsTable = BDOuvrirTable(sql, True)
    If rsTable(2) = True Then
        sql = "SELECT id, nom FROM supplement ORDER BY nom asc"
        BDRemplirListe sql, listSupplement
    Else
        listSupplement.Clear
    End If
End Sub

Public Sub BDRemplirListe(ByVal sql As String, ByRef Liste As Control, Optional plus As Boolean = False)
    Dim rsTable As Recordset
   
    If (TypeOf Liste Is ListBox) Or (TypeOf Liste Is ComboBox) Then
        Set rsTable = BD.OpenRecordset(sql, dbOpenSnapshot)
       
        Liste.Clear
        While Not rsTable.EOF
                Liste.AddItem rsTable(1)
                Liste.ItemData(Liste.NewIndex) = rsTable(0)
                rsTable.MoveNext
        Wend
        rsTable.MoveFirst
       
    End If
   
End Sub

Mais comment faire pour le support qui n'accepte pas de crème fraiche ?

Voici la table qui contient les suppléments (au cas où ça peut aider) :

<meta http-equiv="Content-Type" content="text/html;charset=UTF-8" /><title>supplement</title><caption>supplement</caption>----
id |nom |est_creme_fraiche |prix |----
1, crème fraîche, -1, 0,05, ----
2, brésilienne, 0, 0, ----
3, pépittes de chocolat, 0, 0,05, <tfoot></tfoot>

Merci d'avance pour l'aide.

beegeezzz

3 réponses

Réponse 1 / 3
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
Salut,
Attention dans tes tables il semblerai que baquetteplastique ne puisse pas recevoir de la creme fraiche aussi!
sur un test de condition
si cremefraichepossible=-1 alors
   Nappagecremefraiche
sinon
   NoNappageCremeFraiche
fin si
En esperant que ca te mette sur la voie...
En tout cas moi tu m'a donné faim! De a crème fraiche, du nappage, des gaufrettes... Hummmm.....

S.L.B.
<hr />
Réponse 2 / 3
Messages postés
152
Date d'inscription
mardi 4 novembre 2008
Statut
Membre
Dernière intervention
10 avril 2017
 1
Bonjour,

Merci pour ton explication.

Mon problème va être résolu (autrement je reviendrai mais je pense avoir compris grâce à toi).

Encore merci
beegees
Réponse 3 / 3
Messages postés
1229
Date d'inscription
vendredi 16 novembre 2007
Statut
Membre
Dernière intervention
16 juin 2009
De rien... Bon courage!

S.L.B.
<hr />
Répondre Posez votre question