Discussion :

[nibblerg]

Bonjour
Je souhaiterais avoir votre avis pour améliorer mon code.
Je débute en vb.net mais mon code marche, je souhaite simplement améliorer et savoir si j'utilise la meilleure méthode.
J'ai simplifié mon code en gardant que les grandes lignes, mais en gros, ma base de données contient environ 15000 lignes avec une vingtaine de colonnes.
J’affiche mes données dans un datagrid, dans chaque ligne il y a des icônes, des combobox, des cellules de couleurs différentes
J’affiche mes lignes au fur et à mesure du scroll mais l'actualisation de l'affichage n'est pas très fluide et rapide,

Je parcourant le net j’ai peut-être plusieurs pistes pour améliorer :
utiliser un dataAdapteur au lieu du datareader
utiliser le virtualmode ?

Voilà si quelqu’un peut me donner des conseils ?

Merci

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
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Sub Lecture_DataBase()
 
    Dim Connection As New OleDb.OleDbConnection()
    Dim DataReader As OleDbDataReader
 
    Connection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Chemin_DataBase & Fichier_DataBase
    Connection.Open()
 
    Dim cmd As OleDbCommand = New OleDbCommand("SELECT * FROM `PRODUITS`", Connection)
    DataReader = cmd.ExecuteReader
 
    While DataReader.Read()
        tableProduit.Rows.Add()
        tableProduit.Rows(tableProduit.Rows.Count - 1).Item("path") = DataReader("path").ToString
        tableProduit.Rows(tableProduit.Rows.Count - 1).Item("description") = DataReader("description").ToString
        tableProduit.Rows(tableProduit.Rows.Count - 1).Item("fournisseur") = DataReader("fournisseur").ToString
        tableProduit.Rows(tableProduit.Rows.Count - 1).Item("type") = 1
    End While
    Connection.Close()
 
    LigneEcriture = 0
    Affichage_DataGrid()
End Sub
 
Private Sub DataGridView1_Scroll(sender As Object, e As ScrollEventArgs) Handles DataGridViewMain.Scroll
    If e.ScrollOrientation = ScrollOrientation.VerticalScroll Then
        Dim displayedRowsCount As Integer = DataGridViewMain.DisplayedRowCount(True)
        Dim firstDisplayedRowIndex As Integer = DataGridViewMain.FirstDisplayedScrollingRowIndex
        Dim missingRowsCount As Integer = 90
        If firstDisplayedRowIndex + displayedRowsCount >= LigneEcriture Then Affichage_DataGrid()
    End If
End Sub
 
 
Sub Affichage_DataGrid()
 
    With Main.col0 : .HeaderText = "" : .Name = "N1" : .Width = 25 : .Visible = True : .SortMode = DataGridViewColumnSortMode.NotSortable : End With
    With Main.col1 : .HeaderText = "path" : .Name = "path" : .Width = 250 : .Visible = True : .SortMode = DataGridViewColumnSortMode.NotSortable : End With
    With Main.col2 : .HeaderText = "description" : .Name = "description" : .Width = 250 : .Visible = True : .SortMode = DataGridViewColumnSortMode.NotSortable : End With
    With Main.col9 : .HeaderText = "fournisseur" : .Name = "fournisseur" : .Width = 100 : .Visible = True : .SortMode = DataGridViewColumnSortMode.NotSortable : End With
 
    If tableProduit.Rows.Count - 1 < LigneEcriture + 49 Then
        max = tableProduit.Rows.Count - 1
    Else
        max = LigneEcriture + 49
    End If
 
    For t = LigneEcriture To max
 
        Main.DataGridViewMain.Rows.Insert(LigneEcriture)
 
        If tableProduit.Rows(t).Item("type") = 1 Then Main.DataGridViewMain.Rows(LigneEcriture).Cells("N1").Value = My.Resources.ZC_img_asm
 
        Main.DataGridViewMain.Rows(LigneEcriture).Cells("path").Value = tableProduit.Rows(t).Item("path")
        Main.DataGridViewMain.Rows(LigneEcriture).Cells("description").Value = tableProduit.Rows(t).Item("description")
        Main.DataGridViewMain.Rows(LigneEcriture).Cells("fournisseur").Value = tableProduit.Rows(t).Item("fournisseur")
 
        If Not IO.File.Exists(tableProduit.Rows(t).Item("path").ToString) Then Main.DataGridViewMain.Rows(LigneEcriture).Cells("path").Style.BackColor = Color.FromArgb(255, 200, 200) End If
 
        LigneEcriture = LigneEcriture + 1
    Next
