Lecture de table avec plein d'enregistrements

Version imprimable

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:

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 !!!

29/08/2007, 09h22
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

Code:

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

29/08/2007, 09h59
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 !
29/08/2007, 10h00
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é !

Citation:

Envoyé par agueffier

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

Citation:

Envoyé par agueffier

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

un index sur un select * ne changera rien

Code:

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

29/08/2007, 10h07
agueffier

Citation:

Envoyé par sperot51

un index sur un select * ne changera rien

Autant pour moi, j'avais pas regarder la requète :oops:
29/08/2007, 10h11
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
29/08/2007, 10h15
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
29/08/2007, 10h17
psyko72

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

voila pour l'objet

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

Code:

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()

29/08/2007, 10h36
Pol63

c'est vraiment étrange quand meme 8O