1     REM Закачка в БД
  2     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  3         Dim iFileLen As Integer
  4         Dim byteBuffer() As Byte
  5         'Dim brReader As BinaryReader
  6         Dim stStream As Stream
  7         Dim sqlConnection As SqlClient.SqlConnection
  8         Dim sqlCommand As SqlClient.SqlCommand
  9         Dim sConnectString As String
 10         Dim sSql As String
 11         If TextBox1.Text <> "" And TextBox5.Text <> "" And TextBox6.Text <> "" Then
 12             stStream = File.Open(TextBox1.Text, FileMode.Open)
 13             iFileLen = stStream.Length
 14             ReDim byteBuffer(iFileLen - 1)
 15             stStream.Read(byteBuffer, 0, iFileLen)
 16             stStream.Close()
 17             'brReader = New BinaryReader(File.OpenRead(File1.PostedFile.FileName))
 18             'здесь можно было бы в цикле заполнить
 19             'stStream = File1.PostedFile.InputStream
 20             Try
 21                 sConnectString = "Server=MAXPRO;Integrated Security=True;Database=master"
 22                 sqlConnection = New SqlClient.SqlConnection
 23                 sqlConnection.ConnectionString = sConnectString
 24                 sqlConnection.Open()
 25                 TextBox2.Text = "Подключение к БД: " & sqlConnection.State & ". "
 26                 sqlCommand = New SqlClient.SqlCommand
 27                 sqlCommand.Connection = sqlConnection
 28                 sSql = "INSERT INTO Картинки ( Картинка, Тип, Название, Описание ) SELECT @kar AS Выражение1, @tip AS Выражение2, @naz AS Выражение3, @opi AS Выражение4;"
 29                 sqlCommand.CommandText = sSql
 30                 sqlCommand.Parameters.AddWithValue("@kar", byteBuffer)
 31                 sqlCommand.Parameters.AddWithValue("@tip", TextBox6.Text)
 32                 sqlCommand.Parameters.AddWithValue("@naz", TextBox3.Text)
 33                 sqlCommand.Parameters.AddWithValue("@opi", TextBox4.Text)
 34                 sqlCommand.ExecuteNonQuery()
 35                 sqlCommand = Nothing
 36                 TextBox2.Text &= "Запрос прошёл."
 37             Catch err As Exception
 38                 TextBox2.Text &= "Ошибка: " & err.Message & "."
 39             Finally
 40                 If Not (sqlConnection Is Nothing) Then
 41                     sqlConnection.Close()
 42                     sqlConnection = Nothing
 43                 End If
 44             End Try
 45         End If
 46     End Sub
 47