Discussion :

[Klemsy78]

je veux savoir comment gérer les apostrophes dans mes chaînes de caractère?
Quand je recherche un enregistrement dans une de mes tables via un attribut string comprenant une apostrophe, il ne retourne rien. Alors que la chaîne existe bien dans la table.
Je veux fonction qui me permettrait de résoudre ce problème svp.
Merci pour votre aide.

[Cl@udius]

Bonjour

As-tu un code exemple de cette recherche qui n'aboutit pas?

@+

[Klemsy78]

en fait je fais la recherche à partir du caption d'un groupbox.

[Cl@udius]

Certes, mais il serait quand même utile que tu nous montres ton code de recherche afin que l'on puisse trouver où se situe l'erreur.
Juste pour savoir si il faut doubler les apostrophes ou non.

@+

[Klemsy78]

Ok , voici donc mon code:

Code :

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

1
2
3
4
5
6
for i:=0 to  Self.ComponentCount-1 do
   begin
    if Self.Components[i] is TEdit then
      begin
       ObjR:=TCalculTabBord_Indicat.GetResultIndic((((Self.Components[i] as TEdit).Parent) as TGroupBox).Caption,ObjTableauBord);
     end;

et voici l'implementation de ma fonction de recherche GetResultIndic:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
class function TCalculTabBord_Indicat.GetResultIndic(VLabel:string;
        ObTab:TTableau_Bord): TCalculTabBord_Indicat;
var
  Selector: TInstantSelector;
  ObResult: TCalculTabBord_Indicat;
begin
  Selector:=TInstantSelector.Create(nil);
  Selector.Connector:=DM.Connector;
  Selector.Command.Text:='select * from TCalculTabBord_Indicat where IndicSProc.Indicateur.Libelle=:LabInd and TabBord.id=:IDTab';
  Selector.Params.ParamByName('LabInd').Value:=VLabel;
  Selector.Params.ParamByName('IDTab').Value:=ObTab.Id;
  Selector.Open;
  ObResult:=Selector.CurrentObject as TCalculTabBord_Indicat;
  Result:=ObResult;
end;

Merci pour votre aide!

[ShaiLeTroll]

Est-ce VLabel qui contient le ' ?
Comment le remplis-tu ?

[Cl@udius]

Il est là le VLabel:

Code :

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

(((Self.Components[i] as TEdit).Parent) as TGroupBox).Caption

C'est le caption du GroupBox.
En théorie cette requête devrait fonctionner.

[Klemsy78]

En fait la requête marche quand il n'y a pas d'apostrophe dans la chaîne qui représente la caption.
Mais dès que on a un apostrophe, alors il retrouve rien.
Donc je me suis demandé s'il n'existe pas une fonction comme addslashes() (php) qui élimine les espaces, les caractères spéciaux...

[Linkin]

Pour les apostrophes un QuotedStr suffiet mais pour le reste joker, je n'utilise jamais les paramètres.

[ShaiLeTroll]

C'est de l'InstantObjects ? c'est vilain, faut quand même écrire du SQL à la main ... pourrait y avoir des assistants ... un peu à la façon du ZendFrameWork en PHP

As-tu essayé un "AsString" à la place du "Value" sinon il est vrai que j'ai rarement de ' dans mes requêtes paramètrées ... toujours le truc des '', '''' ou "'" voire '\''

quelle connecteur et quelle DB derrière tout ça ?

Code :

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

Selector.Params.ParamByName('LabInd').Value:= QuotedStr(VLabel);

ça me semblerait bizarre quand même, j'aime bien aussi les requêtes paramètrées mais on sait pas quelle est vraiement la requête soumise (moi je les sniff en activant le Log complet dans MySQL par exemple)