Rafraichir l'affichage d'un datagridview

Version imprimable

17/04/2011, 18h49
gilles_906

Rafraichir l'affichage d'un datagridview
Bonjour,

J'ai un datagridview qui est rempli a partir d'une requête select, elle même allant chercher ses données sur une base access.

Lorsque je clique une case a cocher du datagridview je met a jour la base de données avec une autre requête update.

Mais j'aimerai qu'après avoir cliqué (et donc mis a jour la bdd) pouvoir raffraichir mon datagridview avec ma requete select du début.

Le soucis c'est qu'avant de remplir mon datagridview je le vide avec linstruction
Code:

1 2 DataGridView1.Rows.Clear()
et comme la requête update s'effectue sur DataGridView1_CellParsing

je ne peux pas réappeller la procédure qui rempli le datagridview, car sinon le prog tourne en rond.

Pour faire plus simple cela donne

fonction de remplissage du DGV
1 vide le DGV => (mais ca exécute le cellParsing)
2 Rempli le DGV

on modifie une ligne (case a coché)=> requete update dans la bdd
Et la je voudrais mettre a jour le DGV, (dans l'idéal appel à la fonction de remplissage)
Car en fait, la ligne de la case qui a été coché doit être supprimé.

Merci d'avance
Gilles
17/04/2011, 20h10
oami89

bonjour,
essaye cela

Code:

DataGridView1.Refresh()
17/04/2011, 20h17
gilles_906

merci de ta réponse mais cela ne fonctionne pas, car mon DGV n'est pas lié a une base, c'est moi qui le rempli au travers du code par ajout de chaque ligne correspondant a chaque enregistrement récupéré après passage de la requete.
19/04/2011, 09h14
Kropernic

Plutot que de remplir manuellement ton datagridview, tu devrais le remplir à l'aide de la propriété datasource.

Tu n'auras plus besoin de le vider... Si tu refais ta requête select et que tu stockes le résultat dans le même objet qui est assigné comme datasource de ton datagridview, il se rafraichira tout seul.
19/04/2011, 09h36
gilles_906

Bonjour

Merci de ta réponse.
J'ai essayé de mettre en source un dataset pour mon datagrid, mais je rencontre les problèmes suivant:

1) Je veux que certaines lignes soit en vert (en fonction d'une case a coché)
2) Les données ne proviennent pas d'une table mais de plusieurs tables.
dans le cours de Phillippe Lasserre, il y a page 1052

Citation:

XVII-C-7 - Ajout, suppression, modification d'enregistrement
Il est impossible d'insérer, de modifier ou de supprimer dans plusieurs tables simultanément

3) J'ai quand même essayé pour l'affichage sur click d'un bouton, il faut vider le dataset sinon il cumul les enregistrements.
4)Sur coche d'une case a cocher (pas la meme que pour la couleur) la ligne doit disparaitre de l'affichage.
5) On doit pouvoir changer la valeur d'un colonne (une date)

J'ai contourné le problème mais je pense qu'il y a beaucoup mieux que ca.

Je test les colonnes sur click dans un select
cas ou
c'est celle qui doit disparaitre => je peux rafraichir car DataGridView1.Rows.Clear() ne fait pas appel a l'événement sur click.

cas ou
Je dois changer la date => j'ai créer un formulaire modale qui récupère la valeur de la nouvelle date a mettre.

autre cas
je sors de la procédure avant la requête update.
19/04/2011, 09h40
Kropernic

Bien sûr qu'il faut vider le dataset pour le remplir à nouveau. Mais cela rafraichit tout seul ton datagridview.

Pour ce qui est de l'update sur plusieurs tables, je ne vois pas le problème... Avec ou sans dataset, ça ne change rien.

Après pour les cas que tu cites, ouais y a un peu de code à faire. Mais tu ne serais pas sur ce forum si tu avais peur d'avoir à coder quelques lignes ;-)

Aurais tu une piste pour mettre en couleur les lignes que je veux?

pour l'instant je fais ca.

code juste aprés l'ajout d'une ligne dans le datagridview

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 cpt = 0
 
            Do While MonClient.Read()
                If MonClient("DatePrelevement") Is DBNull.Value Then
                    StrDate = ""
                Else
                    StrDate = Format(CDate(MonClient("DatePrelevement")), "dd MMM yyyy")
                End If
 
                DataGridView1.Rows.Add(MonClient("RefTPrelevements"), MonClient("RefFacture"), MonClient("FactPaye"), MonClient("NomClient"), MonClient("NumeroFacture"), MonClient("MontantTTC"), MonClient("MontantPrelevement"), MonClient("PrelevementEnrBanque"), MonClient("PrevelementEffectuer"), StrDate, MonClient("ReferencePrelevement"))
                If MonClient("PrelevementEnrBanque") = True Then
                    DTGenCouleur(Color.Green)
                Else
                    DTGenCouleur(Color.IndianRed)
                End If
                cpt = cpt + 1
            Loop

