modifier une image dans un champ blob

Version imprimable

salut tous j'ai un petit problème sur la modification d'un champ blop avec un Query
j'ai donc une première foi enregistrer mon image dans un champ blob come ceci
Code:

1 2 3 4 5 6 DataModule2.TableMembre.FieldByName('Symbol').Value:=Symbol.Text; if Titre.Text='Mr' then DataModule2.TableMembre.FieldByName('Symbol').Assign(Image5.Picture.Bitmap) else DataModule2.TableMembre.FieldByName('Symbol').Assign(Image4.Picture.Bitmap);
maintenant j'ai besoin de modifier mon champ blob ,mais je ne trouve pas la solution.
Vous l'avez compris j'ai le choix entre plusieurs image si mon champs titre est égale à Mr etc...

moi j'ai fais
Code:

1 2 3 4 5 6 7 8 DataModule2.Query1.SQL.Clear; DataModule2.Query1.SQL.Add('Update matable.DB set Sexe = '+ QuotedStr(Titre.Text) +',Nom = '+ QuotedStr(Nom.Text) +',Prenom = '+ QuotedStr(Prenom. text) +',Symbol = '+ QuotedStr(Symbol.text) +',Symbol = '+ QuotedStr(Image4.Picture.Bitmap);//j'ai fais mon choix d'image +' where Idmembre ='+ QuotedStr(Id.caption)+''); DataModule2.Query1.ExecSQL;
merci de votre aide

:salut:

quel est le message d'erreur ?
à quoi correspond le champ Symbol ?
c'est lui le champ BLOB ?
pourquoi lui assigner du texte,

Citation:

Envoyé par tarmo57

Code:

DataModule2.TableMembre.FieldByName('Symbol').Value:=Symbol.Text;

puis une image ?

Citation:

Envoyé par tarmo57

Code:

1
2
3
4
if Titre.Text='Mr' then
 DataModule2.TableMembre.FieldByName('Symbol').Assign(Image5.Picture.Bitmap)
else
DataModule2.TableMembre.FieldByName('Symbol').Assign(Image4.Picture.Bitmap);

ne le dira-t-on jamais assez ? les paramètres c'est bon, mangez-en 8-)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
DataModule2.Query1.SQL.Clear;
DataModule2.Query1.SQL.Add('Update matable.DB set Sexe = :Sexe'
+',Nom = :Nom'
+',Prenom = :Prenom'
+',Symbol = :Symbol'
+',Symbol2 = :Symbol2'
+' where Idmembre = :Idmembre');
DataModule2.Query1.ParamByName('Sexe').AsString := Titre.Text;
DataModule2.Query1.ParamByName('Nom').AsString := Nom.Text;
DataModule2.Query1.ParamByName('Prenom').AsString := Prenom.Text;
DataModule2.Query1.ParamByName('Symbol').AsString := Symbol.Text;
DataModule2.Query1.ParamByName('Symbol2').Assign(Image4.Picture.Bitmap);
DataModule2.Query1.ParamByName('Idmembre').AsString := Id.Caption;
DataModule2.Query1.ExecSQL;

et puis l'instruction WITH me semble appropriée ici pour plus de lisibilité:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
with DataModule2.Query1 do 
begin
  SQL.Clear;
  SQL.Add('Update matable.DB set Sexe = :Sexe'
    +',Nom = :Nom'
    +',Prenom = :Prenom'
    +',Symbol = :Symbol'
    +',Symbol2 = :Symbol2'
    +' where Idmembre = :Idmembre');
  ParamByName('Sexe').AsString := Titre.Text;
  ParamByName('Nom').AsString := Nom.Text;
  ParamByName('Prenom').AsString := Prenom.Text;
  ParamByName('Symbol').AsString := Symbol.Text;
  ParamByName('Symbol2').Assign(Image4.Picture.Bitmap);
  ParamByName('Idmembre').AsString := Id.Caption;
  ExecSQL;
end;

apres test

Merci de ton aide evarisnea
J'ai donc une erreur je vais te montrer le code que j'ai fais en amont
dans ma table paradox mon champ BLOB et Symbol (Type G )
Quand j'enregistre j'ai le choix entre deux images (Image4 et image5)par rapport
au champs d un combobox (Mr ,Mme, Mlle) .
l'enregistrement dans ma table ok
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 DataModule2.TableMembre.Append; DataModule2.TableMembre.Edit; // Positionne la table en mode Edition DataModule2.TableMembre.FieldByName('Sexe').Value := Titre.Text; DataModule2.TableMembre.FieldByName('Nom').Value := Nom.Text; DataModule2.TableMembre.FieldByName('Prenom').Value := Prenom.Text; if Titre.Text='Mr' then DataModule2.TableMembre.FieldByName('Symbol').Assign(Image5.Picture.Bitmap) else DataModule2.TableMembre.FieldByName('Symbol').Assign(Image4.Picture.Bitmap); DataModule2.TableMembre.Post();
l'enregistrement se passe bien et je peux relire mon image sans problème avec un DBimage.
Maintenant j'ai besoin de la modifier toujours par rapport a mon combobox (Mr ,Mme, Mlle)
je fais
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 with DataModule2.Query1 do begin SQL.Clear; SQL.Add('Update assos_membre.DB set Sexe = :Sexe' +',Nom = :Nom' +',Prenom = :Prenom' +',Symbol = :Symbol' +' where Idmembre = :Idmembre'); ParamByName('Sexe').AsString := Titre.Text; ParamByName('Nom').AsString := Nom.Text; ParamByName('Prenom').AsString := Prenom.Text; ParamByName('Symbol').Assign(Image4.Picture.Bitmap); ParamByName('Idmembre').AsString := Id.Caption; ExecSQL; end;
pour le choix de l'image je le fais plus haut la je teste avec une seule image
dans Symbol.text j'ai l'adresse de l'image sur mon disque dur ?? pourquoi je ne sais pas vraiment je crois l'avoir lu.
et j'ai le message d'erreur

Citation:

Le projet1.exe a provoqué une classe d'exception EDBEngineError avec le message 'Différence de type dans une expression.'. Processus stoppé.

Merci de ton aide

09/05/2010, 12h44
evarisnea

comme je l'ai remarqué plus haut dans mon précédent post, peut être à un moment tu écris du texte plutôt qu'une image dans le champ blob. et puis, pourquoi Symbol.text fait-il référence au champ blob censé contenir l'image :koi:

pour le message d'erreur, vérifie les valeurs. genre, si le champ IdMembre est de type numérique, Id.Caption contient bien une valeur numérique ?
09/05/2010, 13h11
tarmo57
Citation:

Envoyé par evarisnea

comme je l'ai remarqué plus haut dans mon précédent post, peut être à un moment tu écris du texte plutôt qu'une image dans le champ blob. et puis, pourquoi Symbol.text fait-il référence au champ blob censé contenir l'image :koi:

pour le message d'erreur, vérifie les valeurs. genre, si le champ IdMembre est de type numérique, Id.Caption contient bien une valeur numérique ?

oui tu as raison c du text dans symbol.text
je dois mettre
Code:

1 2 +',Symbol = :Image4 ??'
09/05/2010, 13h15
evarisnea

à mon avis, tu devrais créer un second champ, et ainsi avoir un champ qui contient uniquement l'image (le champ blob) et un champ qui ne contient que du texte (pour symbol).

pourquoi écris-tu dans le même champ tantôt une image et tantôt du texte ?

:koi:

j'ai fais

Citation:

Envoyé par evarisnea

à mon avis, tu devrais créer un second champ, et ainsi avoir un champ qui contient uniquement l'image (le champ blob) et un champ qui ne contient que du texte (pour symbol).

pourquoi écris-tu dans le même champ tantôt une image et tantôt du texte ?

:koi:

oui j'a fais mon champs symbol et un champ blob avec que l'image j'ai fais
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 with DataModule2.Query1 do begin SQL.Clear; SQL.Add('Update assos_membre.DB set Sexe = :Sexe' +',Nom = :Nom' +',Prenom = :Prenom' +',Symbol = :Image4' +' where Idmembre = :Idmembre'); ParamByName('Sexe').AsString := Titre.Text; ParamByName('Nom').AsString := Nom.Text; ParamByName('Prenom').AsString := Prenom.Text; ParamByName('Symbol').Assign(Image4.Picture.Bitmap); ParamByName('Idmembre').AsString := Id.Caption; ExecSQL; end;
mais j'ai un e erreur

Citation:

Query1 parametre 'Symbol' non trouvé

09/05/2010, 19h04
evarisnea

bon, c'est bien parce que c'est dimanche ... :cry:

je t'invite à relire l'aide en ligne delphi au sujet des paramètres.

ton message d'erreur provient du fait que tu n'as déclaré aucun paramètre nommé Symbol dans ta requête. le champ symbol obtient sa valeur plutôt du paramètre Image4.
sois un peu plus attentif, tu aurais du constater que devant chaque champ de la requête, lui est affectée une valeur sous la forme d'une "variable" préfixée de ":". c'est cela tes paramètres. pour le champ symbol, tu as une variable nommée Image4. mais lorsque tu affecte des valeurs à tes paramètres, tu utilises Symbol (inconnu comme paramètre) en lieu et place de Image4.
09/05/2010, 19h19
Jipété

Salut.

Citation:

Envoyé par tarmo57

(...) aux champs d'un combobox (Mr, Mme, Mlle). (...)

Bon, ça n'a rien à voir avec ton problème informatique, mais moi j'aime la culture française et je la défends, et j'essaye de la maintenir, aussi.

Et en l'espèce, ici, il s'agit de « M., Mme, Mlle » si l'on veut être rigoureux (« Mr » c'est de l'anglais, ça !)
10/05/2010, 07h52
tarmo57

Citation:

Envoyé par evarisnea

bon, c'est bien parce que c'est dimanche ... :cry:

je t'invite à relire l'aide en ligne delphi au sujet des paramètres.

ton message d'erreur provient du fait que tu n'as déclaré aucun paramètre nommé Symbol dans ta requête. le champ symbol obtient sa valeur plutôt du paramètre Image4.
sois un peu plus attentif, tu aurais du constater que devant chaque champ de la requête, lui est affectée une valeur sous la forme d'une "variable" préfixée de ":". c'est cela tes paramètres. pour le champ symbol, tu as une variable nommée Image4. mais lorsque tu affecte des valeurs à tes paramètres, tu utilises Symbol (inconnu comme paramètre) en lieu et place de Image4.

Merci Evarisnea j'ai bien lu ton message et la je crois que je suis perdu .Si je comprend bien je dois créer un Symbol.text ? Avec le chemin de l'image ?
merci d'avance

tu as consulté l'aide au moins ?

ton erreur vient du fait que tu veux accéder à un paramètre qui n'existe pas dans ton SQL, le message est clair

Citation:

Query1 parametre 'Symbol' non trouvé

ton code

Code:

ParamByName('Symbol').Assign(Image4.Picture.Bitmap);

devrait plutôt être celui-ci

Code:

ParamByName('Image4').Assign(Image4.Picture.Bitmap);

vu que ta requête fait mention d'un paramètre Image4 pour la valeur du champ Symbol
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 with DataModule2.Query1 do begin SQL.Clear; SQL.Add('Update assos_membre.DB set Sexe = :Sexe' +',Nom = :Nom' +',Prenom = :Prenom' // le champ symbol a pour paramètre Image4 ----------- +',Symbol = :Image4' +' where Idmembre = :Idmembre'); ParamByName('Sexe').AsString := Titre.Text; ParamByName('Nom').AsString := Nom.Text; ParamByName('Prenom').AsString := Prenom.Text; ParamByName('Symbol').Assign(Image4.Picture.Bitmap); ParamByName('Idmembre').AsString := Id.Caption; ExecSQL; end;

je reprend

evarisnea vraiment toutes mes excuses mais je nage grave ,pourtant je vois que tu te donne du mal pour me donné les bonnes lignes de code.
je reprend pour faire simple car j'ai surement mal expliqué mon problème je vais joindre deux petite photo.
je veux mettre a jour un champs blob graphique du nom de Symbol

http://doc-0o-bs-docs.googleusercont...ZkZDFhZGUwNTNm

avec l'image la
http://doc-08-bs-docs.googleusercont...A5MzQ3ZDJlYTg4

j'ai fais sa
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 with DataModule2.Query1 do begin SQL.Clear; SQL.Add('Update assos_membre.DB set Sexe = :Sexe' +',Nom = :Nom' +',Prenom = :Prenom' +',Symbol = :Image5' +' where Idmembre = :Idmembre'); ParamByName('Sexe').AsString := Titre.Text; ParamByName('Nom').AsString := Nom.Text; ParamByName('Prenom').AsString := Prenom.Text; ParamByName('Image4').Assign(Image5.Picture.Bitmap); ParamByName('Idmembre').AsString := Id.Caption; ExecSQL; end;
Citation:

et j'ai le message différence de type dans une expression

voila merci j'accepte d'être la honte du forum j'assume .
Dans l'attente merci pour ce qui a déjà été fait .

10/05/2010, 14h13
Rayek
Je te montre l'erreur dans ta reuqête , avec deux lignes :
Code:

1 2 +',Symbol = :Image5'
et
Code:

1 2 ParamByName('Image4').Assign(Image5.Picture.Bitmap);
Si le paramètre n'a pas le même nom, c'est un peu normal que cela ne fonctionne pas

Si tu mets Image4 il faut qu'il y ai Symbol = :Image4

Citation:
Envoyé par Rayek
Je te montre l'erreur dans ta reuqête , avec deux lignes :
Code:

1 2 +',Symbol = :Image5'
et
Code:

1 2 ParamByName('Image4').Assign(Image5.Picture.Bitmap);
Si le paramètre n'a pas le même nom, c'est un peu normal que cela ne fonctionne pas

Si tu mets Image4 il faut qu'il y ai Symbol = :Image4
Merci Rayek j ai modifier mais toujours
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 with DataModule2.Query1 do begin SQL.Clear; SQL.Add('Update assos_membre.DB set Sexe = :Sexe' +',Nom = :Nom' +',Prenom = :Prenom' +',Symbol = :Image5' +' where Idmembre = :Idmembre'); ParamByName('Sexe').AsString := Titre.Text; ParamByName('Nom').AsString := Nom.Text; ParamByName('Prenom').AsString := Prenom.Text; ParamByName('Image5').Assign(Image5.Picture.Bitmap); ParamByName('Idmembre').AsString := Id.Caption; ExecSQL; end;
Citation:

et j'ai le message différence de type dans une expression

10/05/2010, 15h05
Rayek

Si tu enlèves la partie d'insertion/Modification de l'image, est ce que l'ensemble fonctionne ?

Sinon, comme dit dans pas mal de post, ce n'est pas très bon d'insérer des images directement dans une base de données, mais qu'il est mieux de déposer les fichiers images dans un répertoire et de ne stocker que le chemin d'accès de ceux xi dans la base de données.
10/05/2010, 20h52
tarmo57

Citation:

Envoyé par Rayek

Si tu enlèves la partie d'insertion/Modification de l'image, est ce que l'ensemble fonctionne ?

Sinon, comme dit dans pas mal de post, ce n'est pas très bon d'insérer des images directement dans une base de données, mais qu'il est mieux de déposer les fichiers images dans un répertoire et de ne stocker que le chemin d'accès de ceux xi dans la base de données.

Oui si je supprime l'insertion d'image l'ensemble fonctionne bien

la tous fonctionne

je crois avoir trouver le problème
j'ai fais
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 with DataModule2.Query1 do begin SQL.Clear; SQL.Add('Update assos_membre.DB set Sexe = :Sexe' +',Nom = :Nom' +',Prenom = :Prenom' +',Symbol = :Image5' +' where Idmembre = '+Id.Caption+''); //ParamByName('Id').AsString:=Id.Caption; ParamByName('Sexe').AsString:=Titre.Text; ParamByName('Nom').AsString:=Nom.Text; ParamByName('Prenom').AsString:=Prenom.Text; ParamByName('Image5').Assign(Image5.Picture.Bitmap); Prepare; ExecSQL; Close;
je supprime le paramètre de Id.caption et sa fonctionne. bazar pourtant Id.caption donnée bien le bon id à chaque fois je ne comprend pas.
Merci à tous pour votre aide

11/05/2010, 09h19
Rayek
Au lieu d'écrire
Code:

1 2 ParamByName('Idmembre').AsString := Id.Caption;
Tu aurais du écrire
Code:

1 2 ParamByName('Idmembre').AsInteger := StrToInt(Id.Caption);
Vu que ton champ est numérique, tu dois quand même passer un paramètre de ce type
11/05/2010, 09h39
tarmo57

ok merci à tous pour un sujet difficile pour moi.Merci de votre patience