Private Sub File2SqlBlob(ByVal FileInformation As FileInfo)
Dim cn As New SqlConnection(My.Settings.DocStoreConnectionString.ToString())
Dim cmd As New SqlCommand("INSERT INTO Documents (DocName, DocContentType, DocSize, DocData, CreateDate, UploadDate)" & _
"VALUES (@DocName, @DocContentType, @DocSize, @DocData, @CreateDate, @UploadDate)", cn)
Dim fs As FileStream = New FileStream(FileInformation.FullName, FileMode.Open, FileAccess.Read)
Dim b(fs.Length - 1) As Byte
fs.Read(b, 0, b.Length)
fs.Close()
cmd.Parameters.AddWithValue("@DocName", FileInformation.Name)
cmd.Parameters.AddWithValue("@DocContentType", MimeType(FileInformation.Extension))
cmd.Parameters.AddWithValue("@DocSize", b.Length)
cmd.Parameters.AddWithValue("@DocData", b)
cmd.Parameters.AddWithValue("@CreateDate", FileInformation.CreationTime)
cmd.Parameters.AddWithValue("@UploadDate", Date.Now)
cn.Open()
cmd.ExecuteNonQuery()
cn.Close()
End Sub