把你要存储的那个字段用image来保存。然后用 Try Dim DBRow As DataRow = DataSetName.DataTableName.NewRow Dim fs As New IO.FileStream("你要上传的文件名",IO.FileMode.OpenOrCreate,IO.FileAccess.Read) Dim mydata(fs.Length) As Byte fs.Read(mydata, 0, fs.Length) fs.Close() DBRow.Item("字段名") = mydata DataSetName.DataTableName.Rows.Add(DBRow) SqlDataadapter.Update(DataSetName.DataTableName) Catch ex As Exception Windows.Forms.MessageBox.Show(ex.Message) End Try下载用: Try SqlDataAdapter.Fill(DataSetName.DataTabelName) Dim mydata() As Byte = DataSetName.DataTabelName.Rows(0).Item("字段名") Dim fs As New IO.FileStream("保存的文件名",IO.FileMode.OpenOrCreate,IO.FileAccess.Write) fs.Write(mydata, 0, mydata.Length) fs.Close() Catch ex As exception windows.forms.messagebox.show(ex.messagebox) End Try
http://dotnet.aspx.cc/ShowDetail.aspx?id=ECD9AE16-8FF0-4A1C-9B9F-5E8B641CB1B1http://dotnet.aspx.cc/ShowDetail.aspx?id=ECD9AE16-8FF0-4A1C-9B9F-5E8B641CB1B1
Try
Dim DBRow As DataRow = DataSetName.DataTableName.NewRow
Dim fs As New IO.FileStream("你要上传的文件名",IO.FileMode.OpenOrCreate,IO.FileAccess.Read)
Dim mydata(fs.Length) As Byte
fs.Read(mydata, 0, fs.Length)
fs.Close()
DBRow.Item("字段名") = mydata
DataSetName.DataTableName.Rows.Add(DBRow)
SqlDataadapter.Update(DataSetName.DataTableName)
Catch ex As Exception
Windows.Forms.MessageBox.Show(ex.Message)
End Try下载用:
Try
SqlDataAdapter.Fill(DataSetName.DataTabelName)
Dim mydata() As Byte = DataSetName.DataTabelName.Rows(0).Item("字段名")
Dim fs As New IO.FileStream("保存的文件名",IO.FileMode.OpenOrCreate,IO.FileAccess.Write)
fs.Write(mydata, 0, mydata.Length)
fs.Close()
Catch ex As exception
windows.forms.messagebox.show(ex.messagebox)
End Try