图片---高分

Question

if you are using ADO, read
使用ADO GetChunk/AppendChunk 读写SQL Server BLOB字段
http://www.microran2002.com/Paper/Chunk.htm

Answer 1

只能用 image 型一段vb程序:Dim fnum As Integer
Dim bytesleft As Long
Dim bytes As Long
Dim chunksize As Integer
Dim tmp() As ByteOn Error Resume Next
Err.Clear    chunksize = 8192        fnum = FreeFile
        Open "c:\tmp.jpg" For Binary As #fnum
        bytesleft = LOF(fnum)        Do While bytesleft
            bytes = bytesleft
            If bytes > chunksize Then bytes = chunksize
            ReDim tmp(1 To bytes) As Byte
            Get #fnum, , tmp
            adodc1.Recordset.Fields("picfile").AppendChunk tmp
            bytesleft = bytesleft - bytes
        Loop
        Close #fnum