有時，我們需要把一篇word文章儲存到資料庫中以方便日後搜尋使用，但如何做到這一點呢？下面就給出兩種把word文檔儲存到資料庫的方法。
第一種方法：把整個word文檔存到資料庫中，這樣不僅保存了word文檔中的內容，也把word中的格式也保存起來了。
在儲存時，如果使用的資料庫為SQL Server，則儲存word文件的欄位應使用Binary資料類型，如果使用ACCESS資料庫，則應使用OLE物件。
完整原始碼如下：
'將任何檔案從資料庫下載到本機：
Public Function LoadFile(ByVal col As ADODB.Field, ByVal FileName As String) As Boolean '取得binary數據
On Error GoTo myerr:
Dim arrBytes() As Byte
Dim FreeFileNumber As Integer
lngsize = col.ActualSize
arrBytes = col.GetChunk(lngsize)
FreeFileNumber = FreeFile
Open FileName For Binary Access Write As #FreeFileNumber
Put #FreeFileNumber, , arrBytes
Close #FreeFileNumber
LoadFile = True
myerr:
If Err.Number <> 0 Then
LoadFile = False
Err.Clear
End If
End Function
'將檔案從本機上傳到資料庫中
Public Function UpLoadFile(ByVal FileName, ByVal col As ADODB.Field) As Boolean
On Error GoTo myerr:
Dim arrBytes() As Byte
Dim FreeFileNumber As Integer
FreeFileNumber = FreeFile
Open FileName For Binary As #FreeFileNumber
n = LOF(FreeFileNumber)
ReDim arrBytes(1 To n) As Byte
Get #FreeFileNumber, , arrBytes
Close #FreeFileNumber
col.AppendChunk (arrBytes)
UpLoadFile = True
myerr:
If Err.Number <> 0 Then
UpLoadFile = False
Err.Clear
End If
End Function
第二種方法：
在設計資料庫時，設計欄位有：wjmc（檔案名稱），wjsx （檔案的副檔名），Wjnr（檔案內容為二進位資料型別）。 (若資料庫採用access資料庫則文件內容ole對象，sql server資料庫為image)
該程式可以操作所有的文件類型。
Dim Wenjian As String
Dim RD As Byte
Dim SIZE As Long
Const MYSIZE = 1048576
Dim WENJIANN() As Byte
Dim Rs As New ADODB.Recordset
Rs.Open select * from wj, Cn, 1, 3
Rs.AddNew
Rs!wjmc = Mid(Name, 1, InStr(Name, .) - 1)
Rs!wjsx = Mid(Name, InStr(Name, .) + 1)
'name為檔案的名稱加上副檔名
Open Filename For Binary Access Read As #1
SIZE = LOF(1)
Do While SIZE - MYSIZE >= 0
ReDim WENJIANN(MYSIZE) As Byte
Get #1, , WENJIANN
Rs!wjnr.AppendChunk WENJIANN
SIZE = SIZE - MYSIZE
Loop
If SIZE > 0 Then
ReDim WENJIANN(SIZE) As Byte
Get #1, , WENJIANN
Rs!wjnr.AppendChunk WENJIANN
End If
Close #1
Rs.Update
Set Rs = Nothing
如果你需要這篇文章，就把它收藏好吧。