Office中国论坛/Access中国论坛

标题: [求助]加入图片之后，数据库二十几MB？！ [打印本页]

作者: boldman 时间: 2005-10-11 05:34
标题: [求助]加入图片之后，数据库二十几MB？！
用access做了一个人事查询系统，用一个字段作为员工的照片，但加入员工的照片之后（十三个人，每个人照片50kb左右，共750kb），数据库有500kb变为22MB，太令人难以相信了！

这是为什么？怎么能够解决？

谢谢各位给个解答！

作者: dasen 时间: 2005-10-11 16:44
可以把图片外置，只是存个连接。用图象控件显示图片Private Sub Form_Current()

'************************'

'利用dir()查找图片在server机中

'***********************' Me.image.picture = "C:\WINNT\Zapotec.bmp" '指定一个临时图片

Dim myfile, mypath1, mypath2, mypath3 As String

mypath1 = "\\server\g\our photo\smartrend\"

mypath2 = "\\server\g\our photo\wax-silver model\新款号-photo\"

mypath3 = "\\server\g\our photo\smartrend\ring\"

If Left([STYLE], 3) = "uba" Then

      If Dir(mypath1 & "bangle\" & Me.STYLE & "*.jpg ") = "" Then '尝试采用模糊方法打开图片

         If Dir(mypath2 & Me.STYLE & "*.jpg") <> "" Then

            myfile = Dir(mypath2 & Me.STYLE & "*.jpg")

            image.picture = mypath2 & myfile

         Else

            image.picture = "C:\WINNT\Zapotec.bmp"

         End If

      Else

         myfile = Dir(mypath1 & "bangle\" & Me.STYLE & "*.jpg ")

         image.picture = mypath1 & "bangle\" & myfile

      End If

Else

作者: boldman 时间: 2005-10-11 23:50
谢谢!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)