Image Access dans une pictureBox

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:

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

il me met "le paramètre n'est pas valide" à la ligne

Code:

Dim bmp As New Bitmap(stream)

Merci pour votre Aide.

Salut,

As-tu une valeur imgByteArray si tu verifies en mettant un point d'arrêt juste après :

Code:

imgByteArray = CType(reader(0), Byte())

Oui, imgByteArray = {Length=2074938}