Discussion :

[capricorne83]

Bonjour,
Je reoncontre le problème suivant :
Sous Vb2019 (community) avec une base access, je souhaite extraire des enregistrements concernant le jour et le mois. (Ex je veux savoir ce qu'il s'est passé le 15/04 de chaque année)
Dans ma base access, la date est au format date/heure abrégée ex 01/01/2023.
Auriez vous un ou des pistes à m'indiquer ?
J'ai tenté, après des recherches sur le net, cette requête la

Code :

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

1
2
Req = "Select bio_date, bio_info, cat_nom from categories, biographie where biographie.cat_num=categories.cat_num And " _
& " (((Format(Bio_Date,"ddmm"))=Format("TextJourMois.text","ddmm"))) order by bio_date asc"

Mais j'ai une erreur de syntaxe que je ne parviens pas à solutionner.
Merci par avance de vos réponses.
Thierry

[umfred]

compte les parenthèses au niveau de tes Formatages de date

[Phil Rob]

Bonjour,

Comme l'indique Umfred, il y a effectivement un problème de parenthèses. Mais je pense qu'il y a aussi un défaut dans la concaténation ... Format("TextJourMois.text","ddmm"))).

Ne devrait-elle pas être quelque chose du genre :

Code :

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

...   =Format('" & TextJourMois.text & "', 'ddmm')))

J'ai pas testé, mais sûr, ta concaténation n'est pas correcte.

...

[Thumb down]

Bonjour,
Je pense que ta requête devrait ressembler à ça !

Code :

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

1
2
3
 
Req = $"Select bio_date, bio_info, cat_nom from categories, biographie where biographie.cat_num=categories.cat_num And 
Format(Bio_Date,'ddmm')='{TextJourMois.text.tostring("ddmm")}' order by bio_date asc"

Personnellement je préfère exécuter une command avec paramètres !

[capricorne83]

Bonjour,
Je pense ..

Bonjour Merci de ta réponse, mais à l'exécution j'ai toujours une erreur de syntaxe (Erreur de syntaxe (opérateur absent) dans l'expression «*biographie.cat_num=categories.cat_num And Format(Bio_Date,'ddmm')='{TextJourMois.Text.ToString('ddmm')}'*».')
Si je laisse les " pour le format de date ("ddmm") j'ai une erreur "fin d'instruction attendue"..... voila pourquoi j'ai modifie le " en '. mais ca ne fonctionne pas non plus.

[Phil Rob]

Bonjour,

Le crois correcte la proposition de Thumb down mais puisqu'un problème subiste, je te propose d'essayer ceci :

Code :

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

1
2
Req = "Select bio_date, bio_info, cat_nom from categories, biographie where biographie.cat_num=categories.cat_num And " _
& " Format(Bio_Date,'ddmm')='" & TextJourMois.text.ToString("ddmm") & "' order by bio_date asc"

J'essaie de tenir compte de :

