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

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

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