Discussion :

[monfiston]

bonjour
j'ai une base de données Access, où toutes les données sont enregistrées dedans au format texte, et je ne peux pas modifier ces données!

je souhaiterais récupérer les dates du champ (cloture) via sql depuis excel en vba

mais trié dans l'ordre, et sans doublon

sans doublon, ça fonctionne, mais c'est le tri qui ne fonctionne pas

Code :

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

1
2
'définition de la requette sql( date de cloture)
TexteSQL_date_de_cloture = "SELECT DISTINCT [cloture] FROM [feuille atdec] WHERE [produit] IS NOT NULL and [cloture]IS NOT NULL ORDER BY [cloture]"

vous auriez une idée?

[tototiti2008]

Bonjour,

Pour te répondre il faudrait connaître la forme de tes dates stockées en texte dans le champ cloture

si du type "15/12/2010"

remplace la fin de ta requête par

Code :

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

ORDER BY dateserial(right([cloture],4),mid([cloture],4,2),left([cloture],2))

[monfiston]

bonsoir
merci pour ta réponse
le format de mes dates dans la base de données access est 19/12/2019

j'ai essayé ta solution, mais, ça me génère une erreur

[tototiti2008]

Re,

Et comme ça ?

Code :

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

ORDER BY cdate([cloture])

[monfiston]

j'ai toujours la même erreur
je ne comprend pas?

[tototiti2008]

Tu dois avoir des dates vides

Code :

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

ORDER BY iif([cloture] is null, 1000000, cdate([cloture]))

[monfiston]

merci de m'aider, mais j'ai toujours la même erreur


dans le résultat de ma requette, je n'ai aucune date vide

Code :

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

TexteSQL_date_de_cloture = "SELECT DISTINCT [cloture] FROM [feuille atdec] WHERE [cloture] <>'""' and [cloture]IS NOT NULL ORDER BY iif([cloture] is null, 1000000, cdate([cloture]))"

[fraflt69]

Bonjour
Je peux me tromper mais un 'select distinct' nécessite un 'group by'

[monfiston]

là je ne sais pas, j'ai cherché mais j'ai pas trouvé comment utilisé group by pour mon cas

par contre je viens de voir, si j'enlève le distinct après le select, je n'ai plus d'erreur, et le tri est bien fait, sauf que j'ai plein de doublon:

Code :

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

TexteSQL_date_de_cloture = "SELECT  [cloture] FROM [feuille atdec] WHERE [cloture] <>'""' and [cloture]IS NOT NULL ORDER BY cdate([cloture])"

[tototiti2008]

Bonjour,

en effet distinct et order by semblent en conflit
pour moi group by n'est à utiliser que si on veut faire des calculs, mais ça peut se discuter

peut-être décomposer alors

du type

Code :

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

1
2
3
4
5
6
 
SELECT conv.dte FROM
(SELECT DISTINCT CDate([feuille atdec].cloture) AS Dte
FROM [feuille atdec]
WHERE [feuille atdec].[cloture] Is Not Null And [feuille atdec].[cloture]<>"")  AS [conv]
ORDER BY  conv.dte

[monfiston]

pareil erreur système avec ta requette tototiti2008
par contre je pense que tu approche du résultat, car je dirais qu'il faut imbriqué une requette dans une autre, mais là c'est plus de mon niveau

[tototiti2008]

La requête que je t'ai fourni marche sur mon Access pourtant
Attention aux guillemets si tu veux l'intégrer en VBA

Code :

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

TexteSQL_date_de_cloture = "SELECT conv.dte FROM (SELECT DISTINCT CDate([feuille atdec].cloture) AS Dte FROM [feuille atdec] WHERE [feuille atdec].[cloture] Is Not Null And [feuille atdec].[cloture]<>"""")  AS [conv] ORDER BY conv.dte"

[monfiston]

parfait
merci bien, tu m'as bien aidé sur ce coup là