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 SubLe problème se trouve au niveau de rst.Fields("Photo") = Image1.Picture,
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
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
Partager