Получить изображение из базы данных доступа
Я сохраняю изображение в базе данных доступа, и все в порядке, но когда я хочу получить его, я не могу.
Это мой код для сохранения картинки в базе данных. Мне нужен код, чтобы получить его в PictureBox в vb.net
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Try
OpenFileDialog1.Filter = "image file (*.jpg, *.bmp, *.png) | *.jpg; *.bmp; *.png| all files (*.*) | *.* "
If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)
PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
End If
Catch ex As Exception
End Try
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Dim fsreader As New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.Read)
Dim breader As New BinaryReader(fsreader)
Dim imgbuffer(fsreader.Length) As Byte
breader.Read(imgbuffer, 0, fsreader.Length)
fsreader.Close()
con.ConnectionString = "provider=microsoft.ace.oledb.12.0; data source = |datadirectory|\test.accdb;"
con.Open()
Dim sql As String
sql = "insert into TS Values(" & TextBox1.Text & ",'" & imgbuffer.Length & "')"
Dim cmd As New OleDbCommand(sql, con)
cmd.ExecuteNonQuery()
cmd.Dispose()
con.Close()
End Sub