VB中如何把图片转换成二进制数存到数据库中？
3个回答
展开全部
Dim Mst As Stream
Dim rs As ADODB.Recordset
----------------------------------------
Set Mst = New ADODB.Stream
Mst.Type = adTypeBinary '二进制类型
Mst.Open
Mst.LoadFromFile Mystr '加载图片，Mystr为图片路径
----------------------------------------
rs.fields("images")= Mst.Read '保存到数据库
这是保存图片的主要代码
Dim rs As ADODB.Recordset
----------------------------------------
Set Mst = New ADODB.Stream
Mst.Type = adTypeBinary '二进制类型
Mst.Open
Mst.LoadFromFile Mystr '加载图片，Mystr为图片路径
----------------------------------------
rs.fields("images")= Mst.Read '保存到数据库
这是保存图片的主要代码
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
可以的。只要你二进制方式打开图片文件，直接写入到数据库中就可以了。具体方法你搜索下有关资料。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
给我你的邮箱给你发源码
不过我做过数据库和图片管理的程序，不推荐直接保存二进制数的图片数据，那样数据库会变得非常庞大，一下子就几个G了
推荐保存图片的路径，更好一点，可以移动图片到指定的文件夹，也可以很好管理
txt原始图片路径.Text = CommonDialog1.FileName
即可得到图片路径
296722758@qq.com>
不过我做过数据库和图片管理的程序，不推荐直接保存二进制数的图片数据，那样数据库会变得非常庞大，一下子就几个G了
推荐保存图片的路径，更好一点，可以移动图片到指定的文件夹，也可以很好管理
txt原始图片路径.Text = CommonDialog1.FileName
即可得到图片路径
296722758@qq.com>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
