Comment Enregistrer un champ type BLOB avec Query ???

j'ai mis la tête ce matin à chercher jusqu'ç ce que j'ai abouti à cette solution et marche très très bien :
donc :
j'ai déposé un Timage, et un TDBimage
après le chargement de l'image bien sûr dans le TDBimage1 comme suit :

Code:

---

1 2 3 4

If OpenPictureDialogue1.execute THEN Image1.picture.LoadFromFile(OpenPictureDialogue1.FileName); TDBImage.picture := image1.picture;

---

Dans l'évènement OnClick du Boutton pour enregistrer, je sauvegarde tous les champs excepter le champ Image que je laisse en dernier,

Code:

---

1 2 3 4 5

Query1.Close; Query1.ParamBYname('Mon_Premier').text := Edit1.text ; Quey1.ParamByName('Mon_deuxieme').text := Edit2.text; Query1.ExecSQL;

---

après ces instruction le pointeur qui se déplace dans le dbgrid ce déplace quelque part, donc tDBimage ce déplace vers un autre endroit c'est pour ça qu'on a garder une copie dans le Image1 la-haut, dont il faut remettre le pointeur à sa place sur l'enregistrement en cours, je l'ai fait avec :

FindKey([EditCle.text]) //déplace le pointure vers le champ indexé comme clé,puis

Code:

---

1 2 3 4 5

Table1.Edit ; DBImage1.Picture := Image1.picture ; Table1.post; C Tout

---

donc l'astuce été :
1- Execution de la requette en premier pour sauvegarder tous les champs, excepter le champ Image
2- Remettre le pointeur sur l'entregistrement en cours d'enregsitrement
3- Effectuer une edition de la table puis sauvegarde du champ Photo

OpenPictureDialog .FileName est le nom du fichier qui contient l'image, pas l'image elle-même. Tu cherches donc à enregistrer un String dans un champ Blob. Je suppose que l'erreur vient de là.

Roland

Citation:

---

Envoyé par rsc

Tu cherches donc à enregistrer un String dans un champ Blob. Je suppose que l'erreur vient de là.

Roland

---

C'est exactement cela.
Une astuce: Poser un TDBImage sur la fiche et l'associer au dataset correspondant. Un double-clic sur ce tDBImage ouvre automatiquement le dialogue qui va bien et enregistre l'image.

justement, je l'est aussi essayé comme suit : j'ai relié TDBimage1 au DataSet correspondant et DataField au champ "Photo"

Code:

---

1 2 3 4 5 6

Query1.Close; Query1.ParamByName('Mon_Deuxieme').text := Edit1.text; Query1.ParamByName('Mon_Troisieme').text := Edit2.text;   TDBImage1.Picture.LoadFromFile(OpenPictureDialogue1.FileName); Query1.ExecSQL;

---

Ici ça marche, aucune erreur, mais, lorsque je me déplace avec un DBNavigator dans le DBGrid il m'affiche une erreur "le type du Bitmap incorrect". j'ai vérifé l'image elle porte exactement l'extension BMP.