ขอดูตัวอย่าง Code ของการ Insert พวกไฟล์ pdf และ พวก word excel ลงไปในฐานข้อมูลหน่อยครับ

'txtPathFile เป็น textbox เก็บ path ตอน brows
Dim filePath As String = txtPathFile.Text.Trim()
        Dim name() As String = Split(filePath, "\")
        Dim filename As String = Path.GetFileName(filePath)

        Dim fs As FileStream = New FileStream(filePath, FileMode.Open, FileAccess.Read)
        Dim br As BinaryReader = New BinaryReader(fs)
        Dim bytes() As Byte = br.ReadBytes(CInt(fs.Length))Code (VB.NET)

        MessageBox.Show(bytes.Length.ToString)
        br.Close()
        fs.Close()

        'insert the file into database
        tr = Conn.BeginTransaction
        Try
            Dim strQuery As String = "INSERT INTO tblFileScan(JobNo, NameFile,FileBinary,CreateBy,CreateDate) values (@JobNo, @NameFile, @FileBinary, @CreateBy, @CreateDate)"

            com = New SqlCommand
            With com
                .Connection = Conn
                .CommandText = strQuery
                .CommandType = CommandType.Text
                .Transaction = tr
                .Parameters.Add("@JobNo", SqlDbType.VarChar).Value = "1234"
                .Parameters.Add("@NameFile", SqlDbType.VarChar).Value = name(name.Length - 1)
                ' Parameters.Add("@FileType", SqlDbType.VarChar).Value = "application/vnd.ms-excel"
                .Parameters.Add("@FileBinary", SqlDbType.Image).Value = bytes
                .Parameters.Add("@CreateBy", SqlDbType.VarChar).Value = DBConnString.UserName
                .Parameters.Add("@CreateDate", SqlDbType.DateTime).Value = Now
                .ExecuteNonQuery()
            End With
            tr.Commit()
        Catch ex As Exception
            MessageBox.Show(ex.ToString, "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            tr.Rollback()
        End Try