樹(shù)結(jié)構(gòu)圖
您現(xiàn)在的位置： > 技術(shù)沙龍 > 程序設(shè)計(jì) > VB > VB實(shí)現(xiàn)文件數(shù)據(jù)對(duì)SQL Server上傳下載
- 相關(guān)軟件
>VB實(shí)現(xiàn)文件數(shù)據(jù)對(duì)SQL Server上傳下載 創(chuàng)建者：webmaster 更新時(shí)間：2005-07-02 01:41
前言
很多單位尤其是制造業(yè)、設(shè)計(jì)院，計(jì)算機(jī)應(yīng)用開(kāi)展的較早。在這些單位，各種法規(guī)文件的下達(dá)以及日常工作中產(chǎn)生的大量數(shù)據(jù)，形成了種類(lèi)繁雜、數(shù)量龐大檔案資料（各種文件）。面對(duì)海量數(shù)據(jù)，原有檔案管理系統(tǒng)在進(jìn)行數(shù)據(jù)的備份、還原、更新與維護(hù)時(shí)多數(shù)已力不從心。傳統(tǒng)的基于文件的管理方式，還給各種檔案的保密工作帶來(lái)了隱患。為此，越來(lái)越多的單位開(kāi)始開(kāi)發(fā)基于數(shù)據(jù)庫(kù)的文件檔案管理系統(tǒng)，以期克服這些毛病。
結(jié)合筆者開(kāi)發(fā)的科技檔案管理系統(tǒng)，本文以Visual Basic6.0和SQL Server 2000環(huán)境下的數(shù)據(jù)庫(kù)為例，介紹文件數(shù)據(jù)對(duì)SQL Server 2000數(shù)據(jù)庫(kù)的上傳和下載。
數(shù)據(jù)庫(kù)的連接
對(duì)數(shù)據(jù)庫(kù)的操作一定在已經(jīng)與本地抑或是網(wǎng)絡(luò)數(shù)據(jù)庫(kù)建立了聯(lián)系的基礎(chǔ)上，建立連接這一需求可以通過(guò)兩種方式實(shí)現(xiàn)。
為便于理解，這里假定服務(wù)器名為Data_Server，檔案數(shù)據(jù)庫(kù)名為Science_File，其中的一個(gè)數(shù)據(jù)表名為office，設(shè)計(jì)有一個(gè)名稱(chēng)為office、類(lèi)型為Image的字段，用于保存文件。為便于將不同大小的文件存儲(chǔ)在SQL Server的數(shù)據(jù)表中，必須在數(shù)據(jù)表中創(chuàng)建一個(gè)Image型的字段，該字段可存儲(chǔ)的最大文件達(dá)2GB字節(jié)。
1、利用Adodc控件連接
Visual Basic提供了一個(gè)Adodc控件。它通過(guò)Adodc屬性的設(shè)置，按照向?qū)崾就瓿蓴?shù)據(jù)庫(kù)的連接。具體過(guò)程如下：
首先在屬性頁(yè)中選擇生成按鈕，進(jìn)入數(shù)據(jù)鏈接屬性對(duì)話(huà)框；然后選擇該對(duì)話(huà)框中的連接屬性頁(yè)，選擇或輸入服務(wù)器名稱(chēng)和數(shù)據(jù)庫(kù)等重要信息；最后測(cè)試連接，連接成功后，按確定按鈕，返回到屬性頁(yè)對(duì)話(huà)框，可獲得連接字符串，如下例：Provider=SQLOLEDB.1；Integrated Security=SSPI；Persist；Security Info=False；Initial Catalog=Science_File；Data Source=Data_Server
通過(guò)下列語(yǔ)句，即可連接到指定的數(shù)據(jù)庫(kù)：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 '連接到數(shù)據(jù)庫(kù)
2、利用NetServerEnum函數(shù)
該函數(shù)是一個(gè)API函數(shù)，通過(guò)它可獲得一個(gè)安裝了SQL Server數(shù)據(jù)庫(kù)管理系統(tǒng)的服務(wù)器列表。方法如下：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 '服務(wù)器名
lServerInfo = lServerInfo + 24
Next i
End If
得到的服務(wù)器名通過(guò)Combo1控件顯示，可從中選擇儲(chǔ)存檔案數(shù)據(jù)的服務(wù)器名，再通過(guò)下列語(yǔ)句連接到選定服務(wù)器中的數(shù)據(jù)庫(kù)：odbcstr = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;_
Initial Catalog=Science_File;Data Source=" & Form2.Combo1.Text
adocon.Open odbcstr '連接到數(shù)據(jù)庫(kù)
其中的變量含義與前述相同，F(xiàn)orm2.Combol.Text的內(nèi)容即為選定的服務(wù)器名。
通過(guò)以上兩種方法皆可達(dá)到連接目的，前者簡(jiǎn)潔但有很大局限性，當(dāng)數(shù)據(jù)服務(wù)器名稱(chēng)發(fā)生變化時(shí)，必須修改源代碼，很不方便。后者既有較強(qiáng)的操作性又很直觀(guān)。在筆者開(kāi)發(fā)的科技檔案管理系統(tǒng)采用了第二種方法。
數(shù)據(jù)的上傳
數(shù)據(jù)的上傳就是將檔案文件存儲(chǔ)到數(shù)據(jù)表中。在數(shù)據(jù)上傳時(shí)，因情況不同一般有兩種方式，即單一上傳和批量上傳，前者指一次上傳一個(gè)文件(在數(shù)據(jù)表中增加一條記錄)，后者指一次將一個(gè)文件夾中的所有文件上傳到數(shù)據(jù)庫(kù)。兩者在實(shí)質(zhì)上是統(tǒng)一的，批量上傳時(shí)，只需用一個(gè)循環(huán)語(yǔ)句就可。以下介紹單一上傳的過(guò)程。
1、打開(kāi)數(shù)據(jù)表
通過(guò)以下語(yǔ)句打開(kāi)數(shù)據(jù)表：dim office_rst As New ADODB.Recordset
adocon.CursorLocation = adUseClient
office_rst.Open "office", adocon, adOpenDynamic, adLockOptimistic, adCmdTable
2、添加新記錄并上傳文件
假定通過(guò)一些操作已經(jīng)獲得了要上傳的文件路徑和名稱(chēng)(例如，可利用CommomDialog控件獲得)，保存在string型變量filePath中。上傳的關(guān)鍵語(yǔ)句如下：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 '返回一個(gè) Integer，代表下一個(gè)可供Open語(yǔ)句使用的文件號(hào)
Open filePath For Binary Access Read As file_num '打開(kāi)磁盤(pán)文件
filelen = LOF(file_num) '求文件長(zhǎng)度
ReDim DataArr(filelen) '根據(jù)文件長(zhǎng)度定義動(dòng)態(tài)數(shù)組大小
Get sourcefile, , DataArr '將一個(gè)已打開(kāi)的磁盤(pán)文件讀入數(shù)組變量之中
adofld.AppendChunk DataArr() '將數(shù)組內(nèi)容存入image型字段中
Close file_num '關(guān)閉磁盤(pán)文件
adorst.update
其中的filename為表office中的一個(gè)string型字段，用于存儲(chǔ)檔案文件的名稱(chēng)。
數(shù)據(jù)的下載
在完成數(shù)據(jù)庫(kù)連接后不僅可以對(duì)數(shù)據(jù)庫(kù)進(jìn)行文件上傳的操作，還可以很方便的進(jìn)行下載（瀏覽）。通過(guò)Web Browser控件可瀏覽各種類(lèi)型的文件。
1、WebBrowser控件
WebBrowser控件使應(yīng)用程序增加了瀏覽功能，利用它可瀏覽常見(jiàn)的一些文件格式，如Office、CAD、BMP、JEG等。包含了WebBrowser控件的應(yīng)用程序不僅可以對(duì)本機(jī)上的文件，還可以對(duì)局域網(wǎng)甚至世界網(wǎng)絡(luò)范圍內(nèi)的文件進(jìn)行瀏覽。
WebBrowse控件有很多方法，但這里只用到了"Navigate"方法，Navigate方法就是通過(guò)一個(gè)文件的全路徑去訪(fǎng)問(wèn)這個(gè)文件，具體用法為：
WebBrowOff.Navigate URL
其中WebBrowOff 是一個(gè)WebBrowser控件，URL是必需的string型參數(shù)，它可以是表示在Internet的WWW服務(wù)程序上用于指定信息位置的字符串，也可以是一個(gè)全路徑或者是對(duì)要瀏覽的文件通過(guò)通用命名標(biāo)準(zhǔn)命名的位置和名稱(chēng)。
2、文件數(shù)據(jù)的下載
在程序中可利用DataList控件列出數(shù)據(jù)庫(kù)中保存的文件的名稱(chēng)，下載的思路為：首先定位要下載的文件所在的記錄；然后將文件的內(nèi)容賦給一個(gè)數(shù)組，并寫(xiě)入一個(gè)二進(jìn)制文件；最后將該文件路徑、文件名傳給WebBrowser控件。
關(guān)鍵代碼如下所示：dim FileArr () As Byte, current as string
filelen = office_rst.Fields("office").ActualSize '得到office字段中的文件數(shù)據(jù)的大小
ReDim FileArr(filelen)
FileArr() = office_rst.Fields("office").GetChunk(filelen) '將字段中數(shù)據(jù)寫(xiě)入動(dòng)態(tài)數(shù)組中
bufferfile = FreeFile
Open "tempfile" For Binary Access Read Write As bufferfile '打開(kāi)一個(gè)臨時(shí)文件
Put bufferfile， ，F(xiàn)ileArr '將動(dòng)態(tài)數(shù)組FileArr中的數(shù)據(jù)寫(xiě)入臨時(shí)文件tempfile中
current = CurDir & "\tempfile" '獲取臨時(shí)文件的全路徑
WebBrowOff.Navigate current '在WebBrowser控件中顯示文件內(nèi)容
以上代碼中未定義的變量與前述相同。
結(jié)束語(yǔ)
現(xiàn)在很多單位檔案資料數(shù)據(jù)類(lèi)型繁多，有OFFICE文檔、純文本、圖片資料以及包含基礎(chǔ)地形圖、現(xiàn)狀專(zhuān)題圖、規(guī)劃設(shè)計(jì)成果圖等多種圖件的AUTOCAD文件，并且數(shù)據(jù)量巨大，文件數(shù)目極多，利用本文介紹的方法可以方便的對(duì)數(shù)據(jù)庫(kù)各種數(shù)據(jù)進(jìn)行查看、上傳、下載操作，方便了有大量檔案資料的單位對(duì)資料的管理。
相關(guān)文章
本頁(yè)查看次數(shù):