Discussion :

[hugnka]

Salut à tous,

Je suis en train de mettre en place un logiciel de gestion associé à une base de données Access.

J'ai une table MEMBRE avec plusieurs champs dans le champs "image". Mon but est d'enregistrer la photo du membre. Après avoir fouillé sur le net on me dit qu'il n'est conseillé d'enregistrer les images directement dans la base de données mais le chemin de images.

Etant débutant je ne sais pas comment le faire c'est pourquoi je sollicite votre aide .Merci d'avance.
NB:j'utilise la méthode ADO

[Invité]

Bonjour

Le conseil est excellent, stock le chemin et non l'image.

Pour avoir un peu d'aide de la part des membres du forum il faudrait que tu donnes un peu plus d'infos.

La théorie serait :

Sélection du membre (ce qui permettrai de connaitre le nom et son identifiant).
Sélection de la photo grâce à une boite de dialogue de type ouvrir pour récupérer le chemin.
Une requête de type mise à jour (Update) pour incorporer le chemin dans ta base.

Philippe

[hugnka]

franchement je ne comprend rien dans ce procédé mais je vous envoi quelques codes
.Pour la commande ENREGISTRER

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
 
Private Sub EnregistreMembre()
seconnecter
Dim rs As ADODB.Recordset
Set rs = New Recordset
rs.Open "Select * From MEMBRE", con, adOpenDynamic, adLockOptimistic
 
trouver = False
Do While Not rs.EOF And trouver = False
    If rs("Matricule") = Text1 Then
            trouver = True
            MsgBox "Ce membre existe déjà!", vbInformation
 
            Exit Sub
            Else
        rs.MoveNext
    End If
Loop
 
If trouver = False Then
 If Text1 = "" Or Text2 = "" Or Text3 = "" Or Text4 = "" Or Text10 = "" Or Text12 = "" Or Combo1 = "" Or Combo2 = "" Or Combo3 = "" Or Combo4 = "" Then
    MsgBox "Veuillez remplir les champs vides pour renseigner ce membre.", vbInformation
 Else
            rs.AddNew
                rs("Matricule") = Text1
                rs("Nom") = Text2
                rs("Prenom") = Text3
                rs("datnais") = Text4
                rs("sexe") = Combo1
                rs("adrememb") = Text5
                rs("charisme") = Text11
                rs("moisad") = Combo2
                rs("telmemb") = Text6
                rs("telbur") = Text7
                rs("celmemb") = Text8
                rs("typmemb") = Combo3
                rs("profes") = Text9
                rs("lieuhab") = Text10
                rs("nbreenf") = Text12
                rs("statmar") = Combo4
                rs("prof") = Combo5
           rs.Update
 
            MsgBox "Membre enregstré!", vbInformation
End If
End If
 
rs.Close
con.Close
 
        Set rs = Nothing
       Set con = Nothing
 
End Sub

Comment faire pour que lors de la saisie du membre on puisse lui attribuer sa photo?
Je suis disposé à vous donner tous les détails dont vous avez besoin. Je peux aussi si vous le voulez, envoyer le projet compressé pour que vous pussiez voir les détails. Merci d'avance

[OhMonBato]

Bonjour,

tu trouveras un exemple dans cette discussion. Dans le principe, comme il t'a ete dit, on ne stocke pas l'image elle meme dans la base de donnees mais le chemin du fichier image ce qui est beaucoup plus leger a stocker.
Dans l'exemple cite au debut de mon message, on prend l'image dans n'importe quel repertoire et elle est ensuite copiee dans un sous reprtoire de l'application (donc plus facile a faire passer d'une machine a une autre par la suite) et c'est cette adresse qui est stockee dans la base de donnee, du style app.path & "\images\mon_image.jpg"

[hugnka]

Après des recherches sur ce forum j'ai vu ce sujet mais l'adaptation de ce code au mien m'a causé d'énormes problèmes car il y a un message d'erreur qui apparaît quand je tente de compilé(user-defined type not defined).Voici comment j'ai coordonné le code pour le form_load

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 Private Sub Form_Load()
Option Explicit
Dim FSO As New FileSystemObject
Dim ChPhotos As String
If Me.Txtimg.Text <> "" Then
ChPhotos = App.Path & "\images\" & Txtimg.Text
  Image1.Picture = LoadPicture(ChPhotos)
Else
ChPhotos = App.Path & "\images\anonymous.jpg"
End If
    If nemp <> "" Then
        AfficheMembre
        MSHFlexGrid1.Visible = False
 
    End If
End Sub

Une question où dois-je déclarer la variable ci dessus en ligne 3 ?

[SfJ5Rpw8]

Menu projet/ Référence / Microsoft Scripting Runtime ..