Insertion d'image dans un champ de type Objet OLE apartir du code VB (Tech ADO)

Dans mon exemple j'ai utlisé l'objet ADO.
supposant qu'on a une table nomée "users" dont les champs sont:

table : users
-------------------------
champs | type
-------------------------
code | Text
nom | Text
img | Objet OLE
--------------------------

l'image à inseré se trouve dans un repértoire "images" dans le répértoire de l'application
soi rs : est un recordset attaché à la table users

sCode = "001"
sNom = "Hassi Noureddine"
sImg = App.Path & "\images\mon_imag.bmp"

rs.AddNew
rs!code = sCode
rs!nom = sNom

Dim lgFic AS Long

lgFic = FreeFile
Open sImg For Binary As lgFic

rs("file_img").AppendChunk InputB(LOF(lgFic), lgFic)

rs.Update
Close lgFic

-------------------------------
Réponse au message :
-------------------------------

> Dans mon exemple j'ai utlisé l'objet ADO.
> supposant qu'on a une table nomée "users" dont les champs sont:
>
> table : users
> -------------------------
> champs | type
> -------------------------
> code | Text
> nom | Text
> img | Objet OLE
> --------------------------
>
> l'image à inseré se trouve dans un repértoire "images" dans le répértoire de l'application
> soi rs : est un recordset attaché à la table users
>
> sCode = "001"
> sNom = "Hassi Noureddine"
> sImg = App.Path & "\images\mon_imag.bmp"
>
> rs.AddNew
> rs!code = sCode
> rs!nom = sNom
>
> Dim lgFic AS Long
>
> lgFic = FreeFile
> Open sImg For Binary As lgFic
>
> rs("file_img").AppendChunk InputB(LOF(lgFic), lgFic)
>
> rs.Update
> Close lgFic