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

　　其中的filename为表office中的一个string型字段，用于存储档案文件的名称。

数据的下载

　　在完成数据库连接后不仅可以对数据库进行文件上传的操作，还可以很方便的进行下载（浏览）。通过WebBrowser控件可浏览各种类型的文件。

　　1、WebBrowser控件

　　WebBrowser控件使应用程序增加了浏览功能，利用它可浏览常见的一些文件格式，如Office、CAD、BMP、JEG等。包含了WebBrowser控件的应用程序不仅可以对本机上的文件，还可以对局域网甚至世界网络范围内的文件进行浏览。

　　WebBrowse控件有很多方法，但这里只用到了"Navigate"方法，Navigate方法就是通过一个文件的全路径去访问这个文件，具体用法为：
WebBrowOff.NavigateURL

　　其中WebBrowOff是一个WebBrowser控件，URL是必需的string型参数，它可以是表示在Internet的WWW服务程序上用于指定信息位置的字符串，也可以是一个全路径或者是对要浏览的文件通过通用命名标准命名的位置和名称。

　　2、文件数据的下载

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

　　关键代码如下所示：

->dimFileArr()AsByte,currentasstring
filelen=office_rst.Fields("office").ActualSize'得到office字段中的文件数据的大小
ReDimFileArr(filelen)
FileArr()=office_rst.Fields("office").GetChunk(filelen)'将字段中数据写入动态数组中
bufferfile=FreeFile
Open"tempfile"ForBinaryAccessReadWriteAsbufferfile'打开一个临时文件
Putbufferfile，，FileArr'将动态数组FileArr中的数据写入临时文件tempfile中
current=CurDir&"\tempfile"'获取临时文件的全路径
WebBrowOff.Navigatecurrent'在WebBrowser控件中显示文件内容->
　　以上代码中未定义的变量与前述相同。

结束语

　　现在很多单位档案资料数据类型繁多，有OFFICE文档、纯文本、图片资料以及包含基础地形图、现状专题图、规划设计成果图等多种图件的AUTOCAD文件，并且数据量巨大，文件数目极多，利用本文介绍的方法可以方便的对数据库各种数据进行查看、上传、下载操作，方便了有大量档案资料的单位对资料的管理。->

 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一页 1 2下一页

上一篇：用VB实现实时曲线的绘制和保存   下一篇：用VB6.0编写磁盘格式化程序

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】