Besoin d'aide avec combobox et datagrid

Version imprimable

Bonjour,
Encore un petit problème pour moi...

Petit problème dont je cherche la solution est qu'en fait j'ai rempli un combobox comme ceci
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Private Sub remplircomboEquipe() sql = "SELECT * FROM Equipe" Set rs = New ADODB.Recordset rs.Open sql, dbsbase With ComboEquipe .Clear While Not rs.EOF If Not IsNull(rs!nom_équipe) Then .AddItem rs!nom_équipe & " " & rs!Division & " " & rs!Niveau & " [" & rs!Sexe & "]" rs.MoveNext Wend Set rs = Nothing End With End Sub
j'aimerais lorsque je clique sur une équipe, faire un filtre dans ma datagrid avec l'index de l'équipe voulue...

voici ce a quoi ressemble ma dg
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub remplirdg() sql = "SELECT * FROM Joueur Where Equipe = 1" Set rs = New ADODB.Recordset rs.CursorLocation = adUseClient rs.Open sql, dbsbase Set DataGrid1.DataSource = rs End Sub
j'aimerais au lieu de Equipe = 1 prendre l'id correspondant dans la ComboEquipe
Voila j'espère ne pas trop vous ennuyer en ce dimanche

09/06/2008, 09h15
Delbeke

L'idée serait de ne pas chercher a faire un filtre sur la grille, mais sur le recordset sous-jacent.
09/06/2008, 10h41
kinkinhxc

Citation:

Envoyé par Delbeke

L'idée serait de ne pas chercher a faire un filtre sur la grille, mais sur le recordset sous-jacent.

oui et d'ainsi charger la grille au moment du choix effectué

Bon voila ce que je te propose.

Vu que tu ne recuperes pas l'index (enfin tu ne l'utilises pas dans ton combobox). ce que tu doit faire c mettre les index dans un tableau (dynamique biensur) et ainsi pouvoir faire le filtre avec les elements du tableau.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
 
Dim TbIndex () as string  ' S'il sagit des strings
 
 
Private Sub remplircomboEquipe()
    Dim NbElt as integer, i as integer
sql = "SELECT * FROM Equipe"
    Set rs = New ADODB.Recordset
    rs.Open sql, dbsbase
 
'***********************************
    'On recupere le nombre d'element
    NbElt = rs.RecordCount
 
    'On Redimensione le tableau
    Redim TbIndex (NbElt)   
    i=0
'**********************************
    With ComboEquipe
        .Clear
        While Not rs.EOF
            If Not IsNull(rs!nom_équipe) Then .AddItem rs!nom_équipe & " " & rs!Division & " " & rs!Niveau & " [" & rs!Sexe & "]"
 
'**********************************
            'Pendant que l'on rempli le combobox, on rempli aussi le tableau, pour garder les memes index
           TbIndex(i)=rs!Index
           i=i+1
'********************************* 
            rs.MoveNext
        Wend
        Set rs = Nothing
  End With
 
 
End Sub

Ensuite tu filtres juste en utilisant les elements du tableau

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
 
Private Sub remplirdg()
 
   sql = "SELECT * FROM Joueur Where Equipe = " & TbIndex(ComboEquipe.ListIndex)
   Set rs = New ADODB.Recordset
 
   rs.CursorLocation = adUseClient
   rs.Open sql, dbsbase
 
   Set DataGrid1.DataSource = rs
 
End Sub

Voila comme ca, ca devrais marché.

Salut

Citation:

'On recupere le nombre d'element
NbElt = rs.RecordCount

malheureusement, si on ne fait pas un .MoveLast .MoveFirst, RecordCount = 0.
Le .MoveLast .MoveFirst fait perdre du temps, c'est pourquoi il peut être utile de partir du tableau = 0 et faire des redim preseve dans la boucle de remplissage.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 'On Redimensione le tableau i=0 Redim TbIndex (i) '********************************** '.................... '********************************** 'Pendant que l'on rempli le combobox, on rempli aussi le tableau, pour garder les memes index Redim Preserve TbIndex(i) TbIndex(i)=rs!Index i=i+1 '*********************************

10/06/2008, 19h19
sovo

Citation:

Envoyé par ProgElecT

Salut
malheureusement, si on ne fait pas un .MoveLast .MoveFirst, RecordCount = 0.
Le .MoveLast .MoveFirst fait perdre du temps,

tout a fait.

Code:

c'est pourquoi il peut être utile de partir du tableau = 0 et faire des redim preseve dans la boucle de remplissage.

bienvu, j'aurais c sur fait un movelast, movefirst ;)