tri numériques dans une requète

Question

bonjour
j'envoi des données dans une requète ACCESS,
et je voudais faire un tri numérique dans cette requète
voila un exemple qui est dans ma requète :
a=6
b=2
c=3
d=7
et voila se que je voudrais si c'est faisable 
d=7
a=6
c=3
d=2
en fait les chiffres ne sont que des exemples,car ils evoluront
au fur et mesure.
mais c'est surtout le tri qui m'intéresse
merci
@ plus
petchy

Fianchetto · Answer

si le champs qui t'interesse est "MonChampNumérique", alors dans ta requete il te faudra mettre à la fin : 
SELECT ...
FROM ...
WHERE ...
ORDER BY "MonChampNumérique" DESC.

D'ailleurs j'imagine que le sujet sera mieux sur sql.fr .

cs_JMO · Answer

Bonsoir à tous,

J'utilise un dictionary, mais on peut aussi utiliser un array, pour passer les variables.

Dim oDico, k   
Set oDico = CreateObject("Scripting.Dictionary")
oDico.Add k, "a=6" :  k = k + 1
oDico.Add k, "b=2" :  k = k + 1
oDico.Add k, "c=3" :  k = k + 1
oDico.Add k, "d=7" :  k = k + 1



bpermute = True               'Il faut au moins parcourir une fois
Do While bpermute = True      'On tourne tant que l'on bouge des valeurs                  
   bpermute = False           
   For i = oDico.Count To 1 Step -1 
       If Len(oDico(i)) > 1 Then
          For j = 0 To i - 1 
              If Len(oDico(j)) > 1 Then
                 If Split(oDico(j), "=")(1) > Split(oDico(j + 1), "=")(1) Then 
                    cprovisoire = oDico(j)        'On inverse les deux chaines 
                    oDico(j) = oDico(j + 1)       'bis 
                    oDico(j + 1) = cprovisoire    'bis 
                    bpermute = True 
                 End If
              End If 
          Next 
       End If 
   Next  
Loop
 
Dim liste
For i = 0 To oDico.Count
    If Len(oDico(i)) > 1 Then liste = oDico(i) &vbCrLf& liste
Next 
MsgBox liste



jean-marc

Tri numériques dans une requète

2 réponses

Votre réponse

Discussions similaires