Discussion :

[kinkinhxc]

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 :

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Delbeke]

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

[kinkinhxc]

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é

[sovo]

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 :

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
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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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é.

[ProgElecT]

Salut

'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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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
'*********************************

[sovo]

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

tout a fait.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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