从数据库里取出文件，结果打开是内容是空白的，请大家帮帮忙，在线等待！！！

Question

从OLE把文件保存到数据库，再次通过OLE从数据库取出该文件，结果打开此文件内容空白的，但有些是可以的，比如WORD文件，但CAD文件就不行。这是为什么？

Answer 1

不知道你是如何读写数据库的，参考一下这个：最好把整个文件保存到数据库，这样就不会丢失文件的格式及所有其它的一些内容。完整的代码如下：如果是用SQL那么保存文件的字段类型应该是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 

Answer 2

但是为什么WORD等其他文件可以，而CAD文件不行呢？打开后结果是空白的