Реферат: Работа с объектами большого объема в MS SQL и ADO

ofd1.Filter = "(*.bmp)|*.bmp"

If ofd1.ShowDialog() = DialogResult.OK Then

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

sb.Refresh()

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

If conn.State <> ConnectionState.Open Then

conn.Open()

End If

sb.Text = "loading image..."

sb.Refresh()

Dim stream As New FileStream(ofd1.FileName, FileMode.Open)

Dim b() As Byte

ReDim b(CInt(stream.Length))

'Чтение данных из файла

stream.Read(b, 0, CInt(stream.Length))

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

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

With cmd

.CommandType = CommandType.StoredProcedure

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

With .Parameters("@img")

.Direction = ParameterDirection.Input

.Value = b

End With

'Вызов хранимой процедуры

.ExecuteNonQuery()

End With

sb.Text = "Ready"

End If