[..] Optimiser remplissage ListView (Requête SQLite)

[Hugues]

Bonjour,

J'aimerai optimer le chargement de ma ListView suite à une requête SQLite.

En effet, le temps de remplissage de maListView est long (environ 1000 lignes...).

Je sais d'où viens la lenteur de remplissage (je remplis ma ListView ligne par ligne)

► Afficher le texte

Code : Tout sélectionner

Local $hQuery, $aRow
    _SQLite_Query(-1, "SELECT * FROM " & $Table & " WHERE Stock = '0';", $hQuery)

    Local $t = 0

    While(_SQLite_FetchData($hQuery, $aRow) = $SQLITE_OK)
        GUICtrlCreateListViewItem($aRow[0] & "|" & $aRow[1] & "|" & $aRow[2] & "|" & $aRow[3] & "|" & $aRow[4] & "|" & $aRow[5] & "|" & $aRow[6] & "|" & $aRow[7] & "|" & $aRow[8] & "|" & $aRow[9], $hListView)
        $t += 1
        If Mod($t, 2) = 0 Then
            GUICtrlSetBkColor(-1, 0xdddddd)
        Else
            GUICtrlSetBkColor(-1, 0xabcdef)
        EndIf
        If $aRow[6] = "0" Then GUICtrlSetColor(-1, 0xff0000)
    WEnd

Merci

[scorp84]

Bonjour,

Regarde peut être du côté de _GUICtrlListView_AddArray()

Amicalement.

BM

[Hugues]

Bonjour,

Merci, j'y ai pensé aussi mais je galère...

Ce qui me ralenti aussi c'est l'alternance des couleurs des lignes de la Listview.

Il faudrait que j'utilise la fonction _SQLite_GetTable2d(), mais quand je fais un _GuiCtrlListView_AddArray(), ca me met le nom des champs, chose que je ne veux pas...

Donc je tourne en rond et ça commence à me gonfler...

EDIT:
Bon y'a un peu du mieux... j'arrive à supprimer la première ligne en retravaillant le tableau, ce qui nous donne:

► Afficher le texte

Code : Tout sélectionner

Func _SearchStockNul()

    _GUICtrlListView_DeleteAllItems($hListView)

    Local $hQuery, $aRow, $aResult, $iRows, $iColumns
    _SQLite_Query(-1, "SELECT * FROM " & $Table & " WHERE Stock = '0';", $hQuery)

    Local $t = 0

    _SQLite_QuerySingleRow(-1, "SELECT Count(*) FROM " & $Table & " WHERE Stock = '0';", $aRow)


    If $aRow[0] > 1 Then
        GUICtrlSetData($lAffichageQte, $aRow[0] & " matériels avec stock à 0.")
    Else
        GUICtrlSetData($lAffichageQte, $aRow[0] & " matériel avec stock à 0.")
    EndIf
    Dim $TempArray[$aRow[0]][9]
    
    $iRval = _SQLite_GetTable2d(-1, "SELECT * FROM " & $Table & " WHERE Stock = '0';", $aResult, $iRows, $iColumns)
    If $iRval = $SQLITE_OK Then
        For $r = 1 To $aRow[0];de 1  à 46 ici
            For $c = 0 To 8
                $TempArray[$r-1][$c] = $aResult[$r][$c]
            Next
        Next
    EndIf
_GUICtrlListView_AddArray($hListView, $TempArray)

EndFunc

Maintenant, il faut que j'alterne les couleurs...

[scorp84]

Essaye peut être ça :

Code : Tout sélectionner

GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE)

Cela vient de ce post :
http://www.autoitscript.com/forum/topic ... /?p=699993

Amicalement.

BM

[mikell]

Du calme

Code : Tout sélectionner

Local $array, $iRows, $iColumns
_SQLite_GetTable2d (-1, "SELECT * FROM table WHERE Stock = '0';", $array, $iRows, $iColumns)
; _ArrayDisplay($array)

For $i = 1 to UBound($array)-1
    GUICtrlCreateListViewItem($array[$i][0] & "|" & $array[$i][1] & ....etc, $listview)
Next

Et pour la couleur alternée il me semble avoir évoqué dans un autre post $GUI_BKCOLOR_LV_ALTERNATE, non ?

[Hugues]

J'ai des problèmes avec

Code : Tout sélectionner

GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE)

lol

A la création de mon GUI, il y a bien alternance de couleur et quand je lance ma requête et rempli cette même ListView il n'y a plus d'alternance...