• Les chaines dans SQL sont entre apostrophes,
• Les chaines dans VB sont entre guillemets,
• Eviter les parenthèses inutiles (sauf si utiles à la lecture mais attention : autant de fermées que d'ouvertes).

J'espère que ça aidera ...

[Thumb down]

Bonjour,
Je t'invites à écrire t'a requête dans l'éditeur graphique d'Access puis de passer l'affichage en mode SQL. Tu pourras copier coller le texte de ta requête et ainsi on pourra t'aider à formater ton code.

Dans ta requête n'oublie pas de remplacer TextJourMois.text.ToString("ddmm") par une valeur valide!

[Phil Rob]

Attention, outre la syntaxe à mettre au point pour faire fonctionner la requête, il faut regarder le format de la date.
Le mm est utilisé pour désigner les minutes.
Pour le mois, c'est MMMM pour le mois en lettres, MMM pour le mois en lettre mais abrégé, MM pour le mois en 2 chiffres avec zéro non significatif, %M pour le mois en chiffres sans zéro non significatif, et M seul qui serait (à vérifier) le jour suivit du mois en lettres, par exemple aujourd'hui 1 mars.

Le format ddmm correspondrait à cet instant où je tape ce message : 0134 (1er du mois, à 34 minutes).

...

[umfred]

c'est nn pour les minutes en Access, donc dans la requête SQL on peut mm pour indiquer les minutes à fonction SQL Format. en revanche, pour la fonction Format (ou ToString ici) de VB.Net, il faut bien faire la différence en MM pour le mois et mm pour les minutes (SQL est insensible à la casse)

[Thumb down]

tu implémente ta requête dans l'éditeur de requête en mode graphique

puis tu Bascule en mode SQL

Code :

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

1
2
3
4
Req $"SELECT bio_date, bio_info, cat_nom
FROM categories INNER JOIN biographie ON categories.cat_num = biographie.cat_num
WHERE Format([bio_date],'ddmm')='{Convert.ToDateTime(TextJourMois.Text).ToString("ddMM")}'
ORDER BY bio_date;"

[capricorne83]

tu implémente ta requête dans l'éditeur de requête en mode graphique ....

Eh bien Bravo et merci cela fonctionne parfaitement.

[capricorne83]

Je reprends la suite de mon fil, pour une suite de ce problème.
La solution proposé par thumb down fonctionne parfaitement pour une requête directement sur la base.
En revanche quand je fais la même requête mais pour alimenter un état, cela me génère une erreur de syntaxe (operateur attendu)....
Voici mon code : D'abord le Where pour affiner la requete sur l'état, ensuite l'appel de la fonction d'ouverture de l'état

Code :

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

1
2
ClauseWhere = " Where Format([anec_date],'ddmm')='{Convert.ToDateTime(DateReq).ToString("ddMM")}'"
        OLEOpenReport_PLAN(strDB, RptNom, AcView.acViewPreview,, ClauseWhere)

Pour rappel la requête de thumb down

Code :

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

Req = $"select anec_info, anec_date, anec_categories from tmp_anecdote WHERE Format([anec_date],'ddmm')='{Convert.ToDateTime(DateReq).ToString("ddMM")}' ORDER BY anec_Date ASC"

Je suis preneur de vos suggestions.
Par avance merci.
Thierry

[umfred]

le $ au début de la chaine de Thumbdown indique une chaine formatée (interpolée), ce $ est absent de ta chaine, donc pour concaténer plusieurs chaines il te faut utiliser un opérateur de concaténation

[Thumb down]

Bonsoir,
ClauseWhere = $" Where Format([anec_date],'ddmm')='{Convert.ToDateTime(DateReq).ToString("ddMM")}'"

[capricorne83]

Bonsoir,
ClauseWhere = $" Where Format([anec_date],'ddmm')='{Convert.ToDateTime(DateReq).ToString("ddMM")}'"

Bonjour,
Merci de votre aide, malheureusement ca coince encore.
Voila le contenu de la clauseWhere (en debogage)

Code :

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

" WHERE Format([anec_date],'ddmm')='1604' ORDER BY anec_Date ASC"

Du coup Access crie parce qu'il ne reconnait pas le 1604.... Je vais regarder si il est possible d'injecter par le code la totalité de la requête vers l'etat access. Parce qu'avec votre requête, je récupère bien les données voulues.
A moins que vous n'ayez une autre idee.
Cdt
Thierry

[umfred]

Tu es sûr que c'est cette partie qu'il n'aime pas ? la requête entière donne quoi ? comme tu évoques "alimenter un état", j'entends une requête de type INSERT ou UPDATE et dans ce cas-là, ça doit crier sur le ORDER BY.
Sinon, il faut que anec_Date soit parmi les colonnes sélectionnées

[capricorne83]

Voila la Requete :

Code :

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

 Req = $"select anec_info, anec_date, anec_categories from tmp_anecdote WHERE Format([anec_date],'ddmm')='{Convert.ToDateTime(DateReq).ToString("ddMM")}' ORDER BY anec_Date ASC"

Voici le message d'erreur Access

Quand je dis "alimenter" un etat c'est un simple select que je fais. La clause where servant à filtrer sur une date. C'est le principe de l'anniversaire : Je veux savoir quels sont les Gens nés le 15/01 par exemple. La requête de l'état c'est la même sans la clause where. le programme envoie la clause....

[umfred]

Ta colonne anec_date est bien de type date ?
si tu retires la clause WHERE, comment se présente cette colonne dans les résultats ?
(peut-être utiliser LIKE au lieu du = ? )

[capricorne83]

Ta colonne anec_date est bien de type date ?
si tu retires la clause WHERE, comment se présente cette colonne dans les résultats ?
(peut-être utiliser LIKE au lieu du = ? )

Oui anec_date est bien au format date. Voici le contenu de la table. Je te precise que c'est une table temporaire (Ce qui explique la redondance d'information pour la categorie...)

Et voici le contenu de l'etat sans la clause where

[capricorne83]

Je m'auto réponds ....
J'ai trouvé une solution qui me convient. La requête sur la table fonctionnant je fais une boucle de X éditions. J'exécute la requête, j'envoie les résultats vers la table temporaire, et j'appelle mon état Access, ensuite vidage de la table temporaire et je recommence.

Merci de vos réponses en tout cas.
Thierry