End Sub

[Pol63]

le virtualmode permet en effet de mettre des centaines de milliers de lignes sans ralentissements
ca fait un peu de code à taper par contre (un event est levé à chaque fois qu'une cellule veut son contenu, donc il faut chercher dans sa collection interne pour lui donner la valeur (les lignes sont ajoutées à blanc))
et donc à chaque que tu vas scroller ca va lever l'event des dizaines de fois

[binarygirl]

1) Premièrement, je ne comprends pas pourquoi vous tirez la totalité de la table pour la rapatrier vers le client.
Est-ce que l'utilisateur final a vraiment besoin de consulter l'ensemble des données et scroller ces 15000 rows ??
Il me semble plus rationnel d'utiliser un filtre de recherche, dont le critère peut être le fournisseur par exemple.
Comme ça, vous filtrez les données à la source et allégez les requêtes.

Il faut se représenter la charge que ça représente pour le serveur de DB, plus le volume de données qui doit transiter via le réseau, et enfin la charge pour le rendering au niveau de l'UI.

Quand on parle de sobriété énergétique, il faudrait commencer par optimiser la consommation de données

2) D'autre part, la manière de travailler avec le DataReader n'est pas bonne: on ne s'amuse pas à alimenter un datatable ligne par ligne comme vous le faites.
On lit une source de données, on assigne le résultat de la requête à un datatable, et puis on spécifie que le datatable résultant sert de datasource au datagridview.

Un exemple à l'arrache: http://vb.net-informations.com/dataa...view-oledb.htm ou bien ici: http://www.java2s.com/Tutorial/VB/04...taGridView.htm

3) Quant au formatage des cellules, il est préférable d'utiliser les événements Paint du datagridview. D'ailleurs je pense que si vous triez les colonnes, votre formatage fout le camp.

4) Faire If Not IO.File.Exists dans une boucle est de nature à ralentir le processus aussi.

Bref, il y a de nombreuses pistes d'amélioration.

[m4k-Hurrican]

Bonjour,

Un bon moyen d'éviter les soucis d'affichage quand il y a beaucoup de données (parfois on a pas le choix), c'est d'utiliser le DoubleBuffering.
Çà évite les saccades, et fluidifie le défilement.
Dire que cette technique date de mon vieil Amiga

[nibblerg]

Bonsoir,

Merci à tout les trois pour vos réponses.
Il va me falloir un peu de temps pour tous essayer !
Mais je viens de tester rapidement le "DoubleBuffering" et j'ai déjà une nette amélioration de fluidité.

Merci beaucoup !

[Pol63]

1) Premièrement, je ne comprends pas pourquoi vous tirez la totalité de la table pour la rapatrier vers le client.
Est-ce que l'utilisateur final a vraiment besoin de consulter l'ensemble des données et scroller ces 15000 rows ??
Il me semble plus rationnel d'utiliser un filtre de recherche, dont le critère peut être le fournisseur par exemple.
Comme ça, vous filtrez les données à la source et allégez les requêtes.

En effet c'est rare d'en avoir besoin, mais dans certains cas, c'est bien de voir un peu toutes les données affichées, puis de scroller un peu, ca donne une idée de ce qu'il y a (sur du log par exemple)
et après on filtre, et les filtres étant en ram c'est instantané et ca permet de travailler un bout de temps sur ses données plutot que de faire 50 aller retour réseau qui au final auront quand même ramené surement beaucoup de données ^^

2) D'autre part, la manière de travailler avec le DataReader n'est pas bonne: on ne s'amuse pas à alimenter un datatable ligne par ligne comme vous le faites.
On lit une source de données, on assigne le résultat de la requête à un datatable, et puis on spécifie que le datatable résultant sert de datasource au datagridview.

