I am grtting the following error:
SeverityCodeDescriptionProjectFileLineSuppression StateErrorBC30311 Value of type 'Byte()' cannot be converted to 'Byte'.
This is my code:
Private Sub InsertMedicalResults()
Dim filename As String = Path.GetFileName(FileUpload1.PostedFile.FileName)
Dim contentType As String = FileUpload1.PostedFile.ContentType
Dim fs As Stream = FileUpload1.PostedFile.InputStream
Dim br As New BinaryReader(fs)
Dim bytes As Byte() = br.ReadBytes(DirectCast(fs.Length, Long))
Dim dueDate As DateTime = DateTime.Now.AddDays(365)
Try
mLMS = New aplLumotechMedicalSurveillance(My.Settings.HRDB)
mLMS.InsertMedicalResults(filename, contentType, bytes)
Catch ex As Exception
Throw ex
End Try
End Sub
I am getting the error on the 3rd parameter "bytes" :
Public Function InsertMedicalResults( ByVal documentName As String, ByVal documentType As String, ByVal document As Byte) As Integer
Try
m_oLMS = New dalLumotechMedicalSurveillance(##)
Return m_oLMS.InsertMedicalResults(documentName, documentType, document)
Catch ex As Exception
Throw ex
Finally
m_oLMS = Nothing
End Try
End Function