Image Access dans une pictureBox

**jlm22** · 28/07/2011, 17h01

Bonjour,

Je souhaiterai récupérer une image qui est enregistré dans ma base de donnée Access, puis la mettre dans ma pictureBox. Mais je n'arrive pas à trouver la bonne syntaxe :

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
 
Try
            Dim cmd As OleDbCommand
            Dim reader As OleDbDataReader
 
            cmd = con.CreateCommand()
            cmd.CommandText = "SELECT Image FROM Film WHERE Nom = '" & Lb_Film.Text & "'"
 
            reader = cmd.ExecuteReader
 
            If reader.Read Then
                Dim imgByteArray() As Byte
                Try
                    imgByteArray = CType(reader(0), Byte())
                    Dim stream As New MemoryStream(imgByteArray)
                    Dim bmp As New Bitmap(stream)
                    Pb_Affiche.Image = bmp
                    stream.Close()
                Catch ex As Exception
                    MessageBox.Show(ex.Message)
                End Try
            End If
 
            reader.Close()
            cmd.Dispose()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try