Discussion :

[MGD_Software]

Bonjour.

J'ai un souci avec la syntaxe dans les clauses de filtrage des recordsets ADO. Le problème se pose aussi bien avec la clause WHERE dans les requetes, que les méthodes Filter et Find des objets Recordset.

Le phénomène est le suivant : Lorsque la chaine recherchée dans un champ contient des apostrophes, des points ou des slashes, la recherche échoue et ne ramène rien.

Pour les apostrophes, j'encadre le texte avec des guillemets et cela marche. L'inverse est vrai aussi. Mais outre le fait qu'on ne peut pas savoir à l'avance le contenu du champ (sans faire une usine à gaz qui va chercher les caractères dans les chaines à rechercher), je n'arrive pas à résoudre le problème des chaines de recherche qui contiennent des guillemets ET des apostrophes.

D'autre part, pour les points et les slashes, j'ai fait un test direct sous access en faisant un filtre par formulaire. Losque je rentre par exemple

Code :

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

machin.truc.bidule

dans le champ de recherche, il me le transforme après validation en

Code :

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

[machin].[truc].[bidule]

ce qui fait penser qu'il croit que les termes entre points sont des tables et des champs.

Je suis arrivé à résoudre le problème dans Access en encadrant le total avec des guillemets. (Mais là encore, comment fait-on avec la recherche de "mac'in/tr"uc.bidule" ??). De plus, sous VB, j'ai beau ajouter des guillemets en tête et en queue de chaîne, le résultat est toujours nul.

Pour être plus clair, voici un exemple concret. Soit une table contenant deux champs, l'un URL, l'autre File. Les deux champs sont destinés à contenir des URL pour la génération automatique de pages HTML. Il n'y a aucun problème pour remplir la table avec des URL du type "HTTP://mgd.software.free.fr" et des noms de fichiers du type "L'atterrissage.gif".

Par contre, j'essaie de faire une recherche sur ces deux valeurs, qui sont respectivement dans les variables sUrl et sFile (toutes les deux de type String). Mon code est:

Code :

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

Rs.Filter = "URL=""" & sUrl & """ AND File=""" & sDummy(i) & """"

ce qui donne si je tape Print rs.filter la réponse

Code :

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

URL="http://mgd.software.free.fr" AND File="L'atterrissage.gif"

Bien que cette combinaison existe plusieurs fois dans la table, le recordset est toujours vide après l'application du filtre.

Je suppose qu'il doit falloir mettre des caractères d'échappement devant les caractères spéciaux, mais lesquels ? chaque moteur de base de données a ses règles et je ne connais pas celles d'ADO (nota : je n'avais pas ce problème avec DAO !)

Recherches dans la FAQ avec "recherche Access", "filtrage" et carrément "Access" : résultats vides. Désespérant ! Je ne doit pas savoir y faire...

Réponses approximatives s'abstenir. Merci.

[avigeilpro]

Petit exemple pour mettre des guillemet autours des caractères ' et " (je dit pas que c'est ta solution mais ca peut peut-être t'aider ) :
Disons que tu veut rechercher la chaine suivante :

Salut c'est moi "TOTO"

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim MaChaine As String
 
'Construction de la chaine a traiter contenant des ' et des "
MaChaine = "Salut c'est moi " & Chr(34) & "TOTO" & Chr(34)
 
'Remplace tous les " par """
MaChaine = Replace(MaChaine, Chr(34), Chr(34) & Chr(34) & Chr(34))
 
'Remplace tous les ' par "'"
MaChaine = Replace(MaChaine, "'", Chr(34) & "'" & Chr(34))

[ThierryAIM]

J'ai fait une petite table vite fait

Si ca peut te mettre sur la voie, cette requete fonctionne :

Code :

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

rs.Filter = "URL like 'http://www.dev*'" & " AND File like 'l''*'"

Lorsqu'il y a des ', c'est un problème connu, il faut les doubler dans la requete
Utilise un

Code :

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

replace(champ, "'", "''")

[MGD_Software]

ThierryAIM a écrit:

J'ai fait une petite table vite fait

Si ca peut te mettre sur la voie, cette requete fonctionne :

Code :
rs.Filter = "URL like 'http://www.dev*'" & " AND File like 'l''*'"


Lorsqu'il y a des ', c'est un problème connu, il faut les doubler dans la requete
Utilise un Code :
replace(champ, "'", "''")

Bon, Ok pour les guillemets et apostrophes, je m'en doutais un peu car c'est déjà comme ça dans les chaines VB. Je vais tester mais j'ai toutes les raisons de croire que cela va marcher.

Par contre, je ne peux pas utiliser LIKE, car les valeurs des champs sont très proches et parfois diffèrent d'une seule lettre. De plus le critère de recherche n'est pas connu du code car il est lui-même tiré d'un fichier HTML et doit être très strict car c'est une recherche de doublon. On ne sait donc pas créer le masque spécifique à chaque fois.

Reste le problème des points ...

Merci quand même de faire avancer le schmilblik.
---------------------------------------------------------------------
avigeilpro a écrit :

Petit exemple pour mettre des guillemet autours des caractères ' et " (je dit pas que c'est ta solution mais ca peut peut-être t'aider ) :
Disons que tu veut rechercher la chaine suivante :
Citation:
Salut c'est moi "TOTO"

Code :
Dim MaChaine As String

'Construction de la chaine a traiter contenant des ' et des "
MaChaine = "Salut c'est moi " & Chr(34) & "TOTO" & Chr(34)

'Remplace tous les " par """
MaChaine = Replace(MaChaine, Chr(34), Chr(34) & Chr(34) & Chr(34))

'Remplace tous les ' par "'"
MaChaine = Replace(MaChaine, "'", Chr(34) & "'" & Chr(34))

Merci. Après quinze ans de pratique assidue de VB, il serait dommage que je ne sache pas ça. D'ailleurs, en lisant bien la question, on se rend compte que les guillemets sont déjà dédoublés dans le code. Le problème n'est pas contruire la chaine de requête. Il est de faire accepter le contenu des critères de recherche par Jet.

Et pour les points et les slashes ?

[jmfmarques]

Je ne sais pas, comme çà....


Avant de dire que ce n'est pas un problème d'expression de la requête, je commencerais par la lancer manuellement, juste pour voir si elle est acceptée... et suffisamment "déterminante".

ce n'est qu'après que je m'intéresserais à la façon de l'écrire en VB, jusqu'à ce qu'un msgbox de la requête corresponde exactement à la requête qui était la bonne.

Quant à créer une requête... dépendant des résultats ...de la requête..., je ne crois pas qu'une solution acceptable existe .

[ThierryAIM]

Je profite de la mi-temps

ca me plait pas trop, ça :

Code :

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

URL="http://mgd.software.free.fr" AND File="L'atterrissage.gif"

on encadre les critères de filtre par ' et non par ", si ce sont des string
tu devrais avoir (si j'ai bien compris, URL et File sont les champs de recherche)

Code :

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

URL='http://mgd.software.free.fr' AND File='L''atterrissage.gif'

soit :

Code :

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

Rs.Filter = "URL='" & sUrl & "' AND File='" & replace(sDummy(i), "'", "''")  & "'"

je reviens à la fin du match

[MGD_Software]

Pas besoin de msgbox, un point d'arrêt et un PRINT dans la fenêtre debug suffisent. Si tu as bien lu ma première contrib, tu pourras constater que le résultat est correct. Je pensais avoir été clair. Je répète le résultat de la construction de la chaîne, qui constitue la chaîne de filtrage :

Code :

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

 URL="http://mgd.software.free.fr" AND File="L'atterrissage.gif"

Grace à Thierry, le problème de l'apostrophe semble résolu en le dédoublant. Je n'ai plus d'erreur "expression incorrecte". Si j'enlève le premier critère de recherche, j'ai des résultats.

Quand je ne laisse que le premier critère, je n'ai jamais de résultat, alors que la chaine existe. J'ai essayé avec des guillemets simples ou doubles, c'est pareil.

Je répète encore : Quand je colle le critère dans une feuille de données Access mise en mode filtrage, Access me transforme cette chaine en :

Code :

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

 URL=[http://mgd].[software].[free].[fr]

et me demande d'entrer la valeur des paramètres http://mgd, software, free et fr. C'est donc bien un problème de syntaxe du critère et non un problème de construction de chaîne.

[MGD_Software]

on encadre les critères de filtre par ' et non par ", si ce sont des string
tu devrais avoir (si j'ai bien compris, URL et File sont les champs de recherche)

Code :

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

URL='http://mgd.software.free.fr' AND File='L''atterrissage.gif'

soit :

Code :

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

Rs.Filter = "URL='" & sUrl & "' AND File='" & replace(sDummy(i), "'", "''")  & "'"

je reviens à la fin du match

Access accepte aussi la syntaxe avec les guillemets, mais c'est plus pur avec des apostrophes, je suis totalement d'accord. J'ai remis ces dernières, car ton tuyau sur le doublement des apostrophes dans la chaine fonctionne. Merci.

Mais pour les points ??
je pense que je ne vais pas passer 24 heures là-dessus. Quand on ne peut pas franchir le mur, on en fait le tour. Je vais trouver un caractère de remplacement des points et le placer à la fois dans la base et dans les critères de recherches. Je ne vais quand même pas me laisser emm... par trois lignes de code, non mais des fois !

Merci à tous.
Y'a 1-0 pour nous pour le moment

[ThierryAIM]

comprends pas

j'ai inhibé la 2e partie du filtre

Code :

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

1
2
strg = "http://www.developpez.net"
rs.Filter = "URL='" & strg & "'"

et

print rs.Filter
URL='http://www.developpez.net'

et sous vb6, le filtre me renvoie bien les enregistrements

et ALLEZ LES BLEUS

[MGD_Software]

Bon, y doit y avoir un truc gros comme une maison que je ne vois pas. Si ton exemple fonctionne, c'est qu'il y a autre chose, qu'il faut que j'analyse à tête reposée (programmer pendant un quart de finale de coupe du monde n'est pas très efficace )

J'arrête là, le plus gros problème (les apostrophes) étant résolu.
Zou, Résolu !
Merci encore.

[ThierryAIM]

(programmer pendant un quart de finale de coupe du monde n'est pas très efficace )

Je dirais même que c'est de l'inconscience

et on a gagné

Blague à part, je voudrais bien comprendre d'ou vient le problème

[SfJ5Rpw8]

[QUOTE=MGD_Software]...(programmer pendant un quart de finale de coupe du monde n'est pas très efficace )
..[QUOTE]
? c'était les quarts hier ?

[MGD_Software]

Oui, bon, je suis meilleur en VB qu'en foot.... (enfin, j'espère !)

ThierryAIM a écrit :
Blague à part, je voudrais bien comprendre d'ou vient le problème

Moi aussi . Si je trouve, je te tiens au courant.