Discussion :

[psyko72]

J’ai une table avec plein d'enregistrements, je commence par faire une connexion à la base et après je lis tout les enregistrements de la table
le problème comme la table est grande ca prend 17 seconde

Voici le code

Code :

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

1
2
3
4
5
6
 
  While reader.Read()
    If Not IsDBNull(reader("no_auteur")) Then item.SubItems(1)  = reader("no_auteur")
    If Not IsDBNull(reader("auteur")) Then item.SubItems(2) = reader("auteur")
    If Not IsDBNull(reader("editeur")) Then item.SubItems(3) = reader("editeur")
 End While

voila y a t il moyen d'aller plus vite !!!

[Pol63]

ca depend de ce que tu fais
17 seconde ca voudrait dire sur un pc récent, environ 80000 lignes sur une cinquantaine de colonnes

si ce n'est pas ton cas c'est qu'il y a moyen d'aller plus vite
qu'est-ce que ton objet item ?
si c'est un objet graphique c'est ca qui ralenti. dans ce cas là cherche sur cet objet une méthode qui commence par begin et qui sert à dire qu'on est entrain de le remplir, qu'il arrete de s'amuser (cas des datagridview et autre listview)
et à la fin du fait endmachin pour dire que c'est fini

tu peux aussi faire ca en asynchrone sur un autre thread si réellement t'as beaucoup de données car dans ca cas là y aura pas moyen d'aller plus vite

[psyko72]

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
 
Try
            Dim item As MSComctlLib.ListItem
            ListAffichage.ListItems.Clear()
            'remplissage de la liste des auteurs
 
            command.Connection = Depart.ConnectionBdNet
            command.CommandText = "SELECT * FROM laut ORDER BY no_auteur"
            reader = command.ExecuteReader()
 
 
 
            temps.Start()
            While reader.Read()
                item = ListAffichage.ListItems.Add
                If Not IsDBNull(reader("no_auteur")) Then item.SubItems(1) = reader("no_auteur")
                If Not IsDBNull(reader("auteur")) Then item.SubItems(2) = reader("auteur")
                If Not IsDBNull(reader("editeur")) Then item.SubItems(3) = reader("editeur")
            End While
            temps.Stop()
            MessageBox.Show("Tps écoulé :" & temps.Elapsed.ToString())
            reader.Close()

c'est en mode debug qui prend 17 secondes
NB : la table a 3000 enregistrements

[agueffier]

D'où vient ce délais ?

Est-ce l'exécution de la requète ou bien lorsque tu parcours l'objet reader ?

Si c'est la requète, l'ajout d'un index peut aider !

[Pol63]

j'arrive à remplir une grille avec 1000 lignes en 0,3s avec un reader ...

qu'est-ce que ce MSComctlLib ? un objet graphique ? si non, alors il n'est pas aproprié !

Est-ce l'exécution de la requète ou bien lorsque tu parcours l'objet reader ?

un executereader meme sur une table géante est rapide, c'est la parcours du reader qui prend du temps

Si c'est la requète, l'ajout d'un index peut aider !

un index sur un select * ne changera rien

[psyko72]

Code :

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

1
2
3
4
5
6
 
temps.Start()
            While reader.Read()
               'lecture et ecriture
            End While
temps.Stop()

c'est la boucle qui prend 17 seconde

[agueffier]

un index sur un select * ne changera rien

Autant pour moi, j'avais pas regarder la requète

[psyko72]

avec le .exe ca prend 0,7 seconde
mais comme je travaille en mode debug c'est long, donc s'il y a possibilité d'aller plus vite en mode debug sinon je prendrais mon mal en patience

Si vous ppouvez me dire aussi pourquoi une telle difference entre le mode debug et avec le.exe 17s >>> 0,7

[Pol63]

ca ne reponds à ma question de quel est l'objet étrange que tu utilises

sinon jete un oeil aux options de compilation et de debug de ton projet y a ptete un truc à modifier pour gagner du temps quand meme

[psyko72]

http://officesystem.access.free.fr/liste_des_ocx.htm

voila pour l'objet

[psyko72]

c'est pas l'objet qui fait retarder, j'ai essayer ce code et ca prend aussi 17s

Code :

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

1
2
3
4
5
6
7
8
 
Dim no_auteur_string As String
 
temps.Start()
            While reader.Read()
                no_auteur_string = reader("no_auteur")
            End While
temps.Stop()

[Pol63]

c'est vraiment étrange quand meme