2．图片数据的存储

Public Sub SaveImage(ByVal ImageFile As String, rstu As Recordset)

  If rstu.BOF = True Or rstu.EOF = True Then

    Exit Sub

  End If

  If ImageFile = "" Then

    Exit Sub

  End If

  '提供一个尚未使用的文件号

  SourceFile = FreeFile

  Open ImageFile For Binary Access Read As SourceFile

  '得到文件长度

  FileLength = LOF(SourceFile)

  '判断文件是否存在

  If FileLength = 0 Then

    Close SourceFile

    MsgBox DiskFile & "无内容或不存在!"

  Else

    NumBlocks = FileLength \ BlockSize    '得到数据块的个数

    LeftOver = FileLength Mod BlockSize   '得到剩余字节数

    rstu.Fields("sphoto").Value = Null

    ReDim byteData(BlockSize)             '重新定义数据块的大小

    For i = 1 To NumBlocks

      Get SourceFile, , byteData()        '读到内存块中

      rstu.Fields("sphoto").AppendChunk byteData()   '写入FLD

    Next i

    ReDim byteData(LeftOver)    '重新定义数据块的大小

    Get SourceFile, , byteData()    '读到内存块中

    rstu.Fields("sphoto").AppendChunk byteData()   '写入FLD

    Close SourceFile    '关闭源文件

    rstu.Update

   End If

End Sub