Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VB 6 et antérieur Discussion :

Sql Tri sur combobox


Sujet :

VB 6 et antérieur

  1. #1
    Nouveau membre du Club
    Sql Tri sur combobox
    Bonjour

    Je cherche comment peut on faire un tri avec requette sql
    j'ai access avec deux tables en relation : cat1 et type1.
    deux combobox:combocat1.text et :combotype1.text .
    quelle requette pour afficher les types sur combotype1.text ,on choisissant une categorie sur combocat1.text

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
     
    Connection
    sql3 = "SELECT * FROM cat1 INNER JOIN type1 ON cat1.id_cat = type1.id_cat"
     
    Set msfourni = New ADODB.Recordset
    msfourni.Open sql3, Conn3, adOpenDynamic, adLockOptimistic
    If Not msfourni.EOF Then
    Do Until msfourni.EOF
     
     
               combocat1.AddItem msfourni.Fields(5)
     
            End With
       msfourni.MoveNext
    Loop
    End If
    msfourni.Close: Set msfourni = Nothing

    Merci

  2. #2
    Nouveau membre du Club
    Bonjour,
    Mon probleme est résolu,pas de la façon optimale ,mais bon ça à marcher.
    on créant une Requête dans access entre les deux tables :cat1 et type1 qui sont on relation.
    j'ai du galérer avec la synrax de la requête de jointure .. que j'ai laiser tomber.

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    Private Sub txtmi_CLICK()
    Combo1.Clear
           sql3 = " select type from Requête2 where (cat ='" & combo1.Text & "')"
    Set msfourni = New ADODB.Recordset
    msfourni.Open sql3, Conn3, adOpenDynamic, adLockOptimistic
    If Not msfourni.EOF Then
    Do Until msfourni.EOF
     
       Do While Not msfourni.EOF
    combo2.AddItem msfourni("type")
    msfourni.MoveNext
    Loop
     
    Loop
    End If
    msfourni.Close: Set msfourni = Nothing
     
    End Sub

    Merci a vous tous.