打开的一篇word文档,保存到数据库的某个字段中
来源:互联网 发布:海康税控开票软件 编辑:程序博客网 时间:2024/05/16 14:55
从网上看到这段代码,非常经典实用,要做文档加密管理的朋友可以获得不少灵感。
方法一:
最好把整个Word文档保存到数据库,这样就不会丢失Wrod中的格式及所有其它的一些内容。
完整的代码如下:如果是用SQL那么保存文件的字段类型应该是Binary。如果是用Access,那么保存文件的字段应该用OLD对象,在表中显示为长二进制数据。
'将任何文件从数据库中下载到本地:
Public Function LoadFile(ByVal col As ADODB.Field, ByVal FileName As String) As Boolean '获得binary数据
On Error GoTo myerr:
Dim arrBytes() As Byte
Dim FreeFileNumber As Integer
lngsize = col.ActualSize
arrBytes = col.GetChunk(lngsize)
FreeFileNumber = FreeFile
Open FileName For Binary Access Write As #FreeFileNumber
Put #FreeFileNumber, , arrBytes
Close #FreeFileNumber
LoadFile = True
myerr:
If Err.Number <> 0 Then
LoadFile = False
Err.Clear
End If
End Function
'将文件从本地上传到数据库中
Public Function UpLoadFile(ByVal FileName, ByVal col As ADODB.Field) As Boolean
On Error GoTo myerr:
Dim arrBytes() As Byte
Dim FreeFileNumber As Integer
FreeFileNumber = FreeFile
Open FileName For Binary As #FreeFileNumber
n = LOF(FreeFileNumber)
ReDim arrBytes(1 To n) As Byte
Get #FreeFileNumber, , arrBytes
Close #FreeFileNumber
col.AppendChunk (arrBytes)
UpLoadFile = True
myerr:
If Err.Number <> 0 Then
UpLoadFile = False
Err.Clear
End If
End Function
方法二:
数据库字段:wjmc 文件名,wjsx 文件的扩展名。Wjnr 文件的内容为二进制。(若access数据库为“ole对象”,sql server为“image”)
该程序可以操作所有的文件类型。
Dim Wenjian As String
Dim RD As Byte
Dim SIZE As Long
Const MYSIZE = 1048576
Dim WENJIANN() As Byte
Dim Rs As New ADODB.Recordset
Rs.Open "select * from wj", Cn, 1, 3
Rs.AddNew
Rs!wjmc = Mid(Name, 1, InStr(Name, ".") - 1)
Rs!wjsx = Mid(Name, InStr(Name, ".") + 1)
‘name为文件的名称加扩展名
Open Filename For Binary Access Read As #1
SIZE = LOF(1)
Do While SIZE - MYSIZE >= 0
ReDim WENJIANN(MYSIZE) As Byte
Get #1, , WENJIANN
Rs!wjnr.AppendChunk WENJIANN
SIZE = SIZE - MYSIZE
Loop
If SIZE > 0 Then
ReDim WENJIANN(SIZE) As Byte
Get #1, , WENJIANN
Rs!wjnr.AppendChunk WENJIANN
End If
Close #1
Rs.Update
Set Rs = Nothing
- 打开的一篇word文档,保存到数据库的某个字段中
- 如何把数据库的内容写入到Word文档中
- 如何把数据库的内容写入到Word文档中?
- richTextBox实现带格式word文档的打开、保存、另存为.
- richTextBox实现带格式word文档的打开、保存、另存为
- 将嵌套查询结果的序号,保存到数据库的某个字段(用存储过程实现)
- 将文件以流的方式存到数据库某个字段中,并且可以从数据库字段中取出来
- php读取word\pdf等文档的内容,并将其保存到网页中
- 如何将 Memo中的文本内容保存到当前目录下的 Word 文档中
- mongodb中查询某个字段不存在的文档
- Kettle 生成的XML格式数据保存到Oracle 数据库的BLOB类型字段中
- 在数据库中某个字段的数据中添加"'"
- ASP 中JS如何将ACCESS数据库的一个文本字段保存到变量里面?
- sql语句作为字段保存到mysql数据库中无法通过的问题
- 关闭某个已打开的word文件
- mysql查询某个数据库中某个表的所有字段名、字段类型和注释
- PageOffice+C#+SqlServer+Aspose.Word+Aspose.Cells实现上传word模板,通过标签保存填写的数据到数据库中
- 上传下载保存到数据库的image字段中的文件
- 开始-》运行-》命令集锦
- Linux_Swap持续增长的问题(tcpdump引入,与使用方法)
- XP未公开注册表秘技大放送
- 用ASP.NET上传大文件
- WinXP注册表技巧十则
- 打开的一篇word文档,保存到数据库的某个字段中
- XMLHTTP开发Web 客户端
- 注册表的相关基础知识
- ASP.NET系统用户权限设计与实现1
- xmlHTTP xmlDOC 与 C#中DataSet的结合 实现AJAX简单示例
- xmlhttp中文乱码解决方案
- oracle的分析函数over 及开窗函数
- VC++动态链接库(DLL)编程深入浅出(四)
- 子类技术专题-之一