'******************************************************************* 
'Как сохранить/загрузить картинку в/из БД?
'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()