难道用过ADO的AppendChunk的都没有碰到过要分段的问题吗？十万火急（在线等待）

Question

用数组可以呀,但是你要用那么大的数组干吗？留下email,我给你一个例子
=================
共同学习,共同进步

Answer 1

谢谢楼上的，您有QQ吗？[email protected]

Answer 2

也就是说我没什么办法把300K的二进制文件存在IMAGE字段了？难道VB没有解决方法吗？

Answer 3

我记得这个问题很早以前就说过的，你的文件大小不重要，多大都可以传，我以前传过几M的文件进去，但是你要分次数，每次传一点，用循环传就ok了！

Answer 4

'****************************************************************************
'向数据库中写入数据
ChunkSize = 2048
FileNumber = FreeFile
Open App.path & "\filename" For Binary As #FileNumber
DataLen = LOF(FileNumber)
If DataLen = 0 Then
   Close #FileNumber
   Exit Sub
End If
Set FD = RST.Fields("img1")
Chunks = DataLen \ ChunkSize
Fragment = DataLen Mod ChunkSize
If Fragment > 0 Then
   ReDim ChunkAry(Fragment - 1)
   Get #FileNumber, , ChunkAry()
   FD.AppendChunk ChunkAry()
End If
ReDim ChunkAry(ChunkSize - 1)
For lngI = 1 To Chunks
    Get #FileNumber, , ChunkAry()
    FD.AppendChunk ChunkAry()
Next lngI
Close #FileNumber

Answer 5

bafenghan(刚刚开始学C++) ,谢谢，完全正确。
 SuperZhou(学海无涯) ，谢谢你的邮件。虽然解压出错。呵呵

Answer 6

最大可以是2GB,或者说是计算机可寻址内存的大小dim data() as byterst!field.appendchunk data