Discussion :

[Tankian]

Bonjour,

Je dois initialiser une combox à partir des enregistrements contenuent dans une table (80 000 enregistrements :/ ) . Mon code fonctionne mais alors c'est HYPER long a charger, sachant que j'appel souvent le procédure pour remplir ces listes box, j'aimerais avoir vottre avis sur mon code (optimiser la rapdité de traitement) ou alors si vous connaissez une ptite astuce pour charger cette box le plus vite possible..

Merci,

MA sub :

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
 
 
Public Sub InitCmbPiece(Frm As Form)
 
        Call OpenCnx
        cmd.ActiveConnection = cnx
        rs.CursorLocation = adUseClient
        rs.CursorType = adOpenForwardOnly
        rs.LockType = adLockOptimistic
 
        sql = "Select * "
        sql = sql & "From T_PIECE "
        sql = sql & "ORDER BY idPiece"
 
        cmd.CommandText = sql
        rs.Open cmd
 
        If rs.RecordCount <> 0 Then
            rs.MoveFirst
            Frm.cmbPiece.Clear
            'Boucle qui remplit
            While Not rs.EOF
                Frm.cmbPiece.AddItem rs.Fields!idPiece
                rs.MoveNext
            Wend
 
        End If
 
        rs.Close
        Set cmd = Nothing
        Set cnx = Nothing
 
        Call CloseCnx

[YOYOVbSQL]

Bonjour,

Une combo avec 80 000 enregistrements ça doit ramer au niveau interface.ç a c sur.

mais bon.

Si tu veux optimiser créer toi un objet Global ComboBox dans un module
Que tu remplit une fois


et ensuite tu fais : SET TaCbo = VgCboGlobal
et voilà tu la chargeras pas plusieurs fois.

Mais sinon trouve une autre solution pour ta combo c'est beaucoup trop..

Bon courage.

[Tankian]

Merci pour ton aide, disons qu'il est impératif de pouvoir présenter toutes les informations de cette table, donc Listbox, cmbbox ...
Aurais tu un ex de code pour le global combobox, je ne connais pas ...

Merci

[Babyneedle]

Je te conseille de faire une collection d'objets.

Classe Piece
PieceID
Nom
Prix

Classe ColPieces
(collection de classes Piece)

Au lieu de remplir le combobox dans ton loop, a chaque iteration tu intancies un nouvel objet Piece, tu le remplis et tu le mets dans la collection.

Une fois la collection remplie, tu peux travailler avec les informations en memoire, ce qui est autrement plus rapide.

Pour ce qui est des combobox, ca n'est pas un bon choix. Je te conseille plutot un combobox avec intellisense.

Genre, tu veux avoir la piece "Moteur", le combobox est vide, tu tapes la lettre "M" et ca lance une fonction qui recherche tous les noms de pieces dans la collection colPieces qui commencent par la lettre "M" et alors tu remplis le combobox. Ca devrait etre 100 fois plus vite.

[Tankian]

Super idée pour tes solutions ! N'ayant pas l'habitude d'utiliser les classes en VB je n'avais pas pensé a utiliser cette méthode qui sera autrement plus rapide !

De plus j'ai discuté avec une des personnes qui utilisera le programme et j'avais pensé créer une textbox et une combobox avec intellisense.

Merci pour votre aide à tous les deux