Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic pb date accent

pb date accent

3 réponses
Avatar
jerome
Bonjour,

Voilà, j'utilise un base de donnée dans laquelle il y a un table contenant
tous les mois (JANVIER à DECEMBRE).

Ensuite, j'ai un code de ce type :
txtmois.text=UCase(Format(Now, "mmmm"))
connectBase.Commands(1).CommandText = "SELECT * FROM Mois WHERE mois='" &
txtmois.Text & "'"
(...)

Le problème, et bien quand je récupère le mois courant, j'ai par exemple
DÉCEMBRE alors que dans ma base, j'ai DECEMBRE, ce qui fausse la manoeuvre.

Comment faire comprendre que DÉCEMBRE=DECEMBRE ?

merci
jerome
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Denis P
Bonjour Jérome.

Si tu remplacerais simplement le É par un E tu règlerais ton problème.
Alors vérifie si tu as un É dans ta zone de texte et remplace le pas un E.

Dim strMois as String

strMois = txtmois.Text

If InStr(strMois, "É") > 0 Then
strMois = Replace( strMois, "É", "E")
End If

"SELECT * FROM Mois WHERE mois='" & strMois & "'"

Et maintenant tu ne devrais plus rencontrer de problème avec le É.

Salut @+

Denis P

"jerome" a écrit dans le message de
news:3faf89c5$0$22320$
Bonjour,

Voilà, j'utilise un base de donnée dans laquelle il y a un table contenant
tous les mois (JANVIER à DECEMBRE).

Ensuite, j'ai un code de ce type :
txtmois.text=UCase(Format(Now, "mmmm"))
connectBase.Commands(1).CommandText = "SELECT * FROM Mois WHERE mois='" &
txtmois.Text & "'"
(...)

Le problème, et bien quand je récupère le mois courant, j'ai par exemple
DÉCEMBRE alors que dans ma base, j'ai DECEMBRE, ce qui fausse la


manoeuvre.

Comment faire comprendre que DÉCEMBREÞCEMBRE ?

merci
jerome






Avatar
aprx
En transformant et en comparant la réception en minuscule, peut-etre ?

jerome a écrit:
Bonjour,

Voilà, j'utilise un base de donnée dans laquelle il y a un table contenant
tous les mois (JANVIER à DECEMBRE).

Ensuite, j'ai un code de ce type :
txtmois.text=UCase(Format(Now, "mmmm"))
connectBase.Commands(1).CommandText = "SELECT * FROM Mois WHERE mois='" &
txtmois.Text & "'"
(...)

Le problème, et bien quand je récupère le mois courant, j'ai par exemple
DÉCEMBRE alors que dans ma base, j'ai DECEMBRE, ce qui fausse la manoeuvre.

Comment faire comprendre que DÉCEMBREÞCEMBRE ?

merci
jerome






Avatar
jerome
"Denis P" a écrit dans le message de
news: u$
Bonjour Jérome.

Si tu remplacerais simplement le É par un E tu règlerais ton problème.
Alors vérifie si tu as un É dans ta zone de texte et remplace le pas un E.

Dim strMois as String

strMois = txtmois.Text

If InStr(strMois, "É") > 0 Then
strMois = Replace( strMois, "É", "E")
End If

"SELECT * FROM Mois WHERE mois='" & strMois & "'"

Et maintenant tu ne devrais plus rencontrer de problème avec le É.



Merci à toi Denis P.

Jerome