[Débutant] gestion des photos par Access.

1 pièce(s) jointe(s)

gestion des photos par Access.

bonjour
pour gerer des images dans une base access ,je saisis une référence de l'image dans la base access et en utilisant ado.net je parcoure les images.

Code:

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
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
 
Imports System
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Private Macon As OleDbConnection
    Private CmdPhoto As OleDbCommand
    Private DtAPhoto As OleDbDataAdapter
    Private DsPhoto As DataSet
    Private CmdBuildPhoto As OleDbCommandBuilder
    Private StrSql As String = ""
    Private RowNumber As Integer = 0
    Private Sub BtQuiter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtQuiter.Click
        End
    End Sub
 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Macon = New OleDbConnection
        StrSql = "select * from [les photos]"
        Try
            Macon.ConnectionString = "Provider=Microsoft.jet.oledb.4.0;data source =" & My.Application.Info.DirectoryPath & "\MesPhotos.mdb"
            Macon.Open()
            CmdPhoto = New OleDbCommand(StrSql, Macon)
            DtAPhoto = New OleDbDataAdapter(CmdPhoto)
            DsPhoto = New DataSet
            DtAPhoto.Fill(DsPhoto, "Les Photos")
            If RowNumber < 0 Then Exit Sub
            If RowNumber > DsPhoto.Tables("Les Photos").Rows.Count - 1 Then Exit Sub
            TxtNum.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("numéro").ToString
            TxtNom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Nom").ToString
            TxtPrénom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("prénom").ToString
            Dim monimage = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo").ToString
 
            PicPhoto.Load(My.Application.Info.DirectoryPath & "\Photos\" & DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo"))
        Catch ex As Exception
            MsgBox(ex.Message, vbCritical, "Gestion des Photos")
            Exit Sub
        Finally
            'Macon.Close()
        End Try
 
    End Sub
 
    Private Sub BtMoveFirst_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtMoveFirst.Click
        On Error GoTo err
        RowNumber = 0
        If RowNumber = -1 Then Exit Sub
        TxtNum.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("numéro").ToString
        TxtNom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Nom").ToString
        TxtPrénom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("prénom").ToString
        Dim monimage = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo").ToString
 
        PicPhoto.Load(My.Application.Info.DirectoryPath & "\Photos\" & DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo"))
        Exit Sub
err:
        GerrerErreur()
    End Sub
 
    Private Sub BtMovePrevious_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtMovePrevious.Click
        On Error GoTo err
        RowNumber -= 1
        If RowNumber = -1 Then Exit Sub
        TxtNum.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("numéro").ToString
        TxtNom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Nom").ToString
        TxtPrénom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("prénom").ToString
        Dim monimage = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo").ToString
        PicPhoto.Load(My.Application.Info.DirectoryPath & "\Photos\" & DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo"))
        Exit Sub
err:
        GerrerErreur()
    End Sub
 
    Private Sub BtMoveNext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtMoveNext.Click
        On Error GoTo err
        RowNumber += 1
        If RowNumber > DsPhoto.Tables("Les Photos").Rows.Count - 1 Then Exit Sub
        TxtNum.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("numéro").ToString
        TxtNom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Nom").ToString
        TxtPrénom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("prénom").ToString
        Dim monimage = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo").ToString
        PicPhoto.Load(My.Application.Info.DirectoryPath & "\Photos\" & DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo"))
        Exit Sub
err:
        GerrerErreur()
    End Sub
 
    Private Sub BtMoveLast_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BtMoveLast.Click
        On Error GoTo err
        RowNumber = DsPhoto.Tables("Les Photos").Rows.Count - 1
        If RowNumber > DsPhoto.Tables("Les Photos").Rows.Count - 1 Then Exit Sub
        TxtNum.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("numéro").ToString
        TxtNom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Nom").ToString
        TxtPrénom.Text = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("prénom").ToString
        Dim monimage = DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo").ToString
 
        PicPhoto.Load(My.Application.Info.DirectoryPath & "\Photos\" & DsPhoto.Tables("Les Photos").Rows(RowNumber).Item("Photo"))
        Exit Sub
err:
        GerrerErreur()
    End Sub
    Sub GerrerErreur()
        PicPhoto.Load(My.Application.Info.DirectoryPath & "\Photos\Error.jpg")
    End Sub
End Class

j'attends vous commentaires pour m'améliorer et merçi.

Bonjour,

Citation:

j'attends vous commentaires pour m'améliorer

c'est pas une vrai problématique ça :?

En ce qui concerne ton code, tu ne commente rien.... c'est pas super.
La ça va parce-que ton code est tout petit, mais si tu fait 300-400 lignes, ne nous demande pas de regarder le code :mrgreen:

Ensuite il y a un soucis, dans ton appli.
Quand tu arrive au dernier enregistrement, tu a la possibilité de continuer... :?
Même si tu n'a rien, tu peux continuer... C'est sur tu n'a pas d'erreurs mais c'est un bug pour moi.

Et les On Error Goto... :aie:
On Erro Goto vient de vb6 et il faut oublier. Utilise Try/Catch comme tu l'a fait avant.