前言
很多单位尤其是制造业、设计院,计算机应用开展的较早。在这些单位,各种法规文件的下达以及日常工作中产生的大量数据,形成了种类繁杂、数量庞大档案资料(各种文件)。面对海量数据,原有档案管理系统在进行数据的备份、还原、更新与维护时多数已力不从心。传统的基于文件的管理方式,还给各种档案的保密工作带来了隐患。为此,越来越多的单位开始开发基于数据库的文件档案管理系统,以期克服这些毛病。
结合笔者开发的科技档案管理系统,本文以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 = "Provider=sqlOLEDB.1;Integrated 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 "netapi32" _
(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 "kernel32" Alias "RtlMoveMemory" (Destination _
As Any,Source As Any,ByVal Length As Long)
Private Declare Function lstrlenW Lib "kernel32" (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 = "Provider=sqlOLEDB.1;Integrated 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 "office",adocon,adOpenDynamic,adLockOptimistic,adCmdTable
假定通过一些操作已经获得了要上传的文件路径和名称(例如,可利用CommomDialog控件获得),保存在string型变量filePath中。上传的关键语句如下:
dim adofld As ADODB.Field,DataArr() As Byte,filelen As Long,file_num As Long
office_rst.AddNew
Set adofld = office_rst("office")
adorst("filename").Value = filePath
file_num = FreeFile '返回一个 Integer,代表下一个可供Open语句使用的文件号
Open filePath For Binary Access Read As file_num '打开磁盘文件
filelen = LOF(file_num) '求文件长度
ReDim DataArr(filelen) '根据文件长度定义动态数组大小
Get sourcefile,DataArr '将一个已打开的磁盘文件读入数组变量之中
adofld.AppendChunk DataArr() '将数组内容存入image型字段中
Close file_num '关闭磁盘文件
adorst.update
其中的filename为表office中的一个string型字段,用于存储档案文件的名称。
数据的下载
在完成数据库连接后不仅可以对数据库进行文件上传的操作,还可以很方便的进行下载(浏览)。通过Web Browser控件可浏览各种类型的文件。
1、WebBrowser控件
WebBrowser控件使应用程序增加了浏览功能,利用它可浏览常见的一些文件格式,如Office、CAD、BMP、JEG等。包含了WebBrowser控件的应用程序不仅可以对本机上的文件,还可以对局域网甚至世界网络范围内的文件进行浏览。
WebBrowse控件有很多方法,但这里只用到了"Navigate"方法,Navigate方法就是通过一个文件的全路径去访问这个文件,具体用法为:
WebBrowOff.Navigate URL
其中WebBrowOff 是一个WebBrowser控件,URL是必需的string型参数,它可以是表示在Internet的WWW服务程序上用于指定信息位置的字符串,也可以是一个全路径或者是对要浏览的文件通过通用命名标准命名的位置和名称。
2、文件数据的下载
在程序中可利用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控件中显示文件内容
以上代码中未定义的变量与前述相同。
结束语
现在很多单位档案资料数据类型繁多,有OF