Pobierz obraz z bazy danych dostępu
Zapisuję zdjęcie w bazie danych dostępu i wszystko jest w porządku, ale kiedy chcę je odzyskać, nie mogę.
To jest mój kod, aby zapisać obraz w bazie danych. Potrzebuję kodu, aby pobrać go do PictureBox w 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