Discussion :

[Alixe80]

Alors voilà, j'ouvre une nouvelle discussion pour un problème que j'avais déjà cité aupravant mais comme le titre de ma précédente discussion ne correspondait pas à mon problème, je prefère reprendre la conversation ici...

J'ai crée une listview, qui m'affiche très bien les données de ma table ACCESS si elle ne contient pas trop d'enregistrement. Mais lorsque j'essaye de faire la meme chose avec une table qui contient 200.000 enregistrements, ça prend un temps fou, pendant lequel mon pc est bloqué, je ne sais plus rien faire....

Est-ce que qqu'un a déjà rencontré ce problème? Comment améliorer ça?


Voilà mon code pour l'affichage de ma listview:

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
 
Public Sub RemplirListView(MaListview As ListView, Optional NomLigne As String, Optional NomColonne As String)
 
 
    Dim I       As Long
    Dim j       As Long
    Dim Itmx    As ListItem
 
    With MaListview
        .FullRowSelect = True
        .GridLines = False
        .HideSelection = False
        .LabelEdit = lvwManual
        .MultiSelect = False
        .AllowColumnReorder = False
        .ListItems.Clear
        .ColumnHeaders.Clear
        .Visible = False
    End With
 
    If rsADO.Fields.Count > 0 Then
            If MaListview.Tag > 0 Then
                MaListview.ColumnHeaders.Add , , NomLigne & "/" & NomColonne
                I = 1
                MaListview.GridLines = True
            Else
                I = 0
            End If
            For N = I To rsADO.Fields.Count - 1 
                 MaListview.ColumnHeaders.Add , , rsADO.Fields(N).Name
            Next N
 
            If rsADO.RecordCount > 0 Then
                 While Not rsADO.EOF
                    Set Itmx = MaListview.ListItems.Add(, , CStr(rsADO.Fields(0).Value))
                        For j = 1 To rsADO.Fields.Count - 1
                           Itmx.SubItems(j) = IIf(LenB(rsADO.Fields(j).Value) > 0, rsADO.Fields(j).Value, vbNullString)
                           DoEvents
                        Next j
 
                  rsADO.MoveNext
                  Wend
 
                On Error GoTo Err
           End If
    End If
 
MaListview.Visible = True
Exit Sub
Err:
    MsgBox ("Erreur: Impossible de charger les données")
 
End Sub

[ProgElecT]

200.000 enregistrements a mettre dans listview ?
Blizard, blizad
Si tu ne remplis pas tous ton listview avec chaque ligne de ta table, ouvres là avec un Where pour ne recuperer que les enregistrement utiles.

Pour

ça prend un temps fou, pendant lequel mon pc est bloqué

Trois doevents

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
            For N = I To rsADO.Fields.Count - 1
                 DoEvents '<--------------
                 MaListview.ColumnHeaders.Add , , rsADO.Fields(N).Name
            Next N
 
            If rsADO.RecordCount > 0 Then
                 While Not rsADO.EOF
                    DoEvents '<--------------
                    Set Itmx = MaListview.ListItems.Add(, , CStr(rsADO.Fields(0).Value))
                        For j = 1 To rsADO.Fields.Count - 1
                           DoEvents '<--------------
                           Itmx.SubItems(j) = IIf(LenB(rsADO.Fields(j).Value) > 0, rsADO.Fields(j).Value, vbNullString)
                           DoEvents
                        Next j
 
                  rsADO.MoveNext
                  Wend

permetraient de laisser periodiquement la main a d'autre programme, c'est toujours sa de gagné.

[ThierryAIM]

Peut-être bloquer aussi le rafraichissement de la fenêtre :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
                                    (ByVal hWnd As Long, ByVal wMsg As Long, _
                                     ByVal wParam As Long, ByVal lParam As Any) As Long
Public Const WM_SETREDRAW = &HB
 
        SendMessage ListView1.hWnd, WM_SETREDRAW, False, vbNullString    '-- Bloque le rafraichissement de la liste
 
'le traitement ici
 
        SendMessage ListView1.hWnd, WM_SETREDRAW, True, vbNullString    '-- Redessine la liste

Mais je suis comme ProgElecT, 200 000 items dans une listview, hummm...

[Alixe80]

Merci pour vos réponses....
Je changerais bien de contrôle, ce serait p't plus facile :-)
Est-ce que je risque d'avoir le meme problème avec une flexgrid ou pas?
Pcque je n'ai jamais utilisé ça alors si je change tout pour une flexgrid et me retrouve au même point, je v peter un cable

[ProgElecT]

Pas de reponse, mais 2 questions
200 000 items, pas possible de n'en rapatrier moins ?
ça prend un temps fou, en seconde, sa fait a peut pres combien ?

Un Flexgrid ou un MSHFlexgrid est moins graphique il peuvent être alimentés directement par un RecordSource (pas de code a ecrire pour les remplire, donc plus direct), donc il est possible que le chargement soit un peu moins long.

[Alixe80]

Et bien, j'ai justement fait le calcul avec un collègue, ça a pris 1min30 (90 secondes, quoi (pour répondre précisement à ta question )
Quand on attend derrière que qque chose se passe, c'est trèèèès long... surtout que, ok c'est affiché mais une fois que je descens la scrollbar, pour voir la suite, c'est lent...

Oui, je pourrais éventuellement n'afficher que les 100 premieres lignes par exemple et créer des boutons suivant et précédent, mais bon, je préfère une autre solution parce que par la suite, je donne une option d'exporter les données de la listviex vers excell...