insert image to database in vb.net

See more:

C#3.0

C#

hi friends


datatype i am using image in db my requirement like this..not to store in folder

when i tried to insert image to database i am getting error like this

Conversion from type 'Byte()' to type 'Byte' is not valid

my code is

in bel

Dim _Image As Byte

Public Property image()
        Get
            Image = _Image
        End Get
        Set(ByVal value)
            _Image = value
        End Set
    End Property

in present layer
in button click

Dim len As Integer = ImgUpload.PostedFile.ContentLength
           Dim pic As Byte() = New Byte(len - 1) {}
           ImgUpload.PostedFile.InputStream.Read(pic, 0, len)
           objUserBAL.image = pic

           Dim objUserBLL As New bllCustomerInfo()
           OutPut = objUserBLL.InsertCustomerDetails(objUserBAL)

in DAL


Public Function InsertCustomerDetails(ByVal objUserDetails As balCustomerInfo) As String
Dim objUserDAL As New dalCustomerInfo()
Try
Return objUserDAL.InsertCustomerInformation(objUserDetails)

Catch ex As Exception
Throw ex
Finally
objUserDAL = Nothing
End Try

End Function


in BLL

Public Function InsertCustomerInformation(ByVal objBALUserDetails As balCustomerInfo) As String
Dim con As New SqlConnection(ConnectionString)
con.Open()
Dim cmd As New SqlCommand("spInsertCustomerInfo", con)
cmd.CommandType = CommandType.StoredProcedure
Try
'@customerId,@customerName,@totalLicReq,@validFrom,@validTo,@custComDet,@email,@cLogo,@lastUpdateon,@lastUpdateby
cmd.Parameters.AddWithValue("@customerName", objBALUserDetails.customerName)
cmd.Parameters.AddWithValue("@totalLicReq", objBALUserDetails.totalLicReq)
cmd.Parameters.AddWithValue("@validFrom", objBALUserDetails.validFrom)
cmd.Parameters.AddWithValue("@validTo", objBALUserDetails.validTo)
cmd.Parameters.AddWithValue("@custComDet", objBALUserDetails.customerCdet)
cmd.Parameters.AddWithValue("@email", objBALUserDetails.email)
cmd.Parameters.AddWithValue("@cLogo", objBALUserDetails.image)
cmd.Parameters.AddWithValue("@lastUpdateon", objBALUserDetails.lastUpdtedon)
cmd.Parameters.AddWithValue("@lastUpdateby", objBALUserDetails.lastUpdateBy)
cmd.Parameters.Add("@output", SqlDbType.VarChar, 100)
cmd.Parameters("@Err").Direction = ParameterDirection.Output
cmd.ExecuteNonQuery()
Dim strMessage As String = DirectCast(cmd.Parameters("@output").Value, String)
con.Close()
Return strMessage
Catch ex As Exception
Throw ex
Finally
cmd.Dispose()
con.Close()
con.Dispose()
End Try
End Function

can i help regarding this issue