Discussion :

[keunene]

bonjour
je voudrais vous solliciter pour savoir comment je puis faire un classement selon la moyenne de chacun.
et comment afficher le résultat dans un datagrid ou une listview,etc/
j'ai essayé ceci mais je ne sais pas comment ajouter le rang de chacun.
je voudrais que celui qui a la plus forte moyenne se voit afficher en face 1ER et ainsi de suite.
Voici mon code :

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
  Try
 
 
            Using conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\KEUNENE-PC\ecole\ecole.mdb;")
                conn.Open()
                Dim command As New OleDbCommand("SELECT nom, année_scolaire,AVG(note) from moyenne  where  année_scolaire = '" & annee.Text & "'  GROUP BY inom,année_scolaire order by AVG(note) desc", conn)
                Dim adapter As New OleDbDataAdapter
                Dim dt As New DataTable
                adapter.SelectCommand = command
                adapter.Fill(dt)
                DataGridView1.DataSource = dt
 
                adapter.Dispose()
                command.Dispose()
                conn.Close()
 
            End Using
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

merci infiniment pour vos aides!

[mactwist69]

Bonjour,

Tu as les solutions SQL, qui sont parfois un peu compliqué :

- table temporaire :
http://www.developpez.net/forums/d16...equete-select/
- Il paraitrait aussi qu'il y a une fonction ROW_NUMBER:
http://www.brainstormsolutions.ca/bl...e-requete-sql/

Mais en l'occurence, toi, su le veux juste dans ton DGV.

Donc tu as aussi la solution de te créer un DGV avec une colonne en plus, et avec une petite boucle, venir remplir cette colonne à la fin du remplissage. (Pour moi la solution la plus simple).

[Kropernic]

Donc tu as aussi la solution de te créer un DGV avec une colonne en plus, et avec une petite boucle, venir remplir cette colonne à la fin du remplissage. (Pour moi la solution la plus simple).

Cela dépend la matière que l'on maîtrise le mieux.

Personnellement, je trouve l'ajout de cette colonne directement dans la requête SQL plus pratique. Mais c'est une question de point de vue.

Pour info, la requête donnerait 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
SELECT    
    NOM AS 'NOM',    
    ANNEE_SCOLAIRE AS 'ANNEE SCOLAIRE',
    AVG(NOTE) AS 'MOYENNE',
    ROW_NUMBER() OVER(PARTITION BY AVG(NOTE), ORDER BY AVG(NOTE) DESC)
FROM
    MOYENNE
WHERE
    ANNEE_SCOLAIRE = @ANNEE
GROUP BY
    NOM,
    ANNEE_SCOLAIRE
ORDER BY
    AVG(NOTE) DESC

où @ANNEE est un paramètre contenant la valeur de filtrage.

Concernant le code du message de départ, j'aurai plusieurs remarques :

1. Il est fortement conseillé d'utiliser les requêtes paramétrées. Cela vous évitera des problèmes de typage et de sécurité. On voit dans votre requête que vous passez l'année comme étant une chaîne de caractères alors que cela devrait être un entier (ou un short éventuellement). Cela indique de possibles erreurs dans votre schéma de données.
2. N'utilisez pas de caractères accentués dans les noms des colonnes de vos tables. En fait, dans les noms d'aucun objet (DB, table, colonne, variable, etc.) ! C'est une bonne habitude à prendre.
3. La ligne conn.Close() est inutile du fait de l'utilisation d'un bloc Using.
4. Pensez à renommer vos contrôles graphiques de manières appropriées. C'est également une bonne habitude à prendre. Le nom DataGridView1 est équivoque. Vous vous y retrouverez tant que vous n'aurez qu'un ou deux contrôles de ce type sur un formulaire mais après, cela peut vite provoquer des erreurs. De plus, si vous revenez dans quelques mois sur votre code, vous serez bien content de l'avoir nommé correctement pour savoir à quoi sert ce contrôle rien qu'en regardant le code sans devoir aller regarder l'interface graphique (gain de temps énorme).

[keunene]

