设为首页收藏本站Access中国

Office中国论坛/Access中国论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

返回列表 发新帖
查看: 1479|回复: 2
打印 上一主题 下一主题

[其它] [求助]加入图片之后,数据库二十几MB?!

[复制链接]
跳转到指定楼层
1#
发表于 2005-10-11 05:34:00 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
用access做了一个人事查询系统,用一个字段作为员工的照片,但加入员工的照片之后(十三个人,每个人照片50kb左右,共750kb),数据库有500kb变为22MB,太令人难以相信了!

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

谢谢各位给个解答!
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享分享 分享淘帖 订阅订阅
2#
发表于 2005-10-11 16:44:00 | 只看该作者
可以把图片外置,只是存个连接。用 图象 控件显示图片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
3#
 楼主| 发表于 2005-10-11 23:50:00 | 只看该作者
谢谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|站长邮箱|小黑屋|手机版|Office中国/Access中国 ( 粤ICP备10043721号-1 )  

GMT+8, 2024-11-15 01:26 , Processed in 0.086890 second(s), 27 queries .

Powered by Discuz! X3.3

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表