Après alimenter un datatable ca fait quand même un while datareader.read
après si tableProduit est un datagridview en effet c'est parfois dommageable de remplir un objet graphique avec des données pendant la lecture (pas toujours, en winforms par exemple c'est souvent rafraichit une seule fois à la fin)

[nibblerg]

J'ai un peu exagéré quand je dit 15000 lignes, car effectivement, je filtre un minimum avec ma requête sql.
Mais je dois quand même charger beaucoup de données dans ma tableProduit, car je fais des calculs.
Et afficher ligne par ligne avec le DataReader me semble plus facile pour personnaliser chaque lignes car je crée une sorte d'arborescence avec des lignes parentes et enfants.
Avec l'autre méthode, si j'ai bien compris, il va falloir que je mets en forme d'abord ma tableProduit pour l'afficher d'un seul coup.
Je vais faire des tests avec un timer pour voir si j'obtiens un gain de temps.

Merci pour tous vos conseils en tous cas !

[Pol63]

c'est selon ce que tu fais sur tes données, mais une base de données sera souvent plus efficace pour traiter tout en bloc (surtout en cas de jointures)

[nibblerg]

Bonjour à tous

J'ai essayé de suivre vos conseils en liant ma table Produit directement à la DataSource et en utilisant les événements Paint du datagridview.
Et effectivement ça parait beaucoup plus simple comme cela.
Cependant, il se passe un truc que je ne comprends pas :
Quand je rajoute certaines lignes de code comme par example la (n°1) la fonction DataGridViewMain_RowPostPaint tourne en boucle, alors que sans cette ligne, elle est parcouru qu'une seule fois par ligne affichée ?
Quand pensez-vous ?

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
 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    EnableDoubleBuffered(DataGridViewMain)
    DataGridViewMain.Columns.Add(col0) : DataGridViewMain.Columns.Add(col1) : DataGridViewMain.Columns.Add(col2) : DataGridViewMain.Columns.Add(col3)
    Lecture_DataBase()
    Affichage_DataGrid()
End Sub
 
Public Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
    Dim dgvType As Type = dgv.[GetType]()
    Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered", BindingFlags.Instance Or BindingFlags.NonPublic)
    pi.SetValue(dgv, True, Nothing)
End Sub
 
Sub Affichage_DataGrid()
    With AA_Main.col0 : .DataPropertyName = "path" : .HeaderText = "Path" : .Name = "path" : .Width = 75 : .Visible = True : .SortMode = DataGridViewColumnSortMode.NotSortable : End With
    With AA_Main.col1 : .DataPropertyName = "type" : .HeaderText = "type" : .Name = "type" : .Width = 20 : .Visible = True : .SortMode = DataGridViewColumnSortMode.NotSortable : End With
    With AA_Main.col2 : .DataPropertyName = "description" : .HeaderText = "Description" : .Name = "Description" : .Width = 250 : .Visible = True : .SortMode = DataGridViewColumnSortMode.NotSortable : End With
    With AA_Main.col3 : .DataPropertyName = "fournisseur" : .HeaderText = "Fournisseur" : .Name = "Fournisseur" : .Width = 100 : .Visible = True : .SortMode = DataGridViewColumnSortMode.NotSortable : End With
 
   DataGridViewMain.AutoGenerateColumns = False
    DataGridViewMain.DataSource = Produit
 
End Sub
 
Private Sub DataGridViewMain_RowPostPaint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewRowPostPaintEventArgs) Handles DataGridViewMain.RowPostPaint
 
    If Produit.Rows.Count - 1 = 0 Then Exit Sub
    If e.RowIndex = -1 Then Exit Sub
 
    Debug.Print("RowPostPaint  : " & e.RowIndex)
 
    If Produit.Rows(e.RowIndex).Item("type") = 0 Then
        DataGridViewMain.Rows(e.RowIndex).DefaultCellStyle.BackColor = Color.FromArgb(235, 220, 110)
        '' DataGridViewMain.Rows(e.RowIndex).Cells("col0").Value = My.Resources.img1 (N°1)
    End If
 
End Sub

[bidou]

Bonjour,

L'évènement RowPostPaint se déclenche après que la ligne soit redessinée, si tu change la couleur de la ligne dans l'évènement il va être redéclenché.