Discussion :

[ericdev67]

Bonjour,

je travaille sur ADO, et j'ai un petit problème avec certains caractères : mes collègues mettent des "/", des "-", etc....etc lorsque je lance mes requêtes ADO, style

Code :

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

rs.Open "SELECT titre,prenom FROM [Feuil3$A1:C1000] WHERE titre='" & moncode & "'", Cnn, adOpenDynamic, adLockOptimistic

, si "moncode" contient ces caractères, vba plante...

J'aimerai donc savoir s'il était possible de convertir un texte (exemple : "Eric essaye/modifie/réutilise") en une série de chiffre et/ou autres, bref, vous avez compris, tout ce qui permettrait d'enlever les caractères spéciaux.....

Merci pour votre aide,

[EricDgn]

Bonjour,

Cette page donne la liste des caractères à problèmes:

Pour le contourner, il devrait être possible de régler cela en utilisant une fonction de "correction" du texte, par exemple du genre de celle-ci:

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Function Clean(s As String) As String
   s = Replace(s, "?", "[?]")
   s = Replace(s, "/", "[/]")
   s = Replace(s, "*", "[*]")
   s = Replace(s, "\", "[\]")
   s = Replace(s, "&", "[&]")
   '--- etc.
End Function
 
rs.Open "SELECT titre,prenom FROM [Feuil3$A1:C1000] WHERE titre='" & Clean(moncode) & "'", Cnn, adOpenDynamic, adLockOptimistic

Bonne continuation.

[ericdev67]

Super merci EricDgn,

Effectivement, plus de problème !! J'ai rajouté tous les caractères spéciaux évoqués dans votre lien, et...tout fonctionne parfaitement !

Merci!

(et info pour les débutants comme moi: il faut déclarer le moncode en string sinon bug...lol)

Merci,