將圖檔資料存入access時,出現"無法指出的錯誤"
Open strFileDir For Binary Access Read As #FileHandle
DataLen = LOF(FileHandle)
If DataLen = 0 Then
Close FileHandle
Else
Chunks = DataLen \ ChunkSize
Fragment = DataLen Mod ChunkSize
ReDim BuffImg(Fragment - 1)
Get #FileHandle, , BuffImg()
rs!field1.AppendChunk BuffImg()
ReDim BuffImg(ChunkSize - 1)
For k = 1 To Chunks
Get #FileHandle, , BuffImg()
rs!field1.AppendChunk BuffImg()
Next k
Close #FileHandle
End If