VB实现文件数据对SQLServer上传下载
来源：Linuxdby.com
作者：Webmaster
时间：2007-06-05
点击：
[ 收藏] [ 投稿]
摘要：文件数据指存储在数据库中的各种文件，文中论述了用VB编程实现文件数据对SQLServer数据库的上传和下载操作的关键技术，并以SQLServer2000环境下的数据库为例，用VisualBasic程序设计语言给出了关键的程序代码。
关键词：VisualBasic，数据库，SQLServer，上传，下载
前言
很多单位尤其是制造业、设计院，计算机应用开展的较早。在这些单位，各种法规文件的下达以及日常工作中产生的大量数据，形成了种类繁杂、数量庞大档案资料（各种文件）。面对海量数据，原有档案管理系统在进行数据的备份、还原、更新与维护时多数已力不从心。传统的基于文件的管理方式，还给各种档案的保密工作带来了隐患。为此，越来越多的单位开始开发基于数据库的文件档案管理系统，以期克服这些毛病。
结合笔者开发的科技档案管理系统，本文以VisualBasic6.0和SQLServer2000环境下的数据库为例，介绍文件数据对SQLServer2000数据库的上传和下载。
数据库的连接
对数据库的操作一定在已经与本地抑或是网络数据库建立了联系的基础上，建立连接这一需求可以通过两种方式实现。
为便于理解，这里假定服务器名为Data_Server，档案数据库名为Science_File，其中的一个数据表名为office，设计有一个名称为office、类型为Image的字段，用于保存文件。为便于将不同大小的文件存储在SQLServer的数据表中，必须在数据表中创建一个Image型的字段，该字段可存储的最大文件达2GB字节。
1、利用Adodc控件连接
VisualBasic提供了一个Adodc控件。它通过Adodc属性的设置，按照向导提示完成数据库的连接。具体过程如下：
首先在属性页中选择生成按钮，进入数据链接属性对话框；然后选择该对话框中的连接属性页，选择或输入服务器名称和数据库等重要信息；最后测试连接，连接成功后，按确定按钮，返回到属性页对话框，可获得连接字符串，如下例：
->Provider=SQLOLEDB.1；IntegratedSecurity=SSPI；Persist；SecurityInfo=False；InitialCatalog=Science_File；DataSource=Data_Server->
通过下列语句，即可连接到指定的数据库：
->dimodbcstrasString,adoconAsNewADODB.Connection
odbcstr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;_
InitialCatalog=Science_File;DataSource=Data_Server"
adocon.Openodbcstr'连接到数据库->
2、利用NetServerEnum函数
该函数是一个API函数，通过它可获得一个安装了SQLServer数据库管理系统的服务器列表。方法如下：
->PrivateDeclareFunctionNetServerEnumLib"netapi32"_
(lpServerAsAny,ByVallLevelAsLong,vBufferAsAny,_
lPreferedMaxLenAsLong,lEntriesReadAsLong,lTotalEntriesAsLong,_
ByVallServerTypeAsLong,ByValsDomain$,vResumeAsAny)AsLong
PrivateDeclareSubCopyMemoryLib"kernel32"Alias"RtlMoveMemory"(Destination_
AsAny,SourceAsAny,ByValLengthAsLong)
PrivateDeclareFunctionlstrlenWLib"kernel32"(ByVallpStringAsLong)AsLong
PrivateTypeSV_100
platformAsLong
nameAsLong
EndType
dimsv100AsSV_100,nRetAsLong,iaslong,lServerInfoAsLong
dimlServerInfoAsLong,lPreferedMaxLenAsLong,lEntriesReadAsLong
dimlTotalEntriesAsLong,sDomainAsString,vResumeAsVariant
dimbuffer()AsByte,nLenAsLong
lPreferedMaxLen=65536
nRet=NetServerEnum(0,101,lServerInfo,lPreferedMaxLen,lEntriesRead,lTotalEntries,4,sDomain,vResume)
IfnRet=0OrnRet=234&Then
Fori=0TolEntriesRead-1
CopyMemorysv100,ByVallServerInfo,Len(sv100)
nLen=lstrlenW(sv100.name)*2
IfnLenThen
ReDimbuffer(0To(nLen-1))AsByte
CopyMemorybuffer(0),ByValsv100.name,nLen
EndIf
Combo1.List(i)=buffer'服务器名
lServerInfo=lServerInfo 24
Nexti
EndIf->
得到的服务器名通过Combo1控件显示，可从中选择储存档案数据的服务器名，再通过下列语句连接到选定服务器中的数据库：
->odbcstr="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;_
InitialCatalog=Science_File;DataSource="&Form2.Combo1.Text
adocon.Openodbcstr'连接到数据库->
其中的变量含义与前述相同，Form2.Combol.Text的内容即为选定的服务器名。
通过以上两种方法皆可达到连接目的，前者简洁但有很大局限性，当数据服务器名称发生变化时，必须修改源代码，很不方便。后者既有较强的操作性又很直观。在笔者开发的科技档案管理系统采用了第二种方法。
数据的上传
数据的上传就是将档案文件存储到数据表中。在数据上传时，因情况不同一般有两种方式，即单一上传和批量上传，前者指一次上传一个文件(在数据表中增加一条记录)，后者指一次将一个文件夹中的所有文件上传到数据库。两者在实质上是统一的，批量上传时，只需用一个循环语句就可。以下介绍单一上传的过程。
1、打开数据表
通过以下语句打开数据表：
->dimoffice_rstAsNewADODB.Recordset
adocon.CursorLocation=adUseClient
office_rst.Open"office",adocon,adOpenDynamic,adLockOptimistic,adCmdTable->
2、添加新记录并上传文件
假定通过一些操作已经获得了要上传的文件路径和名称(例如，可利用CommomDialog控件获得)，保存在string型变量filePath中。上传的关键语句如下：
->dimadofldAsADODB.Field,DataArr()AsByte,filelenAsLong,file_numAsLong
office_rst.AddNew
Setadofld=office_rst("office")
adorst("filename").Value=filePath
file_num=FreeFile'返回一个Integer，代表下一个可供Open语句使用的文件号
OpenfilePathForBinaryAccessReadAsfile_num'打开磁盘文件
filelen=LOF(file_num)'求文件长度
ReDimDataArr(filelen)'根据文件长度定义动态数组大小
Getsourcefile,,DataArr'将一个已打开的磁盘文件读入数组变量之中
adofld.AppendChunkDataArr()'将数组内容存入image型字段中
Closefile_num'关闭磁盘文件
adorst.update->
如果您对本文有任何疑问或者建议，请到讨论区发表您的意见:
>>
论坛入口 <<
上一篇：用VB实现实时曲线的绘制和保存 下一篇：用VB6.0编写磁盘格式化程序
【文章评论】
【收藏本文】
【推荐好友】
【打印本文】
【我要投稿】 【论坛讨论】
更多相关文章
|
|
