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 ?

[fikou]

Bonne question !!!

Je ne sais pas ou chercher la réponse mais je cherche

Fikou

[fikou]

J'ai trouvé pour Current_Date à marche pô pour access

http://sql.developpez.com/sqlaz/fonctions/

Fikou

[Médiat]

Et tu as essayé NOW ?

[fikou]

Bonjour

J'ai essayé ça :

Code :

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

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

J'ai l'erreur : Type de donnée incompatible dans l'expression du critère
toutes mes dates sont au format "yyyy-mm-dd"
Fikou

[Médiat]

Cherche dans la doc ACCESS comment on fait une différence de DATE, et comment on utilise NOW (est-ce qu'il faut mettre NOW() ? )

[fikou]

Re,

Je sèche, J'ai tout essayé

Effectivement dans un tuto il est dit de ne pas urilisé NOW() mais DATE()

Code :

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

1
2
ssql = ssql & "order by t.t_datenaiss - DATE()"
ssql = ssql & "order by t.t_datenaiss - '#" & Format(Date, "mm.dd.yyyy") & "#"

ect.
J'ai une erreur de syntaxe

j'ai essayé de récuperer la date du sys dans une variable et de l'implémenter dans ma requête, rien de rien


Ca me gonfle je vais prendre l'air avec le chien, cela ira mieux au retour enfin j'espère

Fikou

[fikou]

Bonjour,

Si je fais un truc du genre :

Code :

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

1
2
aChaine = "ASC"
"ORDER BY T.T_Categorie " & aChaine

Cela fonctionne
Il faudrai que je mette un test CASE WHEN dans la requete pour implementer ma variable. Mais je ne sais pas ou le mettre ce test SELECT ? WHERE ? ni comment.

J'ai essayé mais a marche pô

Fikou

[estelledany]

Salut,
J'ai peut-être pas compris mais si tu veux faire une différence entre deux dates, il me semble qu'il y a la fonction DateDiff.
Sinon, pour convertir la date au bon format moi je fait :
"ToString("M/d/yyyy")"

[Xo]

C'est un problème de fonction et de formattage, intrinsèque au SGBD, je déplace sur le forum Access.