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 |
Partager