Автор:
jmcilhinney | добавлено: 06.03.2010, 17:53 | просмотров: 9749 (1+) | комментариев:
0 | рейтинг:
x1
Пример показывает, как можно сохранить/загрузить картинку в/из базы данных, с использованием СУБД MS SQL Server.
'*******************************************************************
'Как сохранить/загрузить картинку в/из БД?
'http://kbyte.ru
'*******************************************************************
'Загрузить картинку из базы данных
Dim connection As New SqlConnection("Не забудьте указать строку соединения с БД")
Dim command As New SqlCommand("SELECT Picture FROM MyTable WHERE ID = 1", connection)
connection.Open()
Dim pictureData As Byte() = DirectCast(command.ExecuteScalar(), Byte())
connection.Close()
Dim picture As Image = Nothing
Using stream As New IO.MemoryStream(pictureData)
picture = Image.FromStream(stream)
End Using
'Сохранить картинку в БД
Dim connection As New SqlConnection("Не забудьте указать строку соединения с БД")
Dim command As New SqlCommand("UPDATE MyTable SET Picture = @Picture WHERE ID = 1", connection)
Using picture As Image = Image.FromFile("Путь к файлу картинки")
Using stream As New IO.MemoryStream
picture.Save(stream, Imaging.ImageFormat.Jpeg)
command.Parameters.Add("@Picture", SqlDbType.VarBinary).Value = stream.GetBuffer()
End Using
End Using
connection.Open()
command.ExecuteNonQuery()
connection.Close()