代碼如下：敬請過目！

If Me.FileUpload1.PostedFile.ContentLength > 0 Then

Dim cn As New Data.OleDb.OleDbConnection

Dim dc As Data.OleDb.OleDbCommand

Dim para As Data.OleDb.OleDbParameter

Dim SQL, FileName As String

'連線字符串

cn.ConnectionString = Me.AccessDataSource1.ConnectionString

cn.Open()

'運行 TextBox 中的 SQL 指令

FileName = Me.FileUpload1.PostedFile.FileName

SQL = "insert into FileStorage (FileName,FileBody) values ('" & FileName & "',?)"

'建立 SqlCommand 對象

dc = New Data.OleDb.OleDbCommand(sql, cn)

para = New Data.OleDb.OleDbParameter("file", Data.OleDb.OleDbType.Binary)

para.Value = Me.FileUpload1.FileBytes

dc.Parameters.Add(para)

'運行(通過 Parameters 將文件存儲到數據庫)

dc.ExecuteNonQuery()

ShowAlertMsg("上傳文件存儲完畢!")

Else

ShowAlertMsg("上傳文件不存在!")

End If

上傳至數據庫中的文件，可以通過下面的方式重新下載回來，請特別這注意這張網頁在調用的時候必須提供文件編號做為URL中的命令行參數：

Me.AccessDataSource1.SelectCommand = "select * from FileStorage where uid=" & Request.QueryString("FileID")

Dim dv As Data.DataView = Me.AccessDataSource1.Select(New DataSourceSelectArguments)

'準備下載文件

Response.ClearHeaders()

Response.Clear()

Response.Expires = 0

Response.Buffer = True

Dim fileName As String = dv.Item(0).Item("FileName")

'通過 Header 設定文件名

Response.AddHeader("content-disposition", "attachment; filename=" & Chr(34) & System.Web.HttpUtility.UrlEncode(IO.Path.GetFileName(fileName), System.Text.Encoding.UTF8) & Chr(34))

Response.ContentType = "Application/octet-stream"

'傳出要讓使用者下載的內容

Response.BinaryWrite(dv.Item(0).Item("FileBody"))

'釋放資源

Response.End()

總結

以上是生活随笔為你收集整理的vb上传文件到MySQL_ASP.NET上传文件到数据库VB版的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。