Discussion :

[GRIMPMASTER]

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

[GRIMPMASTER]

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.