Discussion :

[mickael.be]

Hello,

Pour executer une requête SQL je dois vérifier si il n'y à pas de ' dans le nom de mon fichier.

Si non ..

Code :

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

SQL.Query('INSERT INTO matable SET Path='''+ Path +''';');

Si Path c'est C:\00's\ ca bug ..
J'ai essayé en replace, mais quelle galère ! ca donne des Path, ''''', '''''''', ..

Je m'enmèle bien les pinceaux!
Y'a une solution?
Merci
[moderation]
bonjour,
prière d'utiliser les balises de code afin d'accroître la lisibilité de votre question.
Hauwke|/moderation]

[petitcoucou31]

salut ,

Pkoi pas faire un genre de filtre du genre ( dans ton cas car=apostrophe )

Code :

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

1
2
3
4
5
6
7
8
 
function filtre(car:char;St:string):string;
var i:integer;
begin
   result:='';
   for i:=1 to length(st) do
     if st[i]<>car then result:=result+st[i];
end;

bye

[chtiot]

et ça :

Code :

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

SQL.Query('INSERT INTO matable SET Path=' + QuotedStr(Path)+ ';');

ça marche pas ?

[mickael.be]

Désolé coucou, mais ... je préfère que tu ne réponde pas..

Ton fitre ne fera rien .. ce que je veux c'est remplacer les ' par '' ..

Mon replace merde grave..

[mickael.be]

et ça :

Code :

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

SQL.Query('INSERT INTO matable SET Path=' + QuotedStr(Path)+ ';');

ça marche pas ?

Hey, cette fonction n'est pas mal.. :-)

Mais ca marche pas..
Enfait après analyse, Delphi anti-quote comme ça '' et MySQL comme ça : \'

donc

[mickael.be]

Ouf..

NewPath := StringReplace(NewPath,'''','\''',[rfReplaceAll]);

Ca marche :-)

[petitcoucou31]

ok mickaelmediaprod ! je ne te repondrai pas . la prochaine fois je te laisserai avec tes pinceaux emmelés.