Discussion :

[rvzip64]

Salut tout le monde voila, une petite question qui à déjà était traiter, mais pour laquelle je n'ai pas trouver de solution.

Tout d abord je voudrais sauvegardé un fichier formaté qui sort d'un Richedit dans un champ Text.

Le problème c'est que quand j'execute il me mais une erreur dans ma requete.

Voila ma requete:

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
17
18
19
20
21
22
23
24
 
procedure TForm1.Button1Click(Sender: TObject);
var
  Astream : TStringStream;
  S1,S2 :string;
begin
Astream := TStringStream.Create( S1);
 
Astream.Seek( 0 , sofromBeginning );
richeedit1.Lines.SaveToStream( Astream );
 
Astream.Seek( 0 , sofromBeginning );
S2 := Astream.ReadString( Astream.Size );
 
Astream.Free;
 
 
 
if mysql_query(form_pp.mySQLConnection,pchar('insert into Table (recette) values ('''+s2+''') where champ=''1'''))<>0 then
begin
  errormsg:=mysql_error(form_pp.mysqlconnection);
  MessageDlg(errormsg, mtError, [mbOK], 0);
end;
end;

[rvzip64]

personne na la moindre idée ????

[rvzip64]

En fait je crois que cela ne marche pas parcequ'il y a le caractère '\' dans ma chaine.

[cmen76]

2 remarques :
- Le contenu d'un RichEdit n'est pas forcément du texte pur.
- S'il contient une quote (apostrophe), la syntaxe de la requête SQL devient incorrecte

Si le contenu à envoyer en base peut poser ce genre de problèmes, il serait peut-être préférable de passer par un

Code :

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

TMemoField.LoadFromStream(...

[rvzip64]

mais comment tu tutilise ça dans une requete sql ?

[cmen76]

Justement, pour éviter de construire un SQL hasardeux, l'idée est de demander sun dataset dynamique, par exemple en définissant un TQuery retournant l'enregistrement, avec la propriété RequestLive à True.
Dès lors sur ce dataset, on peut éditer la donnée BLOB

Code :

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

1
2
3
Query.edit;
Query.FieldByName('LeBlob').LoadFromStream(monStream);
Query.Post;

On peut également utiliser un TTable en remplacement du TQuery en RequestLive, mais il faut penser à se positionner sur le bon enregistrement.