sb.Text = "connecting to database..."

sb.Refresh()

'Если соединение не открыто, открываем

If conn.State <> ConnectionState.Open Then

 conn.Open()

End If

sb.Text = "loading image..."

sb.Refresh()

'Создание и подготовка к вызову хранимой процедуры

Dim cmd As New SqlClient.SqlCommand("AddBlob", conn)

cmd.CommandType = CommandType.StoredProcedure

'Сохранение изображения в поток в памяти в формате BMP

Dim stream As New MemoryStream()

img1.Image.Save(stream, Imaging.ImageFormat.Bmp)

stream.Seek(0, SeekOrigin.Begin)

'Подготовка параметров

cmd.Parameters.Add("@img", SqlDbType.Image)

With cmd.Parameters("@img")

 .Direction = ParameterDirection.Input

Поделитесь этой записью или добавьте в закладки