Ouvrir,Enregistrer une image pour chaque employé

Question

Bonjour tout le monde,

Voila j'ai une interface de gestion d'employés ,alors il me faut un code pour le téléchargement d'une photo pour chaque employé, voilà ce que j'ai fais:

[list]
un contrôle pictureBox = (Picture1)
un boutton parcourir =(Command1)
un CommonDialog =(CommonDialog1)
/list

et voila mon code source pour parcourir (et ça marche trés bien):

 Private Sub Command1_Click() 


  ' Attribue à CancelError la valeur True

  CommonDialog1.CancelError  = True
  On Error GoTo ErrHandler
  ' Définit la propriété Flags

  CommonDialog1.flags = cdlOFNHideReadOnly
  ' Définit les filtres

  CommonDialog1.Filter = "Tous les fichiers (*.*)"
  ' Définit le filtre par défaut

  CommonDialog1.FilterIndex = 2
  ' Affiche la boîte de dialogue Ouverture

  CommonDialog1.ShowOpen
  ' Affiche le nom du fichier sélectionné

  Text1 = CommonDialog1.FileName
  Picture1.Picture = LoadPicture(CommonDialog1.FileName)
  Exit Sub
  
ErrHandler:
  'L'utilisateur a cliqué sur Annuler

  Exit Sub

  
et si je rajoute :
SavePicture Picture1.Image, (App.Path & "\ETAT	est.bmp")

ca marche a merveille ,mais pour une seul image ,si on rajoute une autre il ecrase la 1ere.

moi il me faut une image par personne, et je sais pas comment procéder , merci de m'aider c urgent 


j'attend vos mail

cs_betty9 · Answer

ah autre chose j'ai déclarer le champ dans la table employé comme "objet OLE" ?? est ce juste ?????

winvsmac · Answer

hello

peut etre que de mettre test.bmp il faudrait lui donner un nom différent à chaque fois, par exemple NOM_PRENOM.bmp

Moi je ne stocke par les images directement dans la base, je stocke un lien qui pointe vers le fichier photo. 

Jerome

winvsmac · Answer

essaye ceci :

SavePicture Picture1.Image, (App.Path & "\ETAT" & CommonDialog1.FileName)

cs_betty9 · Answer

Merci les gars pour les reponses

Jerome,moi aussi je récupere le lien ici :

Text1 = CommonDialog1.FileName

donc j'ai le chemin, mais je sais pas comment mettre la liaison 1chemin -> concerne -> 1employé spésific tu voix le probléme, montre moi comment tu fais pour que:

1-au moment du click sur le MsFlexGrid pour choisir un employé au même temps on affiche sa photo a côté

2-dois-je déclarer le champ comme objet OLE ou bien Text

winvsmac,merci pour la réponse mais ca ne marche toujours pas

cs_betty9 · Answer

désolée j'ai pas vu que c'est la même personne

Claiyah · Answer

tu enregistre les photo des employés avec leur prenom ou nom ou code et quand tu les charge tu n'a qu'a charger la photo à partir du répertoire des photos suivant le nom selectioné, 
par exemple:
employé : robert
photo : c:\photo employé\robert.jpg


 No comment

cs_betty9 · Answer

je suis tout a fait d'accord mais, comment faire pour enregistrer la photo sous le nom_prénom de la personne ici j'ai:

SavePicture Picture1.Image, (App.Path & "\ETAT	est.bmp")

mes champs nom_prénom s'appel  :

Nom : INTE_NOM
Prénom : INTE_PRENOM

je dois remplacer test par quoi alors ????

Ouvrir,Enregistrer une image pour chaque employé

7 réponses

Votre réponse

Discussions similaires