主题：二进制列后台操作的问题

插入图片：

 

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()

 

 

读取显示图片

 

Dim cmd As SQLCommand = new SQLCommand()
cmd.ConnectionName = "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      '显示图片

Dim bs() As Byte = cmd.ExecuteScalar()    '查询数据，并存入字节数组
Dim ms As New IO.FileStream("d:\000.xls", IO.FileMode.Create)
ms.Write(bs, 0,bs.length)
ms.close