[scorp84]

Peux-tu nous envoyer ton nouveau code car sans cela va être difficile de t'aider.

Amicalement.

BM

[Hugues]

Voici le code lorsque je charge ma base SQLite dans ma ListView au demarrage, la ListView est créé dans une autre fonction...

► Afficher le texte

Code : Tout sélectionner

Func _LoadSQLiteData()

    _GUICtrlListView_DeleteAllItems($hListView)

    Local $hQuery, $aRow, $sMsg, $iRows, $iCols, $aRow2, $aRow3, $nb_lignesTo0, $nb_lignes

    If @error > 0 Then Exit MsgBox(16, "SQLite Error", "SQLite.dll Can't be Loaded!")
    _SQLite_Open($DB)
    If @error > 0 Then Exit MsgBox(16, "SQLite Error", "Can't Load Database!")

    _SQLite_Query(-1, "SELECT * FROM " & $Table, $hQuery)
    Local $t = 0
    While (_SQLite_FetchData ($hQuery, $aRow) = $SQLITE_OK)
        GUICtrlCreateListViewItem($aRow[0] & "|" & $aRow[1] & "|" & $aRow[2] & "|" & $aRow[3] & "|" & $aRow[4] & "|" & $aRow[5] & "|" & $aRow[6] & "|" & $aRow[7] & "|" & $aRow[8] & "|" & $aRow[9], $hListView)
        $t += 1
        If Mod($t, 2) = 0 Then
            GUICtrlSetBkColor(-1, 0xdddddd)
        Else
            GUICtrlSetBkColor(-1, 0xabcdef)
        EndIf
        If $aRow[6] = "0" Then
            GUICtrlSetColor(-1, 0xff0000)
        EndIf
    WEnd

    ;On récupère la quantité de la base SQLite
    _SQLite_QuerySingleRow(-1, "SELECT Count(*) FROM " & $Table & " WHERE Stock = '0';", $aRow3) ; the query
    $nb_lignesTo0 = $aRow3[0]

    ;Nombre de ligne(s) contenue(s) dans la base SQLite
    _SQLite_QuerySingleRow(-1, "SELECT Count(*) FROM " & $Table , $aRow)
    $nb_lignes = $aRow[0]

    If $nb_lignes > 1 Then
        GUICtrlSetData($lAffichageQte, $nb_lignes & " enregistrements, dont " & $nb_lignesTo0 & " stock à 0.")
    Else
        GUICtrlSetData($lAffichageQte, $nb_lignes & " enregistrement.")
    EndIf


EndFunc

Et voici le code quand je fais une recherche SQL:

► Afficher le texte

Code : Tout sélectionner

Func _SearchStockNul()

    _GUICtrlListView_DeleteAllItems($hListView)
    GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE)

    Local $hQuery, $aRow, $aResult, $iRows, $iColumns
    _SQLite_Query(-1, "SELECT * FROM " & $Table & " WHERE Stock = '0';", $hQuery)

    Local $t = 0

    _SQLite_QuerySingleRow(-1, "SELECT Count(*) FROM " & $Table & " WHERE Stock = '0';", $aRow)

    If $aRow[0] > 1 Then
        GUICtrlSetData($lAffichageQte, $aRow[0] & " matériels avec stock à 0.")
    Else
        GUICtrlSetData($lAffichageQte, $aRow[0] & " matériel avec stock à 0.")
    EndIf
    Dim $TempArray[$aRow[0]][9]

    $iRval = _SQLite_GetTable2d(-1, "SELECT * FROM " & $Table & " WHERE Stock = '0';", $aResult, $iRows, $iColumns)
    If $iRval = $SQLITE_OK Then
        For $r = 1 To $aRow[0]
            For $c = 0 To 8
                $TempArray[$r-1][$c] = $aResult[$r][$c]
            Next
        Next
    EndIf

_GUICtrlListView_AddArray($hListView, $TempArray)

EndFunc

PS, je sais c'est le bordel!!!

[scorp84]

Je dirai à première vue que ton GUICtrlSetBkColor(-1, $GUI_BKCOLOR_LV_ALTERNATE) est mal placé.

Je le mettrai juste après le GUICtrlCreateListView.

Amicalement.

BM

[Hugues]

J'ai fais, mais ca fait rien....

[scorp84]

Envoie nous la partie de code où tu génères ton Listview.

Amicalement.

BM

