Discussion :

[chuspyto]

bonjour,

j'essaie d'utiliser une picture box pour recuperer une image venant d'une table access mais j'ai un message qui me demande si j'ai bien un fichier a cet endroit

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
 Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
        Dim cmd As OleDbCommand = cn.CreateCommand
        Dim titre As String = "titre : "
        Dim Xwmp As IWMPMedia
        cmd.CommandText = "SELECT clip FROM test WHERE [n°] =2"
        Dim LectureLigne As OleDbDataReader = cmd.ExecuteReader
        While LectureLigne.Read()
            Xwmp = AxWindowsMediaPlayer3000.newMedia(LectureLigne(0))
            AxWindowsMediaPlayer3000.currentPlaylist.insertItem(0, Xwmp)
        End While
        cmd.CommandText = "SELECT clip FROM testa WHERE [n°] =1"
        Dim LectureLignejpg As OleDbDataReader = cmd.ExecuteReader
        While LectureLignejpg.Read()
            Me.PictureBox1.Image = Image.FromFile("SELECT clip FROM testa WHERE [n°] =1")
 
        End While
 
        LectureLigne.Close()
        LectureLignejpg.Close()
        cn.Close()
 
 
    End Sub

merci