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
"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;
这次我们来看看怎么把文件上传到数据库中,这边需要注意一个小地方,在上传文件到数据库的部分,数据栏位的形态若是Access请选择Ole对象,若是SQL Server请选择Image格式。接着,您可以通过下面的代码进行文件的上传:If Me.FileUpload1.PostedFile.ContentLength > 0 ThenDim cn As New Data.Ole