Salut à tous,
Voilà, je suis entrain de construire une application en VB6
utilisant une BD Access contenant une table ayant un champ photo (OLE).
Dans ma form VB, je voudrais afficher cette photo et pouvoir la modifier (changer de photo) et sauvegarder.
J'utilise pour cela un control Image et 2 boutons LoadPicture et SavePicture.
Voici le code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
 
Private Sub CmdLoadPicture_Click()
    CommonDialog1.ShowOpen
    Image1.Picture = LoadPicture(CommonDialog1.FileName)
  End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
 
Private Sub CmdSavePicture_Click()
    stSQL = "SELECT * FROM maTable WHERE ...."
    rst.Open stSQL, cnx, adOpenKeyset, adLockOptimistic
    rst.Fields("Photo") = Image1.Picture
    rst.update
End Sub
Le problème se trouve au niveau de rst.Fields("Photo") = Image1.Picture,
j'obtiens une erreur et je ne sais pas si je suis sur la bonne voix.
Est ce quelqu'un peu m'eclairer un peu, je debute en VB.
Merci