| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2283 人关注过本帖
标题:这段存取图片到数据库的代码可用吗
只看楼主 加入收藏
wjq09
Rank: 2
等 级:论坛游民
帖 子:69
专家分:20
注 册:2011-1-2
收藏
得分:0 
以下是引用风吹过b在2016-5-5 15:02:56的发言:

那你的代码就改成每次都插入新的记录吧。

Adodc1.recordset.addnew

好像命令是这样的,你自己搜索一下。
代替那三行命令就是了。
图片附件: 游客没有浏览图片的权限,请 登录注册
图片附件: 游客没有浏览图片的权限,请 登录注册

谢谢,现在增加正常了,但我现在不按控件箭头的时候再按下显示图片按钮时就弹出这个
2016-05-16 17:32
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
是不是对应的这行没有数据造成的?
你判断一下是否存在记录再调用显示命令吧。
读取,仍然加那三行代码进行判断。

授人于鱼,不如授人于渔
早已停用QQ了
2016-05-16 17:38
焚心劫
Rank: 1
来 自:甘肃庆阳
等 级:新手上路
威 望:1
帖 子:6
专家分:9
注 册:2016-5-16
收藏
得分:0 
可以设置多行
2016-05-17 08:45
ZHRXJR
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 
在ADO中有个对象:Stream,处理图片非常简单:
程序代码:
Dim Mst As New ADODB.Stream

'数据库连接略,根据你自己的数据库设置即可
RS.Open "select * from 数据表", cn, 3, 2
  RS.AddNew
  Mst.Type = adTypeBinary
  Mst.Open    '打开Mst对象
  If Text2.Text <> "" Then Mst.LoadFromFile Text2.Text   'Mst对象将图片内容转换成二进制数据
  'Text2.Text 是硬盘中选择的图片路径+文件名+扩展名
  RS.Fields("图片") = Mst.Read   '将二进制数据存储在数据表的【图片】Image数据类型的字段,Access数据库存储在【OLE 对象】的字段即可。
  RS.Fields("扩展名") = SSR      'SSR是取得的图片的扩展名,含 . 号,例如  .jpg
  '将图片文件的扩展名存储在【扩展名】这个字段
  RS.Update
  Mst.Close
  RS.Close
      MsgBox "图片已经存储到数据库了!"

仅仅九行代码就解决问题了,实际上处理图片的代码仅仅4行。

请不要选我!!!
2016-05-17 21:25
快速回复:这段存取图片到数据库的代码可用吗
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.035927 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved