数据库大小问题

如果你图片类型是选择"嵌入"的话,就是这个原因了,如果想减小数据库的体积,可以采用"链接"的方式.

至于解决链接的路径的问题(如果图片的位置变动了),可以参考一下我的自定义函数例程做处理.

1.新建一个模块,把以下代码录入

Public Function funcPicturePath(ByVal strFolderName As String, ByVal strFileName As String) As String

    ' 返回图片链接路径
    Dim strPicturePath As String
   
    ' ***  注意:本函数基于以下的图片路径命名规则:
    ' ***       数据库当前目录下\Image(文件夹)\根据图片功能命名的文件夹(文件夹)\带后缀名称的文件名称(文件)
    ' ***  使用示例:
    ' ***       Me.Logo.Picture=funcPicturePath("Logo","Logo_0.jpg") ' (图片路径:数据库当前目录下\Image\Logo\Logo_0.jpg)
    ' ***       Me.Logo.Picture=funcPicturePath("","Logo_0.jpg")     ' (图片路径:数据库当前目录下\Image\Logo_0.jpg)
   
    ' 定义字符变量strPicturePath为数据库当前目录下的Image文件夹
    If Len(strFolderName) > 0 Then
        strPicturePath = CurrentProject.Path & "\Image\" & strFolderName & "\" & strFileName
        Else
            strPicturePath = CurrentProject.Path & "\Image\" & strFileName
    End If
   
    funcPicturePath = strPicturePath
   
End Function

2.在窗体的Open或Load事件中录入以下代码:

' 基于当前窗体已经建立一个名称为"Logo"的图像控件,图片为"(无)",图片类型为"链接". 数据库当前目录下有一名称为"Image"文件夹,下有子文件"Logo",其中有图片"Logo_0.jpg".  

Me.Logo.Picture=funcPicturePath("Logo","Logo_0.jpg")

以上图片路径可根据自己需要修改下.