asp.net upload blob ลงในฐานข้อมูล access (access+blob)

Imports System.Data
Imports System.Data.SqlClient

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpload.Click
        Me.pnlForm.Visible = False

        If Me.fUpload.HasFile = False Or Me.txtName.Text = "" Then
            Me.lblStatus.Text = "Please input Name and Chooes File."
        Else

            '*** Read Binary Data ***'
            Dim imbByte(fUpload.PostedFile.InputStream.Length) As Byte
            fUpload.PostedFile.InputStream.Read(imbByte, 0, imbByte.Length)

            '*** MimeType ***'
            Dim ExtType As String = System.IO.Path.GetExtension(fUpload.PostedFile.FileName).ToLower()
            Dim strMIME As String = Nothing
            Select Case ExtType
                Case ".gif"
                    strMIME = "image/gif"
                Case ".jpg", ".jpeg", ".jpe"
                    strMIME = "image/jpeg"
                Case ".png"
                    strMIME = "image/png"
                Case Else
                    Me.lblStatus.Text = "Invalid file type."
                    Exit Sub
            End Select

            '*** Insert to Database ***'
            Dim objConn As New SqlConnection
            Dim strConnString, strSQL As String

            strConnString = "Server=localhost;UID=sa;PASSWORD=;database=mydatabase;Max Pool Size=400;Connect Timeout=600;"

            strSQL = "INSERT INTO files (Name,FilesName,FilesType) " & _
            " VALUES " & _
            " (@sName,@sFilesName,@sFilesType)"
            objConn.ConnectionString = strConnString
            objConn.Open()

            Dim objCmd As New SqlCommand(strSQL, objConn)
            objCmd.Parameters.AddWithValue("@sName", Me.txtName.Text)
            objCmd.Parameters.AddWithValue("@sFilesName", imbByte)
            objCmd.Parameters.AddWithValue("@sFilesType", strMIME)
            objCmd.ExecuteNonQuery()

            objConn.Close()
            objConn = Nothing

            Me.lblStatus.Text = "File Upload Successfully. Click <a href='ListPicture.aspx'>here</a> to view."
        End If
    End Sub

End Class

using System;
using System.Collections.Generic;
using System.Linq;
using System.Web;
using System.Web.UI;
using System.Web.UI.WebControls;
using System.Data;
using System.Data.OleDb;

namespace ASPNetBLOB
{
    public partial class _Default : System.Web.UI.Page
    {
        protected void Page_Load(object sender, EventArgs e)
        {

        }

        protected void btnUpload_Click(object sender, EventArgs e)
        {
            this.pnlForm.Visible = false;

            if (this.fUpload.HasFile == false | string.IsNullOrEmpty(this.txtName.Text))
            {
                this.lblStatus.Text = "Please input Name and Chooes File.";

            }
            else
            {
                //*** Read Binary Data ***'
                byte[] imbByte = new byte[fUpload.PostedFile.InputStream.Length + 1];
                fUpload.PostedFile.InputStream.Read(imbByte, 0, imbByte.Length);

                //*** MimeType ***'
                string ExtType = System.IO.Path.GetExtension(fUpload.PostedFile.FileName).ToLower();
                string strMIME = null;
                switch (ExtType)
                {
                    case ".gif":
                        strMIME = "image/gif";
                        break;
                    case ".jpg":
                    case ".jpeg":
                    case ".jpe":
                        strMIME = "image/jpeg";
                        break;
                    case ".png":
                        strMIME = "image/png";
                        break;
                    default:
                        this.lblStatus.Text = "Invalid file type.";
                        return;
                }

                //*** Insert to Database ***'
                OleDbConnection objConn = new OleDbConnection();
                string strConnString = null;
                string strSQL = null;

				strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + 
				Server.MapPath("App_Data/mydatabase.mdb")+";Jet OLEDB:Database Password=;";

                strSQL = "INSERT INTO files (Name,FilesName,FilesType) VALUES (@sName,@sFilesName,@sFilesType)";
                objConn.ConnectionString = strConnString;
                objConn.Open();

                OleDbCommand objCmd = new OleDbCommand(strSQL, objConn);
                objCmd.Parameters.Add("@sName", OleDbType.VarChar).Value = this.txtName.Text;
                objCmd.Parameters.Add("@sFilesName", OleDbType.Binary).Value = imbByte;
                objCmd.Parameters.Add("@sFilesType", OleDbType.VarChar).Value = strMIME;
                objCmd.ExecuteNonQuery();

                objConn.Close();
                objConn = null;

                this.lblStatus.Text = "File Upload Successfully. Click <a href='ListPicture.aspx'>here</a> to view.";
            }
        }

    }
}