将图片保存到数据库中

  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

阅读更多
上一篇在不同分辨率下调整程序窗口
下一篇将程序放入托盘中
想对作者说点什么? 我来说一句

如何将图片存到数据库

2010年02月22日 2KB 下载

没有更多推荐了,返回首页

关闭
关闭