Discussion :

[kirian]

Bonjour,

J'utilise delphi 7 avec le connecteur ODBCExpress pour me connecter à la BD MySQL. Toutes mes requetes passent bien jusqu'au moment ou j'essaye de passer une requète contenant une url. la requete est du type :

'update infor set url = "http://xxxxxxxxx.fr" where ref= "F012547-01"'

Il semblerait que Delphi soit faché avec les caractères ://
Quelqu'un a t'il déja rencontré ces problèmes ?

Kirian

[Rayek]

Peux tu montrer le code qui permet de lancer cette requete ?

Car je pense que ton problème vient du fait d'un problème de quote ['] à la place des ["].

Et il serait bien que tu nous donnes le messag d'erreur.

[kirian]

Je pense avoir ciblé correctement le problème et il vient du ":" (suivi de 2 lettres, il passe sans problèmes, suivi de // ca plante)

Voici le code modifié afin que la requete passe correctement :

OEQuery1.SQL.Text := 'update infor set email = "' + ansireplacestr(Numero,':','#') + '" where ref= "'+ Ref + '"'

avec Numero correspondant a la variable contenant l'URL:

Cependant ça ne me convient pas car je ne peux pas exploiter directement la table MySQL.
Je suis obligé de refaire un traitement derrière.

[Rayek]

Ton problème vient du fait que c'est des ' et pas des " qu'il faut mettre pour MYSQL.

sinon tu as 2 moyens pour régler ton problème :

- Soit en utilisant QuotedStr plutot de des multiple " dans tous les sens

Code :

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

1
2
3
4
5
6
7
8
 
With OEQuery1 do
begin
  SQL.Clear;
  SQL.Add('update infor');
  SQL.Add('set email = ' + QuotedStr(Numero));
  SQL.Add('where ref= ' + QuotesStr(Ref));
end;

- Soit en passant par des paramètres

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
With OEQuery1 do
begin
  SQL.Clear;
  SQL.Add('update infor');
  SQL.Add('set email = :EMAIL');
  SQL.Add('where ref= :REF');
  // Faudrat peut être voir si c'est comme cela que ca s'ecrit, 
  //la je fais comme si c'etait des composants de bases de delphi
  // donc a toi d'adapter
  ParamCheck := True;
  ParamByName('EMAIL').Value := Numero;
  ParamByName('REF').Value := Ref;
end;