Загрузка картинки из PictureBox в базу данных - Visual Basic .NET
Формулировка задачи:
Здравствуйте.
Необходимо загрузить картинку из PictureBox в базу данных,.
Как загрузить из
файла на диске
я разобрался:а вот как загрузить из
PictureBox
никак не могу понять. Подскажите, буду весьма признателен.Решение задачи: «Загрузка картинки из PictureBox в базу данных»
textual
Листинг программы
Imports System.Data.OleDb Imports System.IO Imports System.Data.Common '… Private Sub Write_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim conn As New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Path.Combine(Application.StartupPath, "dbImg.mdb") & "; Password=;") Dim cmd As New OleDbCommand("INSERT INTO `tst1` ( `Img` ) VALUES ( ? ) ", conn) Dim DbParameter As New OleDbParameter("Img", OleDbType.VarBinary) Dim imagePB As Image = PictureBox1.Image Dim ms As New MemoryStream() imagePB.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg) DbParameter.Value = ms.ToArray() cmd.Parameters.Add(DbParameter) conn.Open() cmd.ExecuteNonQuery() conn.Close() ms.Dispose() End Sub Private Sub Load_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim conn As New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Path.Combine(Application.StartupPath, "dbImg.mdb") & "; Password=;") Dim cmd As New OleDbCommand("SELECT Img FROM tst1 WHERE ID = 3", conn) conn.Open() Dim DbReader As OleDbDataReader = cmd.ExecuteReader() If DbReader.HasRows Then Dim ms As New MemoryStream() For Each record As DbDataRecord In DbReader ms.Write(DirectCast(record("Img"), Byte()), 0, DirectCast(record("Img"), Byte()).Length) Next PictureBox1.Image = Image.FromStream(ms) ms.Dispose() Else MsgBox("Нет данных!") End If conn.Close() End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д