Salut a tous,

je récupère des données sur une table contenant 180000 lignes à l'aide du recordset suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For i = 1 To nblignes - 1
  requete = "SELECT champ_a,champ_b,champ_c,champ_d FROM MERGE_DATA WHERE champ_e='" & tablo(i) & "'"
        rs_article.Open requete, connexion
        If Not rs_article.EOF Then
            rs_article.MoveFirst
            tablo(i) = tablo(i) & "," & rs_article!champ_a
            tablo(i) = tablo(i) & "," & rs_article!champ_b
            tablo(i) = tablo(i) & "," & rs_article!champ_c
            tablo(i) = tablo(i) & "," & rs_article!champ_d
        End If
        DoEvents
        rs_article.Close
    Next
Cependant, en bouclant 10000 fois, il met plus de 20 minutes pour exécuter cette boucle!!!

Quelqu'un sait il si cette portion de code peut etre améliorée?

Merci par avance,