Discussion :

[Parrain]

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

[Bigyork]

Suivant la version d'access que tu utilise tu ne peux peut-être pas enregistrer ta photo directement !

La solution pour éviter les problèmes et avoir une base trop grosse consiste à enregistrer le chemin d'accès de la photo dans le champ access et ensuite dans ton appli tu vas chercher la photo pour l'afficher.

Pour éviter les plantages si l'utilisateur change les photos de place, c'est de les copier dans un sous répertoire de ton appli. auxquel l'utilisateur n'aurat pas accès et d'enregistrer le nom de ta photo dans access et les recharger à partir de ce répertoire.

Si ce n'est pas clair hésite pas à demander des précisions !

[Parrain]

Merci BigYork
Je vais essayer ta solution et je vais te contacter en cas de besoin