用VB如何实现文件数据对SQL Server
上传下载
本文以VisualBasic6.0和SQLServer2000环境下的数据库为例，介绍文件数据对SQLServer2000数据库的上传和下载。很多单位尤其是制造业、设计院，计算机应用开展的较早。在这些单位，各种法规文件的下达以及日常工作中产生的大量数据，形成了种类繁杂、数量庞大档案资料（各种文件）。面对海量数据，原有档案管理系统在进行数据的备份、还原、更新与维护时多数已力不从心。传统的基于文件的管理方式，还给各种档案的保密工作带来了隐患 本文以Visual Basic6.0和SQL Server 2000环境下的数据库为例，介绍文件数据对SQL Server 2000数据库的上传和下载。
很多单位尤其是制造业、设计院，计算机应用开展的较早。在这些单位，各种法规文件的下达以及日常工作中产生的大量数据，形成了种类繁杂、数量庞大档案资料（各种文件）。面对海量数据，原有档案管理系统在进行数据的备份、还原、更新与维护时多数已力不从心。传统的基于文件的管理方式，还给各种档案的保密工作带来了隐患。为此，越来越多的单位开始开发基于数据库的文件档案管理系统，以期克服这些毛病。
数据库的连接
对数据库的操作一定在已经与本地抑或是网络数据库建立了联系的基础上，建立连接这一需求可以通过两种方式实现。
为便于理解，这里假定服务器名为Data_Server，档案数据库名为
Science_File，其中的一个数据表名为office，设计有一个名称为office、类型为Image的字段，用于保存文件。为便于将不同大小的文件存储在
SQL Server的数据表中，必须在数据表中创建一个Image型的字段，该字段可存储的最大文件达2GB字节。
1、利用Adodc控件连接
Visual Basic提供了一个Adodc控件。它通过Adodc属性的设置，按照向导提示完成数据库的连接。具体过程如下：
首先在属性页中选择生成按钮，进入数据链接属性对话框；然后选择该对话框中的连接属性页，选择或输入服务器名称和数据库等重要信息；最后测试连接，连接成功后，按确定按钮，返回到属性页对话框，可获得连接字符串，如下例：
Provider=SQLOLEDB.1；Integrated Security=SSPI；Persist；Security Info=False；Initial Catalog=Science_File；Data Source=Data_Server
通过下列语句，即可连接到指定的数据库：
dim odbcstr as String, adocon As New ADODB.Connection
odbcstr = \Security=SSPI;Persist Security Info=False;_
Initial Catalog=Science_File;Data Source=Data_Server\adocon.Open odbcstr '连接到数据库
2、利用NetServerEnum函数
该函数是一个API函数，通过它可获得一个安装了SQL Server数据库管理系统的服务器列表。方法如下：
Private Declare Function NetServerEnum Lib \_
(lpServer As Any, ByVal lLevel As Long, vBuffer As Any, _ lPreferedMaxLen As Long, lEntriesRead As Long, lTotalEntries As Long, _
ByVal lServerType As Long, ByVal sDomain$, vResume As Any) As Long
Private Declare Sub CopyMemory Lib \Alias \mory\(Destination _
As Any, Source As Any, ByVal Length As Long)
Private Declare Function lstrlenW Lib \(ByVal lpString As Long) As Long
Private Type SV_100 platform As Long name As Long End Type
dim sv100 As SV_100, nRet As Long, i as long, lServerInfo As Long
dim lServerInfo As Long, lPreferedMaxLen As Long, lEntriesRead As Long
dim lTotalEntries As Long, sDomain As String, vResume As Variant
dim buffer() As Byte, nLen As Long lPreferedMaxLen = 65536
nRet = NetServerEnum(0, 101, lServerInfo, lPreferedMaxLen, lEntriesRead, lTotalEntries, 4, sDomain, vResume)
If nRet = 0 or nRet = 234& Then For i = 0 To lEntriesRead - 1
CopyMemory sv100, ByVal lServerInfo, Len(sv100) nLen = lstrlenW(sv100.name) * 2 If nLen Then
ReDim buffer(0 To (nLen - 1)) As Byte CopyMemory buffer(0), ByVal sv100.name, nLen End If
Combo1.List(i) = buffer '服务器名 lServerInfo = lServerInfo + 24 Next i End If
得到的服务器名通过Combo1控件显示，可从中选择储存档案数据的服务器名，再通过下列语句连接到选定服务器中的数据库：
odbcstr = \Security=SSPI;Persist Security Info=False;_
Initial Catalog=Science_File;Data Source=\& Form2.Combo1.Text adocon.Open odbcstr '连接到数据库
其中的变量含义与前述相同，Form2.Combol.Text的内容即为选定的服务器名。
通过以上两种方法皆可达到连接目的，前者简洁但有很大局限性，当数据服务器名称发生变化时，必须修改源代码，很不方便。后者既有较强的操作性又很直观。在笔者开发的科技档案管理系统采用了第二种方法。 数据的上传
数据的上传就是将档案文件存储到数据表中。在数据上传时，因情况不同一般有两种方式，即单一上传和批量上传，前者指一次上传一个文件(在数据表中增加一条记录)，后者指一次将一个文件夹中的所有文件上传到数据库。两者在实质上是统一的，批量上传时，只需用一个循环语句就可。以下介绍单一上传的过程。1、打开数据表
通过以下语句打开数据表：
dim office_rst As New ADODB.Recordset adocon.CursorLocation = adUseClient
office_rst.Open \adocon, adOpenDynamic, adLockOptimistic, adCmdTable
2、添加新记录并上传文件