将图片保存到数据库中

1. '   将图片保存到数据库中

   Const TEMPIMAGEFILE = "TempImage"

   Dim cnnImage As New ADODB.Connection        ' 数据库对象

   Dim rsImage As New ADODB.Recordset           ' 记录集对象

   Dim strSql As String

   Dim Chunk() As Byte         ' 保存图像数据

   Dim AppPath As String        ' 工程路径

   Dim lImageLengh As Long     ' 图像数据长度

   '   将图像文件保存到数据库中

   Private Sub SaveImageToDatabase(sFilename As String)

       '** 以二进制方式打开文件

       Open sFilename For Binary Access Read As #1

       lImageLengh = LOF(1)        ' 获得文件大小

       '** 将文件内容存入字节数组

       ReDim Chunk(lImageLengh)

       Get #1, , Chunk()

       Close #1

       '** 新添加一个记录

       rsImage.AddNew

       rsImage.Fields("Image").AppendChunk Chunk()

       rsImage.Update

       '** 如果是向空库中加入第一条记录, 则没有此语句程序会出错。

       If rsImage.RecordCount = 1 Then

           rsImage.MoveFirst

          Call ShowPic

       End If

   End Sub

   '   显示数据库中的图片

   Private Sub ShowPic()

       Dim picPicture As StdPicture

       '** 确定图像字段大小, 定义一个用来保存它的数组

       lImageLengh = rsImage.Fields("Image").ActualSize

       ReDim Chunk(lImageLengh - 1)

       '** 将图像字段信息存入数组

       Chunk() = rsImage.Fields("Image").GetChunk(lImageLengh)

       '** 将数组写入临时文件

       Open AppPath & TEMPIMAGEFILE For Binary Access Write As #1

       Put #1, , Chunk()

       Close #1

       '** 显示图像

       Set picPicture = LoadPicture(AppPath & TEMPIMAGEFILE)

       PictureToCenter picPicture, picBox

   End Sub