老兄,帮帮忙呀!明天最有一天了,还没有头绪,真是着急呀!一个存储显示图片的问题,需要三种方法! ( 积分: 29 )

  • 主题发起人 主题发起人 pizixiao
  • 开始时间 开始时间
P

pizixiao

Unregistered / Unconfirmed
GUEST, unregistred user!
一共三种方法,一个一个的来介绍,第三种方法已经实现,主要是第一和第二种,比较难办,大家能不能帮我一下?我很着急呀!
我现在正在完成一个毕业设计,前期没有抓紧,快要答辩了,着急了,老师催呀,还没有头绪,真是烦死了!大家帮我一下好吗?
我的毕业设计是ACCESS数据库图片存储方法研究,就是有三种方法往ACCESS数据库中存储图片,然后将其显示出来。
第一种:利用文本字段存放图片文件名
这种方法的具体作法是将全部图片数据直接以独立文件的形式存放在指定的路径下,在Access表中建立指定的文本类型字段,用于存放文件的主名。在编程时利用语句从指定的位置读取文件,直接进行显示,存储图片时要求用户选择指定图片文件,然后利用程序存放到指定位置即可。这种方法容易编程实现,但需要用户管理维护图片文件,以确保图片文件与数据库字段的数据统一。

上面是老师给的思路,我的想法是存储图片的路径都没有问题,就是建立一个字段来存放图片的路径,通过读取数据库找到这个路径,但是怎么显示图片呢?用什么语句呢?我是用VBA来写代码!
全部分数送上了,这可是全部家底了!!!!!!!
 
一共三种方法,一个一个的来介绍,第三种方法已经实现,主要是第一和第二种,比较难办,大家能不能帮我一下?我很着急呀!
我现在正在完成一个毕业设计,前期没有抓紧,快要答辩了,着急了,老师催呀,还没有头绪,真是烦死了!大家帮我一下好吗?
我的毕业设计是ACCESS数据库图片存储方法研究,就是有三种方法往ACCESS数据库中存储图片,然后将其显示出来。
第一种:利用文本字段存放图片文件名
这种方法的具体作法是将全部图片数据直接以独立文件的形式存放在指定的路径下,在Access表中建立指定的文本类型字段,用于存放文件的主名。在编程时利用语句从指定的位置读取文件,直接进行显示,存储图片时要求用户选择指定图片文件,然后利用程序存放到指定位置即可。这种方法容易编程实现,但需要用户管理维护图片文件,以确保图片文件与数据库字段的数据统一。

上面是老师给的思路,我的想法是存储图片的路径都没有问题,就是建立一个字段来存放图片的路径,通过读取数据库找到这个路径,但是怎么显示图片呢?用什么语句呢?我是用VBA来写代码!
全部分数送上了,这可是全部家底了!!!!!!!
 
告诉大家一个好消息,我把第一种方法解决了,现在就差第二种方法了。
第二种方法:利用字节流实现图片文件到字段的存取

这种方法的主要思想是利用低级文件操作将文件从磁盘中读出以二进制字节流形式存放到OLE类型字段中。当显示图片时,首先将字段中存放的内容读出来,以文件的形式恢复到磁盘中,再由其它命令负责显示。实际上, 这种方法对于数据库来说,并不“知道”存放的图片文件的格式,存放图片内容的正确性要求用户自己确定。
这种方法主要涉及到两个操作,一是将图片文件存入字段的GetFromFile函数,一是将字段内容恢复成文件的SaveToFile函数,下面为两个函数的定义说明,所用语言为VBA。

Public Function GetFromFile(strTable As String, strField As String, strFilter As String, objFileName As String) As Boolean 参数:strTable (String) 准备保存图形数据的表名称strField (String) 准备保存图形数据的字段名称strFilter (String) 打开表的过滤字符串用于定位并确保表的数据的唯一性objFileName (String) 准备输入到表里边的图象文件名称返回:如果保存成功返回True 如果失败返回False说明:把图象文件的数据保存到表里边

Public Function SaveToFile(strTable As String, strField As String, strFilter As String,strFileName As String) As Boolean 参数:strTable (String) 保存图形数据的表名称strField (String) 保存图形数据的字段名称strFilter (String) 打开表的过滤字符串用于定位并确保表的纪录的唯一性strFileName (String) 准备保存的图象的文件名称返回:如果保存成功返回True 如果失败返回False说明:把由GetFromFile 函数保存到表中OLE字段的数据还原到文件

第二种方法真的一点思路都没有,大家能不能给点?
看到前景了!
 
怎么没人说话?好冷清呀!
 

Similar threads

D
回复
0
查看
767
DelphiTeacher的专栏
D
D
回复
0
查看
740
DelphiTeacher的专栏
D
D
回复
0
查看
691
DelphiTeacher的专栏
D
后退
顶部