Tri de données dans un tableau [Trucs & Astuces]

[GESCOM2000]

je ne connait pas trop les fonction pour faire un tableau

J'ai 2 tables TABLE1 et TABLE2 avec 1 champs C1

j'ouvre mon recorset sur la table TABLE1 et je recupere tout les champs C1 dans un tableau et la je veux trier les valeur dans mon tableau pour les ecrire dans une autre table TABLE2

Code :

1
2
3
4
5
6
7
8
9
10
11
12
Set dB = DBEngine(0)(0)
Set rs = dB.OpenRecordset("SELECT blablabla...")
rs.MoveFirst
While Not rs.EOF
 
    If rs!C1 = DVALEUR1 Then
    ' La je fait un tableau (ne sait pas faire..)
 
End If
    rs.MoveNext
Wend
Rs.close

'puis avec les valeur de mon tableau trie je les balance dans le table2....

[Pierre Fauconnier]

Bonjour

Le plus simple est de trier dans ta requête

Code :

select c1 from MaTable ORDER BY c1

Si tu passes par le tableau pour uniquement retrier, oublies ton tableau et travailles directement avec les recordsets.

Ok?

Pierre Fauconnier

[Tofalu]

Le mieux, vraiment le mieux de par sa performance :

Etape1 : Créer une requête comme indiqué avec la clause ORDER BY. Nommer cette requete par exemple R01

Etape2 : Dans le code VBA, instancier un objet QueryDef correspond à la requête

Code :

1
2
3
4
Dim oDb as DAO.Database
Dim oQdf as DAO.QueryDef
Set oDb=CurrentDb
Set oQdf=oDb.QueryDefs("R01")

Etape3 : Ouvrir un recordset sur l'objet QueryDef

Code :

1
2
Dim oRst as DAO.RecordSet
Set oRst=oQdf.OpenRecordSet

Etape4 : Utiliser la methode GetRows pour récuperer le tableau correspondant. Cf le tutoriel http://warin.developpez.com/access/dao/?page=partie_5#L5.5

De cette manière tu auras la code le plus performant possible.

Deux questions surviennent alors

Pourquoi utiliser un objet QueryDef et non pas directement du SQL dans le VBA ?

Tout simplement parce que les objets QueryDef profite de l'effet Rushmore, et tirent un maximum parti des champs indexés (donc gain de temps sur les tris)

Pourquoi la méthode GetRows ?

Parce qu'elle est faite pour cela et là encore, elle est optimisée.

[GESCOM2000]

Merci Tofalu,
Bon j'ai lu et pas tout pigé le GETROWS (y as des jour comme ça...)

Donc j'ai fait une bidouille à 2 balles (c'est lourd mais ça marche...)

Code :

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
34
35
36
37
38
Dim dB As Database
Dim rs As Recordset
Dim TABLEAU(1 To 10) As Variant
Dim COMPTE As Variant
Dim I As Integer
Dim II As Integer
Dim III As Integer
 
I = 0
II = 0
 
Set dB = DBEngine(0)(0)
Set rs = dB.OpenRecordset("SELECT TABLE_1.VALEUR_1, TABLE_1.VALEUR_2 FROM TABLE_1 ORDER BY TABLE_1.VALEUR_1;")
 
rs.MoveFirst
 
While Not rs.EOF
    I = I + 1
 
    If rs!VALEUR_1 = ME.LST_1 Then
    II = II + 1
    TABLEAU(I) = rs!VALEUR2
    End If
 
    rs.MoveNext
Wend
rs.Close
 
III = 0
II = II + 1
COMPTE = 0
 
For III = II To I
	COMPTE = COMPTE + TABLEAU(III)
Next
 
II = II - 1
ME.TXT_1.Caption = Round(COMPTE / II, 2)

J'aimerais quand même pas mourir bête, et comprendre la fonction GETROWS avec ma bidouille.....

[Tofalu]

Attends, j'ai détaillé completement la marche à suivre notamment :

CurrentDb
QueryDef

Tu n'en tiens pas du tout compte. Je me demande vraiment à quoi cela serve qu'on passe notre temps à la rédaction de ressources

Quant aux déclarations des variables et autres ... c'est le genre de code qui est immaintenable...

[GESCOM2000]

désoler, tu as raison j'ai pas tout lu et c'est vraiment bien expliquer dans
Cf le tutoriel....
Un peu fatiguer ce week-end
Merci

[branqueira]

Moi j'ai suivi tes conseils et ca marche nickel

merci tofalu
en plus c'est super bien expliqué