la procedure

Code:

1
2
3
4
5
6
  Sub DTGenCouleur(ByVal CouleurFond As System.Drawing.Color)
        For i = 0 To 10
            DataGridView1.Item(i, cpt).Style.BackColor = CouleurFond
            DataGridView1.Item(i, cpt).Style.Alignment = DataGridViewContentAlignment.MiddleCenter
        Next
    End Sub

Pour être sûr...
- De quel typ est ton objet MonClient ?
- Peux-tu donner le code avec lequel tu remplis ton datagridview ?

Sinon, perso pour mettre un ligne en couleur je fais ceci :
Code:

1 2 3 4 5 6 For Each row As DataGridViewRow In monDatagridvieuw.Rows If laConditionQuiVaBien Then row.DefaultCellStyle.BackColor = System.Drawing.Color.Red End If Next
Cela t'évite de devoir changer la couleur de chaque cellule.

C'est la ligne complète que je veux mettre en couleur, donc je vais essayer ta facon de faire qui doit être plus rapide que de faire une boucle.
Mais comment faire si le datagrig a un dataset en source avec une requete pour source du dataset?

MonClient c'est l'enregistrement récupéré par la requete.

Voila le code complet de remplissage du datagrid

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
  Private Sub RempliDataGrid1()
 
 
        DataGridView1.Rows.Clear()
        'Recuperation de la plage de date pour que l'on affiche les prélèvements correspondant
 
 
        Try
            Dim DebutPlage As String
            Dim FinPlage As String
            If IsDate(TxDateDebut.Text) Then
                DebutPlage = "And ((TPrelevements.DatePrelevement) >= #" & Format(CDate(TxDateDebut.Text), "MM/dd/yy") & "#) "
            Else
                DebutPlage = ""
            End If
 
            If IsDate(TxDateFin.Text) Then
                FinPlage = " And ((TPrelevements.DatePrelevement) <= #" & Format(CDate(TxDateFin.Text), "MM/dd/yy") & "#) "
            Else
                FinPlage = ""
            End If
 
 
            'création de la connection a la base de donnée
            Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Gillou\Hemiris\Données\donneesHemiris.mdb")
            Dim MyCommand As OleDbCommand = MyConnexion.CreateCommand()
 
 
 
            MyCommand.CommandText = "SELECT TPrelevements.RefTPrelevements, TFactures.RefFacture, TFactures.FactPaye, TFactures.NomClient, TFactures.NumeroFacture, TFactures.MontantTTC, TPrelevements.MontantPrelevement, TPrelevements.PrelevementEnrBanque, TPrelevements.PrevelementEffectuer, TPrelevements.ReferencePrelevement, TPrelevements.DatePrelevement FROM TFactures LEFT JOIN TPrelevements ON TFactures.RefFacture = TPrelevements.RefFacture WHERE((TFactures.FactPaye = False) " & DebutPlage & FinPlage & " AND PrevelementEffectuer = False) ORDER BY TPrelevements.DatePrelevement ;"
 
            MyConnexion.Open()
 
 
            'ajout des résultats de la requête dans le datagridview
 
            Dim MonClient As OleDbDataReader = MyCommand.ExecuteReader()
            Dim StrDate As String
            cpt = 0
 
            Do While MonClient.Read()
                If MonClient("DatePrelevement") Is DBNull.Value Then
                    StrDate = ""
                Else
                    StrDate = Format(CDate(MonClient("DatePrelevement")), "dd MMM yyyy")
                End If
 
                DataGridView1.Rows.Add(MonClient("RefTPrelevements"), MonClient("RefFacture"), MonClient("FactPaye"), MonClient("NomClient"), MonClient("NumeroFacture"), MonClient("MontantTTC"), MonClient("MontantPrelevement"), MonClient("PrelevementEnrBanque"), MonClient("PrevelementEffectuer"), StrDate, MonClient("ReferencePrelevement"))
                If MonClient("PrelevementEnrBanque") = True Then
                    DTGenCouleur(Color.Green)
                Else
                    DTGenCouleur(Color.IndianRed)
                End If
                cpt = cpt + 1
            Loop
 
            DataGridView1.ClearSelection()  'comme ca on voit bien les couleurs
 
            'fermeture de la connection
            MonClient.Close()
            MyConnexion.Close()
 
 
        Catch ex As Exception
            MsgBox("L'erreur suivante s'est produite : " & ex.Message)
        Finally
 
 
 
        End Try

