.
Imports System.Data
Imports System.Data.SqlClient
Public Sub Upload(ByVal sender As Object, ByVal e As System.EventArgs)
Dim b(file1.PostedFile.InputStream.Length - 1) As Byte
file1.PostedFile.InputStream.Read(b, 0, file1.PostedFile.InputStream.Length)
Dim con As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionStringSQL"))
Dim sql As String = "INSERT INTO MY_TABLE(MyID, DATABLOB) VALUES(1,@BlobData) "
Dim cmd As New SqlCommand(sql, con)
Dim parmBlob As New SqlParameter("@BlobData", SqlDbType.Image, _
b.Length, ParameterDirection.Input, False, 0, _
0, Nothing, DataRowVersion.Current, b)
cmd.Parameters.Add(parmBlob)
con.Open()
cmd.ExecuteNonQuery()
con.Close()
End Sub