lxl版主对Foxtable读写二进制图片字段作专题介绍，大家学习！ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → lxl版主对Foxtable读写二进制图片字段作专题介绍，大家学习！

共有13835人关注过本帖树形打印复制链接主题：lxl版主对Foxtable读写二进制图片字段作专题介绍，大家学习！

lxl

小大 11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：MVP荣誉狐帖子：858 积分：6071 威望：0 精华：19 注册：2008/9/1 9:13:00

Post By：2010/9/10 23:48:00 [只看该作者]

读取图片

新建一个窗口，添加一个PictureBox1 和一个按钮

按钮单击代码如下：

Dim cmd As SQLCommand = new SQLCommand()
cmd.Co nnectio nName = "SqlServerDB"
cmd.CommandText = "select 照片列 from 员工表 where 姓名 = '张三'"

Dim imageByte() As Byte = cmd.ExecuteScalar() '查询数据，并存入字节数组

Dim ms As New IO.MemoryStream(imageByte)       '将字节数组转换为二进制流
Dim image As Image = Image.FromStream(ms)      '将二进制流转换为图片
e.Form.Controls("PictureBox1").Image = image      '显示图片

[此贴子已经被作者于2010-9-10 23:52:19编辑过]

kylin

小大 12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

F6
等级：狐精帖子：3030 积分：19188 威望：0 精华：2 注册：2008/9/1 7:50:00

Post By：2010/9/11 7:51:00 [只看该作者]

多谢lxl版主，收藏并实践去。

卟离卟弃

小大 13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：五尾狐帖子：1181 积分：8108 威望：0 精华：1 注册：2009/1/17 10:52:00

Post By：2010/9/11 8:49:00 [只看该作者]

时间就像女人的乳沟，挤挤还是有的。。。。。。狐爸你挤挤吧。。

狐狸爸爸

小大 14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251060 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2010/9/11 9:29:00 [只看该作者]

以下是引用卟离卟弃在2010-9-11 8:49:00的发言：
图片点击可在新窗口打开查看

时间就像女人的乳沟，挤挤还是有的。。。。。。狐爸你挤挤吧。。

呵呵，时间有限，工作很多，只能先做我认为更重要的，这类比较偏门的问题只能排在后面。

kylin

小大 15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

F6
等级：狐精帖子：3030 积分：19188 威望：0 精华：2 注册：2008/9/1 7:50:00

Post By：2010/9/11 9:59:00 [只看该作者]

以下是引用狐狸爸爸在2010-9-11 9:29:00的发言：

呵呵，时间有限，工作很多，只能先做我认为更重要的，这类比较偏门的问题只能排在后面。

赞同，lxl版主提供足够用，如果大家有需要的话。

lihe60

小大 16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：狐神帖子：6848 积分：43334 威望：0 精华：0 注册：2009/3/2 14:07:00

Post By：2011/10/17 13:52:00 [只看该作者]

以下是引用lxl在2010-9-10 23:33:00的发言：

插入图片：

Dim fs As New IO.FileStream("D:\a.JPG" , IO.FileMode.Open , IO.FileAccess.Read)   '用文件流打开图片
Dim br As New IO.BinaryReader(fs)   '根据文件流,申明一个二进制阅读器
Dim ImageByte() As Byte = br.ReadBytes(fs.Length)   '阅读器读取文件流,并将独到的二进制放入数组ImageByte中,
Dim ImageString As String = BitConverter.ToString(imageByte).Replace("-", "") ' SQLCommand 不能直接Insert 二进制,只能拼接SQL语句,所以这里把二进制变成字符

Dim cmd As SQLCommand = new SQLCommand()
cmd.Co n necti o nName = "SqlServerDB"
cmd.CommandText = "Insert aaa values(0x" + ImageString + ")" '这里的ImageString 就是前4条几句根据图片转换来的字符串
'拼接结果为 Insert aaa values(0xFFD8FFE000104A46494600010101006000600000FFDB004………………)
cmd.ExecuteNonQuery()

[此贴子已经被作者于2010-9-10 23:34:13编辑过]

运行这段代码，提示有错误，如何解决？