Le code sur la cellule qui permet d'effacer la ligne cas 8 ou ouvrir une boite de dialogue si le click est sur la date cas 9

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Private Sub DataGridView1_CellMouseUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellMouseEventArgs) Handles DataGridView1.CellMouseUp
 
 
 
        Try 'ENREGISTREMENT DANS LA TABLE ACCESS DES MODIFS QUI SONT FAITE DANS LE DATAGRIDVIEW
            Dim TableAMettreAJour As String = ""
            Dim CaseAChanger As String  'valeur contenu dans la case ou l'on se trouvait juste avant de changer de cellule
            'Dim BolPrevEffect As Boolean
            Dim DTG1X As Integer    'numero de la colonne selectionné
            Dim DTG1Y As Integer    'numero de la ligne selectionné
            Dim IntRefTPrelement As Integer 'reference dans la table TPrelevement permet de retrouver l'enregistrement
            Dim APasserDansRequete As String = ""  'argument que l'on passe dans la requette pour update
 
            DTG1X = DataGridView1.CurrentCellAddress.X
            DTG1Y = DataGridView1.CurrentCellAddress.Y
 
            IntRefTPrelement = DataGridView1.Item(0, DTG1Y).Value
 
            CaseAChanger = DataGridView1.CurrentRow.Cells(DTG1X).EditedFormattedValue
 
            Select Case DataGridView1.CurrentCell.ColumnIndex
 
 
                Case 8  'prelevement effectué
                    TableAMettreAJour = "TPrelevements"
                    APasserDansRequete = "PrevelementEffectuer = " & CaseAChanger
                Case 9  'date du prelevement
                    If DataGridView1.Item(7, DTG1Y).EditedFormattedValue = True Then
                        MessageBox.Show("Le prélèvement est déja passé à la banque il n'est plus possible de changer sa date.", "IMPOSSIBLE", MessageBoxButtons.OK, MessageBoxIcon.Stop)
                        Exit Sub
                    End If
                    'TODO faire une boite de dialogue qui permettra d'entrée directement la date dans la base
                    FChangeDatePrelevement.ShowDialog()
                    If IsDate(DateAChanger) Then
                        TableAMettreAJour = "TPrelevements"
                        APasserDansRequete = "DatePrelevement = #" & Format(CDate(DateAChanger), "MM/dd/yyyy") & "#"
                    Else : Exit Sub
                    End If
                Case Else
 
                    Exit Sub
 
            End Select
 
 
            ''création de la connection a la base de donnée
            Dim MyConnexion As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data source=C:\Gillou\Hemiris\Données\donneesHemiris.mdb")
            Dim MyCommand As OleDbCommand = MyConnexion.CreateCommand()
 
            MyCommand.CommandText = "UPDATE " & TableAMettreAJour & " SET " & APasserDansRequete & " WHERE( TPrelevements.RefTPrelevements = " & IntRefTPrelement & " ) ;"
 
            MyConnexion.Open()
 
 
            ''ajout des résultats de la requête dans la liste
 
            Dim MonClient As OleDbDataReader = MyCommand.ExecuteReader()
 
            'fermeture de la connection
            MonClient.Close()
            MyConnexion.Close()
            RempliDataGrid1()

DateAChanger est la variable publique qui est récupéré dans la boite de dialogue

19/04/2011, 14h15
Kropernic
pour remplir un datagridview
Code:

1 2 mondatagridview.datasource = mondataset.tables(0) (ou mondatareader)
voilà, moi j'utilise cela car, jusqu'ici, je n'ai toujours mis qu'une seule table par dataset. Si tu as plus de tables, bin tu peux choisir la quelle ou bien tu ne précise pas et tu pourras naviguer entre les tables.

tu peux aussi définir la table via la propriété datamember plutot qu'en la précisant directement dans la propriété datasource (je le dis juste pour être complet)

Sinon pour ton 2e morceau de code, ok c'est beau mais tu veux que je regarde quoi ? Faut bien se dire que j'vais "tout faire". Si t'as une question, ok je tente d'y répondre et si t'as une erreur, je tente de t'aider à la résoudre mais pour le reste, c'est un peu à toi de réfléchir pour voir ce qui correspond le mieux à ta situation et ce qui sera le plus performant ;-)
19/04/2011, 14h29
gilles_906

La actuellement cela fonctionne.

Ce que j'aurais voulu faire pour que ce soit mieux.

Lier le datagridview a un dataset
dans ce dataset mettre le resultat de ma requete qui provient de plusieurs tables.
Donc plusieurs tables access => requete => une table dans un dataset => lié au datagrid

Ca j'ai essayé ca marche, mais maintenant:

