GetChunk的问题

Question

RS("Inventory").GetChunk(532)这样怎么不行？提示在此环境中不允许操作。

Answer 1

'将任何文件从数据库中下载到本地:
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

使用以上代码时出现一个问题，就是第一次调用LOADFILE函数时数据导出成功，可第二次调用时，出现“类型不匹配”，看了一下出错的地方，是getchunk方法调用出错。不知何原因。

Answer 3

使用以上代码时出现一个问题，就是第一次调用LOADFILE函数时数据导出成功，可第二次调用时，出现“输出 类型不匹配”，看了一下出错的地方，是getchunk方法调用出错。不知何原因