关闭

将图片保存到数据库中

808人阅读 评论(0) 收藏 举报
  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

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:23423次
    • 积分:433
    • 等级:
    • 排名:千里之外
    • 原创:18篇
    • 转载:2篇
    • 译文:0篇
    • 评论:3条
    文章分类
    最新评论