[Hugues]

Voici la partie qui génère mon GUI:

► Afficher le texte

Code : Tout sélectionner

_MainGui()

Func _MainGui()

;==[Création du GUI]===============================================================================================
    $GUI =  GUICreate("", 1200, 800, -1, -1, -1, -1)
   ;J'ai supprimé le reste....

    $ligne1 = ""

    For $i = 0 to UBound($names)-1    ; nb de colonnes
        $ligne1 &= $names[$i] & "|"
    Next

    ;==[Création de ma ListView]==========
    $hListView = GUICtrlCreateListView($ligne1, 0, 250, 1200, 500, BitOR($LVS_SHOWSELALWAYS, $LVS_REPORT))

    _GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT, $LVS_EX_SUBITEMIMAGES))
    GUICtrlSetFont($hListView, -1, 400)
    _GUICtrlListView_DeleteAllItems($hListView)
    _GUICtrlListView_HideColumn($hListView, 0)
    
   ;Je charge les données de ma table SQL
    _LoadSQLiteData()

  

    GUISetState(@SW_SHOW)

    

While 1
    $Msg = GUIGetMsg()
    Select
        Case $Msg = $GUI_EVENT_CLOSE
            _SQLite_Close()
            _SQLite_Shutdown()
            Exit

        Case $Msg = $bNewEntry
            _PopUp()

        Case $Msg = $bModify
            _ModifyEntryDB()

        Case $Msg = $bValiderRetrait
            If GUICtrlRead($Input1) = "" Then GUICtrlSetData($Input1, 1)
            _ModifyQuantityStock()

        Case $Msg = $bRechercher
            GUICtrlSetData($lAffichageQte, "Chargement en cours...")
            _Search()

        Case $Msg = $bSearchStock0
            GUICtrlSetData($lAffichageQte, "Chargement en cours...")
            _SearchStockNul()

        Case $Msg = $bReload
            GUICtrlSetData($lAffichageQte, "Chargement en cours...")
            _LoadSQLiteData()

        Case $Msg = $bImprimer
            _Imprimer()

        Case $Msg = $bLikeSearch
            GUICtrlSetData($lAffichageQte, "Chargement en cours...")
            _LikeSearch()

        Case $Msg = $iCheckbox
            If _IsChecked($iCheckbox) Then
                $FullScreen = True
                GUIDelete($GUI)
                _MainGui()
            Else
                $FullScreen = False
                GUIDelete($GUI)
                _MainGui()
            EndIf

    EndSelect
WEnd

EndFunc
 

Après ce qui est bizarre, c'est que si je laisse le code qui est long pour afficher la ListView, si je minimise le GUI puis le Maximise, l'affichage est quasi instantané...

[Hugues]

Bonjour,

C'est encore moi. Du coup, j'ai retravaillé mes requêtes.

Cela donne ça:

► Afficher le texte

Code : Tout sélectionner

Func _LoadSQLiteData()

    _GUICtrlListView_DeleteAllItems($hListView)

    Local $hQuery, $aRow, $sMsg, $iRows, $iCols, $aRow2, $aRow3, $nb_lignesTo0, $nb_lignes, $aResult, $iColumns

    If @error > 0 Then Exit MsgBox(16, "SQLite Error", "SQLite.dll Can't be Loaded!")
    _SQLite_Open($DB)
    If @error > 0 Then Exit MsgBox(16, "SQLite Error", "Can't Load Database!")

    $iRval = _SQLite_GetTable2d(-1, "SELECT * FROM " & $Table & ";", $aResult, $iRows, $iColumns) ;$iRows -> Nombre de lignes

    If $iRval = $SQLITE_OK Then
        Dim $TempArray[$iRows][10]

        For $r = 1 To $iRows
            For $c = 0 To 9
                $TempArray[$r-1][$c] = $aResult[$r][$c]
            Next
        Next
        EndIf

    _GUICtrlListView_AddArray($hListView, $TempArray)

    ;On récupère la quantité de la base SQLite
    _SQLite_QuerySingleRow(-1, "SELECT Count(*) FROM " & $Table & " WHERE Stock = '0';", $aRow3) ; the query
    $nb_lignesTo0 = $aRow3[0]

    ;Nombre de ligne(s) contenue(s) dans la base SQLite
    _SQLite_QuerySingleRow(-1, "SELECT Count(*) FROM " & $Table , $aRow)
    $nb_lignes = $aRow[0]

    If $nb_lignes > 1 Then
        GUICtrlSetData($lAffichageQte, $nb_lignes & " enregistrements, dont " & $nb_lignesTo0 & " stock à 0.")
    Else
        GUICtrlSetData($lAffichageQte, $nb_lignes & " enregistrement.")
    EndIf

