Discussion :

[fikou]

Bonjour,

Je suis sous VB6 avec une base Access

Voici ma requête :

Code :

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

1
2
3
4
5
6
sSQL = ""
sSQL = sSQL & "SELECT " & GrilleCibleArt
sSQL = sSQL & "FROM  Tireurs T, CibleArt A "
sSQL = sSQL & "WHERE T.T_IdTireur = A.CA_IdTireur AND A.CA_Distance = '" & sDistance & "'" & " "
sSQL = sSQL & "ORDER BY A.CA_Total DESC, A.CA_Cp1 DESC, A.CA_Cp2 DESC, A.CA_CP3 DESC, A.CA_Cp4 DESC, A.CA_Cp5 DESC, " & _
T_Categorie ASC, T.T_DateNaiss ASC"

J'aimerai si c'est possible mettre une condition dans la close OPRDER BY, du genre :

Si T_Categorie = 1 ou 2 alors TDateNaiss DESC et si T_Categorie = 3 ou 4 ou 5 alors T_DateNaiss ASC

Si oui comment ??

Merci d'avance
Fikou

[rstephane]

Ca doit donner ça:

Code :

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

1
2
3
4
5
If T_Categorie = 1 Or T_Categorie = 2 Then
    sSQL = sSQL & "ORDER BY TDateNaiss DESC"
Else
    sSQL = sSQL & "ORDER BY TDateNaiss DESC"
End If

[fikou]

Salut et merci rstephane

En fait la condition doit être dans la clause ORDER BY de la requête.

Se sont les résultat d'un concour, en cas d'égalité je dois trier d'abord les plus jeunes (adolescents, junior), les plus vieux et en dernier l'élite.

Les plus jeunes = DESC les plus vieux ASC

Je doit mettre le test dans la requete et pas à la construction de cette dernière

Fikou

[Médiat]

Essaye :

Code :

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

1
2
3
4
5
6
7
SELECT *
FROM laTable
ORDER BY Categorie, 
         CASE WHEN Categorie = 1 
              THEN DateNaissance - current_date
              ELSE current_date - DateNaissance
         END

current_date est la fonction standard qui renvoie la date du jour.

[fikou]

Merci Médiat

J'ai testé :

Code :

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

1
2
3
 
sSQL = sSQL & "ORDER BY T.T_Categorie, CASE WHEN T.T_Categorie = 1 THEN T.T_DateNaiss - CURRENT_DATE ELSE: CURRENT_DATE - T.TDateMaiss END
"

Il me dit : la méthode open de l'objet à échoué

J'ai aussi simplifié :

Code :

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

sSQL = sSQL & "order by t.t_datenaiss - current_date"

Idem

Fikou

[Médiat]

Est-ce que current_date est dispo avec access ?