将图片保存到数据库中

转载 2006年05月17日 08:12:00
  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

相关文章推荐

php 上传图片保存到数据库例子

php 上传图片保存到数据库例子 php 上传图片,一般都使用move_uploaded_file方法保存在服务器上。但如果一个网站有多台服务器,就需要把图片发布到所有的服务器上才能正常使用(使用图...
  • fdipzone
  • fdipzone
  • 2014年10月09日 01:13
  • 46498

将图片保存到数据库sql中

  • 2014年05月28日 15:23
  • 18KB
  • 下载

java保存图片内容到数据库

java保存图片到数据库

ssh保存图片到数据库

  • 2013年03月12日 23:03
  • 433KB
  • 下载

使用转换mnist数据库保存为bmp图片

在http://yann.lecun.com/exdb/mnist/ 网上下载好数据集之后解压,得到如下四个文件。 但是这些个文件怎么用呢,参照网站上的说明,他们都是二进制文件,格式分别如下: ...

C#保存图片到数据库

  • 2010年01月20日 16:01
  • 2.23MB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:将图片保存到数据库中
举报原因:
原因补充:

(最多只允许输入30个字)