Private Sub Command2_Click()


Dim PBag As New PropertyBag

'原始图像
picFields(3).Picture = LoadPicture("c:\windows\Coffee Bean.bmp")

Picture1.Cls
Picture1.Picture = Nothing
'复制出来的小图,这里示例
Picture1.PaintPicture picFields(3).Picture, 0, 0

'保存图片
PBag.WriteProperty "Picture", Picture1.Image
datPrimaryRS.Recordset.Fields("photo") = PBag.Contents
datPrimaryRS.Recordset.Update

End Sub
----------------------------------
这个工程是以前论坛一位网友的工程,我只是稍修改一下,
显示图像和保存图片 那二个按钮的代码才是我写的.控件里 Picture1 是我加的,其它都是原来的,



[ 本帖最后由 风吹过b 于 2010-1-12 17:32 编辑 ]

谢谢大家的帮忙！
不过还是没有成功。
我照楼上的方法，能将图片存入数据库，但却显示不出来。我用水晶报表连接该数据表，也显示不出照片。用了另一个显示照片的模块，提示说：无效图片。
我觉得该方法应该是有效的，只是不知哪里有问题。
又要麻烦大家！

这种方法保存到在数据库里的图片,需要使用这种配套的方法单独显示,不能用于绑定数据库的方法来进行显示,否则就是提示图片无效.
因为这种的方法是保存图片的源格式,与文件格式不相同,造成 picture 提示无效图片格式.
需要使用工程里那个显示图片的那个过程进行显示.

好吧,先到这里,谢谢大家!