如何使用VB在Access中添加图像

把Access库中的放图片的字段设为OLE类型

Set rsm = New ADODB.Stream

存图片代码：

rsm.Type = adTypeBinary

rsm.Open

rsm.LoadFromFile "c:\temp.jpg"

rs.Fields(0)=rsm.read

读图片代码：

rsm.Type = adTypeBinary

rsm.Open

rsm.Write rs.Fields(0)

rsm.SaveToFile "c:\temp.jpg"

Picture1.Picture = LoadPicture("c:\temp.jpg")

Kill "c:\temp.jpg"

1、可以建立一个字段 将其数据类型改为OLE对象 然后直接粘贴图片

2、或用将图片转换为二进制 存入数据库中

3、用普通字段放一个路径 指向图片 直接让显示

一般用第三种，在窗口显示图片时，只要从工具栏插入图片对象，将记录源改为该图片路径字段

---