VB实现文件数据对SQL Server上传下载

、文件数据的下载

　　在程序中可利用DataList控件列出数据库中保存的文件的名称，下载的思路为：首先定位要下载的文件所在的记录;然后将文件的内容赋给一个数组，并写入一个二进制文件;最后将该文件路径、文件名传给WebBrowser控件。

　　关键代码如下所示：

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文件，并且数据量巨大，文件数目极多，利用本文介绍的方法可以方便的对数据库各种数据进行查看、上传、下载操作，方便了有大量档案资料的单位对资料的管理。