Как залить файл в БД на Муркоде

Dmitry A.asas

Дата: 01.06.2006 15:42:09

Коллеги!

Есть табличка BigFile:
idx - identy,PK,Nut Null
FilePath - varchar, null
File - image, null

Как залить в нее файл, если есть WEb Form, на которой есть два компанента:

TextBox1 (id=txtPath)
Button (id=btnUpload)

Простейшая форма, никаких наворотов не нужно, даже файл читать не нужно.
Копируем путь в TextBox и нажимаем кнопку Upload и заливается, как сделать такое?
Написал такой код:

Private Sub ButUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs, ByVal strFilePath As String) Handles ButUpload.Click
        Try
            cn.Open()
            Dim strSQL As String = "Insert BigFile(FilePath,File) Values(@FilePath,@File)"
            Dim cmd As New SqlCommand(strSQL, cn)
            cmd.Parameters.Add("@File", SqlDbType.VarBinary)
            Dim aBytes() As Byte
            file = New IO.FileStream(strFilePath, IO.FileMode.Open)
            aBytes = Array.CreateInstance(GetType(Byte), file.Length)
            file.Read(aBytes, 0, file.Length)
            cmd.Parameters("@FileName").Value = aBytes
            cmd.ExecuteNonQuery()
        Catch ex As Exception
        Finally
            If Not cn Is Nothing Then _
                        cn.Close()
            If Not file Is Nothing Then _
            file.Close()
        End Try
    End Sub

Спасибо.