merci bien pour vos attentions.cependant j'ai l'impression que row number() ne fonctionne pas avec access 2007 et 2010.Est_ce qu'il n'y a pas d'autres solutions à ce problème?
je suis allé sur le site de microsoft et ils disent que cette fonction marche avec sql server ET WINDOWS AZUR 2008 et plus
j'arrive à faire le rang dans un combobox ou dans un checklistbox mais pas dans un datagrid avecc ce code.
Mais comment le mettre dans un datagrid:

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
36
37
38
39
 Try
 
 
            Dim Mycommand As OleDbCommand = MyConnexion.CreateCommand()
 
            Mycommand.CommandText = " SELECT DISTINCT  count (idno) AS NOMBRE_NOTES,nom,AVG(note) as Moyenne_trimestrielle FROM notio  where classe = '" & classe.Text & "' and trimestre = '" & trimestre.Text & "' and année_scolaire = '" & annee.Text & "' and matière = '" & statut.Text & "' group by idno,noms order by AVG(note) desc "
            MyConnexion.Open()
 
            Dim myReader As OleDbDataReader = Mycommand.ExecuteReader()
 
            Do While myReader.Read()
 
                Label11.Text = myReader(0)
 
                ComboBox2.Text = Label11.Text
 
                Dim MonTableau(CInt(ComboBox2.Text) - 1) As Integer
 
                For i As Integer = 0 To CInt(ComboBox2.Text) - 1
                    MonTableau(i) = i + 1
                Next
                Me.ComboBox2.DataSource = MonTableau
 
 
                Me.Box1.DataSource = MonTableau
 
 
 
            Loop
 
            myReader.Close()
 
            MyConnexion.Close()
 
 
        Catch ex As Exception
 
            MsgBox(ex.ToString)
        End Try

[Kropernic]

Effectivement, ROW_NUMBER, c'est pour SQL SERVER. Vu qu'on en parlait, j'ai donné la requête. J'ai pas cherché à savoir quelle était ta base de données (en même temps, tu ne le signales et je ne lis pas toujours les codes sources).

Pour trouvé l'équivalent en access, il y a ceci.

[keunene]

j'ai fait ce que vous m'avez dit et ça marche.Mais ça fait le rang selon l'identifiant,mais pas selon la moyenne.
J'ai tourné le code dans tous les sens possibles et j'ai compris qu'il ne peut pas faire le rang selon la moyenne parceque tout simplement les moyennes générées ne sont pas dans la table mais sont générées temporairement.Je suis convaincu pourtant qu'il y a une solution car j'ai déjà vu des logiciels classés selon la moyenne.Merci encore

[Kropernic]

Montre-nous la requête qui te donne le rang suivant l'identifiant. ;-)

[keunene]

voici mon code:

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
  Private Sub classement_Click(sender As Object, e As EventArgs) Handles classement.Click
        Try
 
 
            Using conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\KEUNENE-PC\ecole\ecole.mdb;")
                conn.Open()
                Dim command As New OleDbCommand("SELECT id,nom,prenoms,annee_scolaire,trimestre,classe,count(id) AS NOMBRE_NOTES,AVG(notra) as moyenne_trimestrielle,(SELECT COUNT(*) FROM (SELECT DISTINCT id FROM notio) AS T2 WHERE T2.id >= T1.id) AS CLASSEMENT FROM notio AS T1  where classe = '" & classe.Text & "' and trimestre = '" & trimestre.Text & "' and année_scolaire = '" & annee.Text & "'  GROUP BY id,nom,prenoms,annee_scolaire,trimestre,classe,rang ORDER BY AVG(notra) DESC", conn)
                Dim adapter As New OleDbDataAdapter
                Dim dt As New DataTable
                adapter.SelectCommand = command
                adapter.Fill(dt)
                DataGridView1.DataSource = dt
 
                adapter.Dispose()
                command.Dispose()
                conn.Close()
 
            End Using
            Label7.Visible = True
            Label7.Text = " moyenne  annuelle"
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try
    End Sub

là où il y a id,je l'ai remplacé par d'autres champs et cela ne me fait pas le rang selon les moyennes.

[Kropernic]

Ah oui c'est juste ! La DB est Access...

A vue de pif, changer le filtre (et p-e aussi dans la clause select) dans votre sous requête qui forme T2.

Sinon, ce problème est en fait un problème access voir sql et pas du tout de vb.net. Vous aurez p-e de meilleures réponses dans le forum correspondant.