Discussion :

[yacinew]

Bonjour ,

J'ai le code suivant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
 
with Query do
begin
Close;
SQL.Clear;
 SQL.Add('select DISTINCT REF,text from  tab F' );
SQL.Add('inner JOIN tab1 A ON A.REF = F.REF' );
SQL.Add('where A.LIBELLE_AF='''+ComboBox.text+''' ');
Prepare;
open;
end;

tous marche bien sauf si j'ai un texte qui contient des ' dans ComboBox.text

Alors comment faire pour éviter l'erreur

[SergioMaster]

Bonjour,

cela serait beaucoup plus facile d'utiliser la fonction QuotedStr

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
with Query do
begin
Close;
SQL.Clear;
 SQL.Add('select DISTINCT REF,text from  tab F' );
SQL.Add('inner JOIN tab1 A ON A.REF = F.REF' );
SQL.Add('where A.LIBELLE_AF='+QuotedStr(ComboBox.text));
// prepare;  totalement inutile 
open;
end;

et encore mieux d'utiliser une requête paramètrée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
with Query do
begin
Close;
SQL.Clear;
SQL.Add('select DISTINCT REF,text from  tab F' );
SQL.Add('inner JOIN tab1 A ON A.REF = F.REF' );
SQL.Add('where A.LIBELLE_AF=:P');
ParamByName('P').asString:=combobox.text;
// prepare; inutile dans ce contexte 
open;
end;

[yacinew]

Merci M SergioMaster,

J'ai tester les deux solutions mais c'est la même chose , toujours l'erreur dans les caractères avec apostrophe.

Bonjour,

cela serait beaucoup plus facile d'utiliser la fonction QuotedStr

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
with Query do
begin
Close;
SQL.Clear;
 SQL.Add('select DISTINCT REF,text from  tab F' );
SQL.Add('inner JOIN tab1 A ON A.REF = F.REF' );
SQL.Add('where A.LIBELLE_AF='+QuotedStr(ComboBox.text));
// prepare;  totalement inutile 
open;
end;

et encore mieux d'utiliser une requête paramètrée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
with Query do
begin
Close;
SQL.Clear;
SQL.Add('select DISTINCT REF,text from  tab F' );
SQL.Add('inner JOIN tab1 A ON A.REF = F.REF' );
SQL.Add('where A.LIBELLE_AF=:P');
ParamByName('P').asString:=combobox.text;
// prepare; inutile dans ce contexte 
open;
end;

[yacinew]

je sais pas pourquoi la requête ne marche pas avec QuotedStr( );

[Paul TOTH]

quelle erreur ?

[yacinew]

quelle erreur ?

[Paul TOTH]

quelle base de données ? que donne un ShowMessage(Query.SQL.Text) ?

[SergioMaster]

Bonjour,

J'ai tester les deux solutions mais c'est la même chose , toujours l'erreur dans les caractères avec apostrophe.

je suis très surpris et j'ai voulu en avoir le cœur net

j'ai donc rapidement procédé a un test D3 + Paradox (<- donc vraiment basique)
et mes 2 propositions fonctionnent, pour preuve

[edam]

déjà t'as une erreur dans la requête

select DISTINCT F.REF,text from tab F

ou "A."