用VB把图像保存到SQL数据库里面

定义数据块的大小
        For i = 1 To NumBlocks
            Get SourceFile, , byteData() ''读到内存块中
            Adodc1.Recordset.Fields(2).AppendChunk byteData() ''写入FLD
        Next i
        ReDim byteData(LeftOver) ''重新定义数据块的大小
        Get SourceFile, , byteData() ''读到内存块中
        Adodc1.Recordset.Fields(2).AppendChunk byteData() ''写入FLD
        Close SourceFile ''关闭源文件
        Adodc1.Recordset.Update
    End If
End Sub