EndFunc
 

Je passe par la fonction _SQLite_GetTable2d() pour récuperer les valeurs désirées, ensuite je retravaille le tableau de celle-ci pour ne pas avoir le nom des colonnes, puis je fais un _GUICtrlListView_AddArray().

Tout est OK, mais pour l'alternance des couleurs, je suis bloqué... je ne sais pas s'il faut utiliser WM_NOTIFY, un refresh de la ListView...

J'ai essayé plein de chose mais que néni...

[Hugues]

Bon j'ai presque reussi!!!

J'utilise ça, il faut que je le finalise...

Juste une question:

Au chargement, il ne modifie rien mais àprès requete oui... comment le faire à l'ouverture?

► Afficher le texte

Code : Tout sélectionner

#Include <GuiConstantsEx.au3>
#Include <GuiListView.au3>
#include <WindowsConstants.au3>


;fonts for custom draw example
;bold
Global $aFont1 = DLLCall("gdi32.dll","int","CreateFont", "int", 14, "int", 0, "int", 0, "int", 0, "int", 700, _
                        "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, _
                        "dword", 0, "str", "")
;italic
Global $aFont2 = DLLCall("gdi32.dll","int","CreateFont", "int", 14, "int", 0, "int", 0, "int", 0, "int", 400, _
                        "dword", 1, "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, "dword", 0, _
                        "dword", 0, "str", "")
                        


$GUI = GUICreate("Listview Custom Draw", 400, 300)

$cListView = GUICtrlCreateListView("", 2, 2, 394, 268)
$hListView = GUICtrlGetHandle($cListView)
;or
;~ $hListView = _GUICtrlListView_Create($GUI, "", 2, 2, 394, 268)

_GUICtrlListView_SetExtendedListViewStyle($hListView, BitOR($LVS_EX_GRIDLINES, $LVS_EX_FULLROWSELECT))

_GUICtrlListView_InsertColumn($hListView, 0, "Column 1", 100)
_GUICtrlListView_InsertColumn($hListView, 1, "Column 2", 100)
_GUICtrlListView_InsertColumn($hListView, 2, "Column 3", 100)

; Add items
For $i = 1 To 30
    _GUICtrlListView_AddItem($hListView, "Row" & $i & ": Col 1", $i-1)
    For $j = 1 To 2
        _GUICtrlListView_AddSubItem ($hListView, $i-1, "Row" & $i & ": Col " & $j+1, $j)
    Next
Next

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
GUISetState()

Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
DLLCall("gdi32.dll","int","DeleteObject", "hwnd", $aFont1[0])
DLLCall("gdi32.dll","int","DeleteObject", "hwnd", $aFont2[0])
Exit

