问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501

如何在数据库中添加图片?

发布网友 发布时间:2022-04-09 13:20

我来回答

3个回答

热心网友 时间:2022-04-09 14:49

我使用过,我一般是这么处理的,如下(我用的vb,你可以转变成access里的代码):

图片是可以放到数据库里面的,以ACCESS为例子,要使用OLE数据类型,
然后把图片转化为长二进制数据存入,读取的时候可以生成系统隐藏的图
片然后在图片控件中显示

Dim cc() As Byte
Dim i
Dim t
Private Sub Command1_Click()
CommonDialog1.Filter = "JPG图片(*.BMP)|*.BMP"
CommonDialog1.ShowOpen
If CommonDialog1.FileName <> "" Then
Picture1.Picture = LoadPicture(CommonDialog1.FileName)
strname = CommonDialog1.FileName
Open strname For Binary As #1
ReDim cc(LOF(1) - 1)
t = cc(LOF(1) - 1) '在读取二进制时,如果是用文件操作那么涉及到到底从文件中取多少字节的问题,所以字节数组要指定大小
Get #1, , cc
Close
Else
MsgBox "没有选中图片"
End If
End Sub
Private Sub Command2_Click()
Adodc1.Refresh
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("id") = i
Adodc1.Recordset.Fields("qq") = cc
i = i + 1
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
Private Sub Command3_Click()
Adodc1.Refresh
Dim P() As Byte
Adodc1.RecordSource = "select qq from 表一 where id='" & Text1.Text & "'"
P = Adodc1.Recordset.Fields("qq") '当把一组二进制数据赋值给一个二进制数组时就不用指定数组的大小了,因为是全部赋值
Open App.Path & "\oo.bmp" For Binary As #1
Put #1, , P
Close
End Sub
Private Sub Command4_Click()
Open App.Path & "\oo.bmp" For Binary As #1
Put #1, , cc
Close
End Sub
Private Sub Form_Load()
i = 1
End Sub

参考资料:http://hi.baidu.com/control%5Fworld/blog/item/3bce2d6dc1d58bfe43169430.html

热心网友 时间:2022-04-09 16:07

http://zhidao.baidu.com/question/68793867.html

热心网友 时间:2022-04-09 17:42

存放图片路径比较简单
声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com
怎么样制作个人简历 上海海事大学对外交流多麽出国会不会容易一些 上海海事大学提前批今年要几号才能出来 怎么查找大学家长群 北京慧学堂在线教育学校的老师打电话来说要交3480元钱,给孩子半年的在... 左脸颊长青春痘是什么原因? 某商店上午9:00开始营业全天营业8小时下午几点关门 (2012?泗县模拟)某商店每天10:00-18:00营业,全天营业88小时. 某商店每天9:20-18:00营业,全天营业()小时。老师早上7:30到校,下午4... 商场营业时间是上午8:00-下午6:00,一位顾客向一位老先生嗯打听时间了... 扑克牌中的4张J手中拿的东西到底分别是什么?有什么含义? 扑克里的J代表什么? 扑克牌上的J Q K分别代表什么(包括红桃黑桃梅花方块) 扑克牌里的JQK上面人物都是谁?为什么扑克牌上要印他们? 现在还能买到135胶卷吗?国产的乐凯还有吗?是不是涨价了? 保定哪里可以洗135胶卷的,贵不贵?洗一卷36张的大约多少钱?最好在北市区的。 lomo相机胶卷价格大概是多少 一部电影胶卷多少钱 相机的胶卷天一卷要多少钱! 热水壶用着用着不通电了? 135胶卷的冲洗费用问题 关于lomo照片 LOMO相机需要的135胶卷重庆哪能买到啊.?大概多少钱?. 现在胶卷的价格是多少 关于120和135胶卷冲洗费用 快递公司如何提高签收率? 现在普通的135胶卷大概多少钱一卷 冲印一卷135胶片大概要多少钱? 洗一卷胶卷大概多少钱? 现在一卷一般的135胶片多少钱?120的呢? 火车票免费订票什么意思? 手机网上购火车票免登录购票怎么操作删除多余的费用? 微信免登陆购票出票中断钱怎么退? 智行火车票软件不用登录就可以购票信得过 嘛 可靠吗? 京东金条属于网贷吗 拍球英语怎么说 想教小孩子一些投篮球,运球等一些英语英文句子,不知道怎么说? 你爸爸正在拍球吗? 用英语怎么说? 乒乓球用英文怎么写? 拍球的并揞怎么写 小朋友和爸爸拍球怎么发朋友圈 拍球,小明和小华,一同,在,操场上,这几个词连成句子,怎么写 qq显ip显隐身最新版 qq显ip最新版 QQ显示IP最新版本 显示ip地址的qq版本 qq显示ip版本 QQ显IP版 QQ最新版显IP QQ2007IP显示版下载