技术分享贴：如何在数据库中保存大量图片资料文件与下载

我们将图片保存到数据库中，使用维护起来都变得很简单尤其适用于小型便携式的Access管理系统。但如果直接通过绑定对象框控件的插入对象方法将图片插入的话，非位图图片体积会暴增几十上百倍，从而大大降低了实用性。

一般情况下，如果要将图片保存到数据库中，都是通过绑定对象框的“插入对象”功能来实现，但是这样做会造成数据库体积的明显增大。尤其是在Access 2007之前的版本中所有插入的图上均会被转换成位图，而如果把一个JPG图片转换成位图，我们会发现图片的大小增大了几十上百倍。那么有没有一种办法能够直接把保存源格式的图片到数据库中呢？答案是肯定的，就是ADO中的流对象（Stream）。此处要注意的是，ADO必须是2.5以及更新的版本，老版本中是没有流对象的。

流对象主要有两种用途：一种是处理文档数据，这样可以通过流对象的属性和方法来读取和修改文档内容；另一种就是把其它任意格式的文件以二进制数据流进行处理，不关心文件的格式和内容。在本文中我们讨论的是在数据库中存储图片，所以我们这里主要讨论的就是它的后一种用途。为了更容易理解，我们在此基于一个示例程序来进行说明。

一、创建表

首先我们需要在表中添加至少两个字段，一个用来存放图片的名称，一个用来存放图片的二进制文件数据：

二、创建窗体

然后我们基于此表来创建窗体，通过窗体实现图片的保存以及将保存的图片显示出来。在此窗体中我们需要手动添加三个控件：

图像控件：名称：imgPic    图片类型：链接

按钮控件：名称：cmdAdd  标题：添加/更改图片   

按钮控件：名称：cmdDel   标题：删除图片           

由于相关的记录修改添加都是通过代码完成，所以我们需要将“图片名称”的“锁定”属性设为“是”，另外图片数据是一个绑定对象框控件，它只用来存放图片文件数据，不需要显示出来，所以我们要将其“可见性”属性设为“否”。

三、添加代码

接下来我们需要在单击“添加/更改图片”按钮时将图片以二进制方式写入到数据库中，及以在窗体的记录切换时自动将二进制数据再还原为图片文件，并以链接的方式显示在图像控件中，这些都需要以编程方式来实现，具体实现代码如下：

'添加图片并将图片保存到数据库中

Private Sub cmEdit_Click()

    Dim stm As ADODB.Stream     '定义流对象变量

    Dim strPathName As String   '文件名临时变量



    '调用Access通用的文件选取对话框来选择一个图片文件（需要最低2003版Access）

    With FileDialog(3) 'msoFileDialogFilePicker

        '清除原有文件类型筛选

        .Filters.Clear

        '添加自定义文件类型筛选

        .Filters.Add "图片文件", "*.jpg;*.gif;*.png"

        '如果对话框未被取消，则将选取的文件名保存到变量

        If .Show Then strPathName = .SelectedItems(1)

    End With



    '如果变量不为空说明对话框没有被取消

    If strPathName <> "" Then

        '初始化流对象

        Set stm = New ADODB.Stream

        '设置为二进制处理方式

        stm.Type = adTypeBinary

        '设置为读写权限模式

        stm.Mode = adModeReadWrite

        '打开流对象

        stm.Open

        '从将文件加载到流对象

        stm.LoadFromFile strPathName

        '将流对象中的二进制数据保存到数据库中

        Me!图片数据 = stm.Read

        '关闭流对象

        stm.Close

        '在图像控件中显示刚才的图片

        Me.imgPic.Picture = strPathName

        '将图片的文件名保存到“图片名称”字段，不保存路径

        Me!图片名称 = Mid$(strPathName, InStrRev(strPathName, "\") + 1)

    End If

    '销毁对象变量

    Set stm = Nothing

End Sub

'从数据库中删除图片

Private Sub cmdDel_Click()

    Me!图片数据 = Null      '清空图片数据字段

    Me!图片名称 = Null      '清空图片名称字段

    Me.imgPic.Picture = ""  '清除图像控件中显示的图片

End Sub

 '通过成为当前事件，实现记录切换时自动显示图片

Private Sub Form_Current()

    Dim stm As ADODB.Stream     '定义流对象变量

    Dim strPathName As String   '文件名临时变量



    '如果“图片数据”字段不为空

    If Not IsNull(Me!图片数据) Then

        '根据“图片名称”字段生成一个到操作系统临时文件夹的路径名

        strPathName = Environ$("Temp") & "\" & Me!图片名称

        '初始化流对象变量

        Set stm = New ADODB.Stream

        '设置为二进制处理方式

        stm.Type = adTypeBinary

        '设置为读写权限模式

        stm.Mode = adModeReadWrite

        '打开流对象

        stm.Open

        '将数据库中的二进制数据写入流对象变量

        stm.Write Me!图片数据

        '另存为文件，如果文件存在则覆盖

        stm.SaveToFile strPathName, adSaveCreateOverWrite

        '关闭流对象

        stm.Close

        '在图像控件中显示刚才保存的图片

        Me.imgPic.Picture = strPathName

    Else

        '如果当前记录中没有图片数据，则清除图像控件中的显示

        Me.imgPic.Picture = ""

    End If

    '销毁对象变量

    Set stm = Nothing

End Sub

四、运行测试

最后，就是测试了，大家快去试一下吧。

资料来源：公众号Access开发