[求助]帮忙写一下程序!!!!

jack5d · 发表于 2005-12-13 12:09

各位高人!请求那位好心人,帮忙写一下程序!!!

我想在资料库中插入图片,原来是用OLE,但因为用BMP图像暴大我被吓晕了.....

之后我在BBS中找了好久得到高手指点用以下方法可以解决:

不把照片放入数据库，只把照片的路径保存到数据库中，动态加载，这样可以支持很多种图片格式。作法是在窗体上放一个图像控件，然后根据员工编号或别的有关联的字段去找出路径，用以下语句来加载图像：
图像1.Picture =路径名
路径名必须包括图象文件名。
详细情况你可以参考 access xp 的示例 northwind.mdb 中的雇员窗体

但因我没有VBA基本功.....所以不会写呀!!!!!现在求求各位帮帮忙写一下,只都能达到不占资料库空间和运行速度前题下,你们爱怎么改怎么改.......

帮忙的朋友你们来福建我一下请你们吃饭!!!!!!!!

感激大家!!!!!!!!!!!!!!!

yLfa66XI.rar (13.86 KB, 下载次数: 8)

ycyhjj2865 · 发表于 2005-12-13 14:09

XXHPRs8y.rar (34.66 KB, 下载次数: 19)

可以参考!!

请打开"文件筛选窗体"查看效果.

ycyhjj2865 · 发表于 2005-12-13 14:50

请将相应的代码语句改为如下:

b = Shell("E:\Program Files\Internet Explorer\IEXPLORE.exe " & Chr(34) & filepath & Chr(34), vbMaximizedFocus)

上面代码的"E:\Program Files\Internet Explorer\IEXPLORE.exe "部份要根据你自己机器中IEXPLORE.exe 文件所在实际位置路径填写代码.

在下面的子窗体中填入要打开的图片文件的路径.就可打开你要打开图片啦.

这种代码虽然可以基本达到要求但不够灵活.因为IEXPLORE.exe 一旦所在位置发生变化就不灵啦.最好用API获得IEXPLORE.exe 文件的句柄后再打开图片文件.而不用考虑IEXPLORE.exe 实际位置在哪里.

思路仅供参考.还要靠你自己来解决.

[此贴子已经被作者于2005-12-13 14:55:24编辑过]

sgrshh29 · 发表于 2005-12-13 15:16

8wjenjDz.rar (127.23 KB, 下载次数: 18)

jack5d · 发表于 2005-12-13 16:35

-__-我要是有一点点VBA入门基本功早就自己写了,就是连VBA是什么东西(只知道是程式)都不是很清楚,所以然才求大家帮个忙.............

sgrshh29 · 发表于 2005-12-14 06:25

以下是引用jack5d在2005-12-13 16:35:46的发言：
-__-我要是有一点点VBA入门基本功早就自己写了,就是连VBA是什么东西(只知道是程式)都不是很清楚,所以然才求大家帮个忙.............

自己把代码复制过去就行了,难道也不会复制代码吗?[em06][em06][em06] d0q6A2m6.rar (106.08 KB, 下载次数: 17)

jack5d · 发表于 2005-12-14 13:24

就是不知道..........我只会用基本的东西......帮帮忙吧朋友!!!兄弟!!!!大哥!!!!!老大!!!!!!>_<

sgrshh29 · 发表于 2005-12-14 16:42

以下是引用[I]jack5d[/I]在2005-12-14 13:24:10的发言：[BR]就是不知道..........我只会用基本的东西......帮帮忙吧朋友!!!兄弟!!!!大哥!!!!!老大!!!!!!>_<

楼上都给你做好了，还要怎么帮？是帮你用呢？还是教你用呢？把你的图片和数据库放在同一个文件夹里，把数据库的“图片”字段添上你的对应的“资料图”的名称（要带后缀的），就可以了。

jack5d · 发表于 2005-12-15 08:27

哦~~~请这样子的呀?!真不知道呀!谢谢楼上的朋友~~

		自动登录	找回密码
密码			免费注册

[求助]帮忙写一下程序!!!!

方法之一