摘要：文件數據指存儲在數據庫中的各種文件，文中論述了用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->
其中的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&" empfile"'獲取臨時文件的全路徑
WebBrowOff.Navigatecurrent'在WebBrowser控件中顯示文件內容->
以上代碼中未定義的變量與前述相同。
結束語 現在很多單位檔案資料數據類型繁多，有OFFICE文檔、純文本、圖片資料以及包含基礎地形圖、現狀專題圖、規劃設計成果圖等多種圖件的AUTOCAD文件，並且數據量巨大，文件數目極多，利用本文介紹的方法可以方便的對數據庫各種數據進行查看、上傳、下載操作，方便了有大量檔案資料的單位對資料的管理。->
