请各位大虾指点word文档如何以二进制格式保存入数据库中，然后怎样从数据库中读出来？

Question

word文档如何以二进制格式保存入数据库中，然后怎样从数据库中读出来？

Answer 1

参考BLOB（大型二进制块）的操作。

Answer 2

来自 stone朋友给我的意见，我用过，挺好
    最好把整个Word文档保存到数据库，这样就不会丢失Wrod中的格式及所有其它的一些内容。 
    完整的代码如下：如果是用SQL那么保存文件的字段类型应该是Binary。如果是用Access，那么保存文件的字段应该用OLD对象，在表中显示为长二进制数据。 
     
    '将任何文件从数据库中下载到本地： 
    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