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
    Inscrit en
    février 2007
    Messages
    37
    Détails du profil
    Informations forums :
    Inscription : février 2007
    Messages : 37
    Points : 34
    Points
    34
    Par défaut 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
    Inscrit en
    février 2007
    Messages
    37
    Détails du profil
    Informations forums :
    Inscription : février 2007
    Messages : 37
    Points : 34
    Points
    34
    Par défaut
    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.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. VBA SQL Tri sur 2 champs?
    Par jojo86 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 26/02/2012, 10h53
  2. SQL Tri sur champ externe
    Par harry_kalagan dans le forum PHP & MySQL
    Réponses: 1
    Dernier message: 07/01/2011, 15h43
  3. [SQL SERVER ] Tri sur plusieurs champs
    Par fantomchris dans le forum Langage SQL
    Réponses: 6
    Dernier message: 27/07/2006, 17h59
  4. [Interbase 6] tri sur date et SQL
    Par Yogy dans le forum InterBase
    Réponses: 6
    Dernier message: 21/06/2005, 09h15
  5. URGENT: tri sur table SQL
    Par clairette dans le forum Langage SQL
    Réponses: 4
    Dernier message: 26/05/2005, 14h53

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo