VB中如何把图片转换成二进制数存到数据库中?
展开全部
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>
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询