Discussion :

[defluc]

Hello,

J'ai une application Delphi/Firebird 1.5 qui permet à l'utilisateur d'effectuer une recherche d'adresse.
La requête provoque une erreur «Token unknown» lorsque l'utilisateur introduit une chaîne de recherche comportant le caractère apostrophe comme «rue de l'Arbre».

Je voudrais prévenir cette erreur et j'ai 2 questions :

1. Quels sont les caractères susceptibles de provoquer cette erreur ?
2. Comment intercepter l'erreur avant qu'elle ne surgisse pour permettre à l'utilisateur de la corriger ?

[Cl@udius]

Salut

La question est: comment transmets-tu le critère de recherche ?
Car il est évident que le problème se situe au niveau de l'apostrophe. Personnellement je transmet les chaînes de caractères avec la fonction QuotedStr qui encadre la chaîne mais double également ceux présents dans celle-ci.

Donc dans ton exemple le texte rue de l'Arbre sera bien transmis sous la forme 'rue de l''Arbre'.
Ce qui devrait supprimer tout problème de parsing de ta requête.

@+ Claudius

[defluc]

L'expression est saisie dans un TEdit dont le contenu est passé dans une variable de type String.
La requête est

Code :

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

Select Distinct Nom, Adresse From TableBien where Adresse Like ''%' + Adr1 + '%''

L'erreur se produit aussi bien avec que sans QuotedStr.

[ludo00002]

Le plus simple serait de passer par des paramètres :

Query.SQL.Text:='SELECT DISTINCT Nom, Adresse FROM TableBien WHERE Adresse LIKE :Adr1'

Query.ParamByName(Adr1).AsString:='%'+Edit1.Text+'%'

[defluc]

Pourquoi pas.

Merci pour l'idée.