Je voudrais que l'on puisse changer ce qu'il y a dans les cellules du datagrid et que sur CellParsing ou perte focus de la cellule, cela mette a jour directement ma base access avec ce qui a été modifié puis raffraichissement du datagrid.
Car en fonction de ce qui a été modifié:
Soit je change la couleur de la ligne
soit je supprime la ligne

Comme je l'ai dit j'ai réecris le code comme ci dessus et cela fonctionne mais ca me parait un peu de la bidouille. Car pas de liaison direct datagrid / base mdb.
Maintenant si tu penses que le code va bien je laisse comme ca.
19/04/2011, 15h10
Kropernic

ok ok je comprends mieux.

Quelle est la quantité de donnnées que tu récupères avec ta requête ?
Parle-t-on de centaines de lignes, de milliers, de millions ?
19/04/2011, 17h10
gilles_906

Quelques dizaines de lignes ;)

Par contre les tables acces ont plusieurs milliers de lignes.
20/04/2011, 09h18
Kropernic

Si tu ne récupères que qqes dizaines de lignes, je te suggère de mettre le résultat de ta requête dans ton dataset, tu lies ton dataset à ton datagridview, tu modifies ce que tu as à modifier et ensuite tu renvoies ton dataset vers ta DB pour la mise à jour de ce qui est modifié.

Après, si certains infos doivent disparaitre de ton datagridview en fonction de ce qui a été modifié, le plus simple est p-e de refaire la requête si elle ne mets pas trois plombes. Ce ne sera pas plus performant mais c'est le plus simple (je crois que si tu cherchais la performance, tu n'utiliserais pas access de toute façon ^^).

Tu trouveras le code dans le cours de Philippe Lasserre (je ne l'ai pas en tête comme ça ^^).

J'espère que cela t'aidera. Si tu as des questions, je reste à ta disposition ;-)
21/04/2011, 13h18
gilles_906

Merci de ta réponse

Je me suis appuyé sur le cours pour faire ce que tu as dit.

En ce qui concerne la requête pas de soucis cela reste la même pour supprimer les lignes donc il me suffit de la faire tourner après la mise a jour de la base acces et avant le ré affichage du datagrid.

Par contre comment faire pour affiché des lignes vertes si une case a coché est coché et rouge si pas coché. Puisque tout arrive du dataset qui est lié au datagrid?
21/04/2011, 13h32
Kropernic

De la même manière que celle que je t'ai déjà donnée - il faut juste ajouté la clause Else (voir plus haut)

Il suffit dans la condition de tester si ta cellule est cochée ou non ;-)
21/04/2011, 15h36
gilles_906

Désolé mais il y a une chose que je ne comprends pas.

Je veux agir sur la couleur de fond de la ligne coché.

A quel moment je dois mettre le code de changement de couleur?

Pour moi:

Utilisateur change un champ exemple il coche une case qui fera mettre la ligne en vert (les autres lignes etant en rouge)

sur évement sorti de focus par exemple
je rempli le dataset
je mets a jour la base mdb
je vide le dataset
j'exécute la requete (la je récupère uniquement les lignes qui doivent etre affiché)
je rempli le dataset
je rafraichi le datagrid

entre les deux dernières opérations je ne passe pas en revu toutes les lignes donc je n'ai pas de possibilités de mettre en couleur mes lignes.
Ou il y a quelques chose qui m'échappe
21/04/2011, 15h42
Kropernic

Citation:

Envoyé par gilles_906

Désolé mais il y a une chose que je ne comprends pas.

Je veux agir sur la couleur de fond de la ligne coché.

A quel moment je dois mettre le code de changement de couleur?

Pour moi:

Utilisateur change un champ exemple il coche une case qui fera mettre la ligne en vert (les autres lignes etant en rouge)

sur évement sorti de focus par exemple
je rempli le dataset
je mets a jour la base mdb
je vide le dataset
j'exécute la requete (la je récupère uniquement les lignes qui doivent etre affiché)
je rempli le dataset
je mets en couleur
je rafraichi le datagrid

entre les deux dernières opérations je ne passe pas en revu toutes les lignes donc je n'ai pas de possibilités de mettre en couleur mes lignes.
Ou il y a quelques chose qui m'échappe

Qu'est-ce qui t'empêche de faire ce que j'ai mis en rouge ?

Tu peux très bien placé la boucle qui mets les lignes en couleur après l'instruction

Code:

monDataGridView.DataSource = monDataSet

non ?

Ou alors c'est moi qui ai compris qqch de travers à ton processus.
21/04/2011, 16h20
gilles_906

Ok donc on peut passer en revue les lignes d'un datagrid qui est lié a un dataset et modifier la couleur des lignes.
Je ne savais pas que l'on pouvait faire ca, je vais essayer je te tiens au courant