Func WM_NOTIFY($hWnd, $Msg, $wParam, $lParam)
    Local $hWndFrom, $iIDFrom, $iCode, $tNMHDR

    $tNMHDR = DllStructCreate($tagNMHDR, $lParam)
    $hWndFrom = HWnd(DllStructGetData($tNMHDR, "hWndFrom"))
    $iIDFrom = DllStructGetData($tNMHDR, "IDFrom")
    $iCode = DllStructGetData($tNMHDR, "Code")
    Switch $hWndFrom
        Case $hListView
            Switch $iCode
                Case $NM_CUSTOMDRAW
                    If Not _GUICtrlListView_GetViewDetails($hWndFrom) Then Return $GUI_RUNDEFMSG
                     Local $tCustDraw = DllStructCreate('hwnd hwndFrom;int idFrom;int code;' & _
                                        'dword DrawStage;hwnd hdc;long rect[4];dword ItemSpec;int ItemState;dword Itemlparam;' & _
                                        'dword clrText;dword clrTextBk;int SubItem;' & _
                                        'dword ItemType;dword clrFace;int IconEffect;int IconPhase;int PartID;int StateID;long rectText[4];int Align', _ ;winxp or later
                                        $lParam), $iDrawStage, $iItem, $iSubitem, $hDC, $iColor1, $iColor2, $iColor3
                    $iDrawStage = DllStructGetData($tCustDraw, 'DrawStage')
                    If $iDrawStage = $CDDS_PREPAINT Then Return $CDRF_NOTIFYITEMDRAW ;request custom drawing of items
                    If $iDrawStage = $CDDS_ITEMPREPAINT Then Return $CDRF_NOTIFYSUBITEMDRAW ;request drawing each cell separately
                    If Not BitAND($iDrawStage, $CDDS_SUBITEM) Then Return $CDRF_DODEFAULT
                    $iItem = DllStructGetData($tCustDraw, 'ItemSpec')
                    $iSubitem = DllStructGetData($tCustDraw, 'SubItem')
                    Switch $iItem
                        Case 0 To 9 ;for rows 1-10 lets do this
                            $iColor1 = RGB2BGR(0xFBFFD8)
                            $iColor2 = RGB2BGR(-1)
                            $iColor3 = RGB2BGR(0xFF0000)
                            If Mod($iSubitem, 2) Then ;odd columns
                                DllStructSetData($tCustDraw, 'clrTextBk', $iColor1)
                                DllStructSetData($tCustDraw, 'clrText', 0)
                            Else ;even columns
                                DllStructSetData($tCustDraw, 'clrTextBk', $iColor2)
                                DllStructSetData($tCustDraw, 'clrText', $iColor3)
                            EndIf
                        Case 10 To 19 ;for rows 11-20 lets do this
                            $iColor1 = RGB2BGR(0xFBFFD8)
                            $iColor2 = RGB2BGR(0x3DF8FF)
                            $hDC = DllStructGetData($tCustDraw, 'hdc')
                            If Mod($iItem, 2) Then
                                If Mod($iSubitem, 2) Then
                                    DllStructSetData($tCustDraw, 'clrTextBk', $iColor1)
                                Else
                                    DllStructSetData($tCustDraw, 'clrTextBk', $iColor2)
                                EndIf
                                DLLCall("gdi32.dll","hwnd","SelectObject", "hwnd", $hDC, "hwnd", $aFont1[0]) ;select our chosen font into DC
                            Else
                                If Mod($iSubitem, 2) Then
                                    DllStructSetData($tCustDraw, 'clrTextBk', $iColor2)
                                Else
                                    DllStructSetData($tCustDraw, 'clrTextBk', $iColor1)
                                EndIf
                                DLLCall("gdi32.dll","hwnd","SelectObject", "hwnd", $hDC, "hwnd", $aFont2[0])
                            EndIf
                        Case 20 To 29 ;for rows 21-30 lets do this
                            $iColor1 = RGB2BGR(0xFBFFD8)
                            $iColor2 = RGB2BGR(-1)
                            If Mod($iItem, 2) Then ;odd rows
                                DllStructSetData($tCustDraw, 'clrTextBk', $iColor2)
                            Else
                                DllStructSetData($tCustDraw, 'clrTextBk', $iColor1)
                            EndIf                     
                    EndSwitch
                    Return $CDRF_NEWFONT
            EndSwitch
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_NOTIFY

Func RGB2BGR($iColor)
    Return BitAND(BitShift(String(Binary($iColor)), 8), 0xFFFFFF)
EndFunc
 

[Hugues]

Méthode sauvage mais qui fonctionne, je lance ma fonction après la déclaration de WM_NOTIFY...

Code : Tout sélectionner

GUIRegisterMsg($WM_NOTIFY, "WM_NOTIFY")
    _LoadSQLiteData()

[jguinch]

Il n'y a rien de sauvage...
GUIRegisterMsg peut être lancé avant la création de la GUI.

[TommyDDR]

Désolé, j'arrive peut être un peu tard...

Si vous avez beaucoup de lignes à modifier d'un coup dans une listeview mettez juste avant la modification :

Code : Tout sélectionner

_GUICtrlListView_BeginUpdate($hListView)

et juste apres :

Code : Tout sélectionner

_GUICtrlListView_EndUpdate($hListView)

Cela empêchera la fenêtre de se redessiner pendant le changement des données.

[Hugues]

lol, tout le monde arrive un fois que la bataille est finie MDR

C'est pas grave, ça m'a forcé à chercher dans les divers forum et à modifier des bouts de code...

Merci quand même!

Je passe pas encore le sujet en résolu pour le moment car i'll be back...

[scorp84]

lol, tout le monde arrive une fois que la bataille est finie MDR

Sympa pour les premiers lol

Amicalement.

BM

[Hugues]

Bah je voulais pas dire ça dans ce sens