关键代码如下所示：
dim FileArr () As Byte, current as string
filelen = office_rst.Fields("office").ActualSize '得到office字段中的文件数据的大小
ReDim FileArr(filelen)
FileArr() = office_rst.Fields("office").GetChunk(filelen) '将字段中数据写入动态数组中
bufferfile = FreeFile
Open "tempfile" For Binary Access Read Write As bufferfile '打开一个临时文件
Put bufferfile， ，FileArr '将动态数组FileArr中的数据写入临时文件tempfile中
current = CurDir & "tempfile" '获取临时文件的全路径
WebBrowOff.Navigate current '在WebBrowser控件中显示文件内容
以上代码中未定义的变量与前述相同。
结束语
现在很多单位档案资料数据类型繁多，有OFFICE文档、纯文本、图片资料以及包含基础地形图、现状专题图、规划设计成果图等多种图件的AUTOCAD文件，并且数据量巨大，文件数目极多，利用本文介绍的方法可以方便的对数据库各种数据进行查看、上传、下载操作，方便了有大量档案资料的单位对资料的管理.
上一页 [1] [2]
本文关键字：如何 嵌入式系统-技术，单片机-工控设备 - 嵌入式系统-技术
