关于Access中图片的存储

Jeno

如何实现Access的图片存储,  OLE Object 类型?

设置好之后,如何手动向表中添加几条图片信息呢?

Benjamin_luk

Dim rs As ADODB.Recordset

Dim mstream As ADODB.Stream

Set rs = New ADODB.Recordset

rs.Open "Select * from pub_info"

Set mstream = New ADODB.Stream

mstream.Type = adTypeBinary

mstream.Open

mstream.LoadFromFile "<path to .gif file>"

rs.Fields("logo").Value = mstream.Read

rs.Update



rs.Close

http://support.microsoft.com/default.aspx?scid=kb;EN-US;258038

[此贴子已经被作者于2004-9-1 14:27:42编辑过]