高手,请帮忙啊! 如何把JPG格式的图片从一个文件里写入到数据库中,急!!在线等!!给分50 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=19363 adodc1.recordset.fields(i)=LoadPicture(commondialog1.FileName)试试我关注这个问题 使用Stream对象,可以实现对数据库的图像存取。数据库中存放图像的字段是二进制类型(Access为OLE类型)。比如,如果用“CommonDialog”控件来选择你硬盘上的图像文件;用“Picture”控件来显示图像,那么下面的代码供参考:(已连接数据库,打开了相应的记录集rs) Dim StmPic As ADODB.Stream Dim StrPicTemp As String ...... '保存你所选择的图像 Set StmPic = New ADODB.Stream StmPic.Type = adTypeBinary '指定流是二进制类型 StmPic.Open '将数据获取到Stream对象中 StmPic.LoadFromFile (CommonDialog1.FileName) '将选择的图像加载到打开的StmPic中 rs.AddNew rs.Fields(1).Value = StmPic.Read '从StmPic对象中读取数据 rs.Update StmPic.Close ...... '读取显示数据库中的图像 Set StmPic = New ADODB.Stream StrPicTemp = "c:\temp.tmp" '临时文件,用来保存读出的图片 With StmPic .Type = adTypeBinary .Open .Write rs.Fields(1) '写入数据库中的数据至Stream中 .SaveToFile StrPicTemp, adSaveCreateOverWrite '将Stream中数据写入临时文件中 .Close End With Picture1.Picture = LoadPicture(StrPicTemp) '用Picture控件显示图像 ...... http://www.enet.com.cn/eschool/inforcenter/A20040315294437.html VB+ACCESS 查询结果为什么都是重复的呢? vb中如何读取远程列表txt文本文件 关于datalist和datacombo 版主,我的信誉分怎么由101分变为100分了 接受多连接 -=-= shape的用法 =-=- 如何隐藏工作簿2(book2),系统已经打开了book1情况下。 odbc与VB的问题 小问题!! DBGrid 控件用不了! 一个头痛的递归问题,100分求助!!! 判断数据库是否已添加了图片
试试
我关注这个问题
数据库中存放图像的字段是二进制类型(Access为OLE类型)。
比如,如果用“CommonDialog”控件来选择你硬盘上的图像文件;
用“Picture”控件来显示图像,那么下面的代码供参考:
(已连接数据库,打开了相应的记录集rs)
Dim StmPic As ADODB.Stream
Dim StrPicTemp As String
......
'保存你所选择的图像
Set StmPic = New ADODB.Stream
StmPic.Type = adTypeBinary '指定流是二进制类型
StmPic.Open '将数据获取到Stream对象中
StmPic.LoadFromFile (CommonDialog1.FileName) '将选择的图像加载到打开的StmPic中
rs.AddNew
rs.Fields(1).Value = StmPic.Read '从StmPic对象中读取数据
rs.Update
StmPic.Close
......
'读取显示数据库中的图像
Set StmPic = New ADODB.Stream
StrPicTemp = "c:\temp.tmp" '临时文件,用来保存读出的图片
With StmPic
.Type = adTypeBinary
.Open
.Write rs.Fields(1) '写入数据库中的数据至Stream中
.SaveToFile StrPicTemp, adSaveCreateOverWrite '将Stream中数据写入临时文件中
.Close
End With
Picture1.Picture = LoadPicture(StrPicTemp) '用Picture控件显示图像
......