Foxtable(狐表)用户栏目专家坐堂 → 求教,这样保存图片如何写?


  共有7112人关注过本帖树形打印复制链接

主题:求教,这样保存图片如何写?

帅哥哟,离线,有人找我吗?
baoxyang
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23140 威望:0 精华:1 注册:2009/3/31 11:25:00
求教,这样保存图片如何写?  发帖心情 Post By:2011/5/20 16:45:00 [显示全部帖子]

Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "图文文件|*.jpg" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then

    Dim ss As String  = dlg.FileName
    Dim fs As New IO.FileStream(ss, IO.FileMode.Open , IO.FileAccess.Read)   

    Dim br As New IO.BinaryReader(fs)   

    Dim ImageByte() As Byte = br.ReadBytes(fs.Length)   

    Dim ImageString As String = BitConverter.ToString(imageByte).Replace("-", "")  

    Dim cmd As New SQLCommand
    cmd.C
    Dim r As Row = Tables("人事档案_Table1").current
    Dim s As String = r("工号")

    cmd.CommandText = "Update {员工档案}  set 相片1 = 0x" + ImageString +" where 工号 = '"& s &"'"   
    cmd.ExecuteNonQuery()

    r("相片1")  = “0x" & ImageString  ‘这个会出错,请教这个代码如何写?
    e.Form.Controls("PictureBox1").Image = GetImage(ss)
End If

 

 

上述代码,黑体部分是把图片通过SQL语句来实现,如果直接在窗口表中实现,如斜体部分。语句如何写?请指教!!先谢了!!!

 


图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看
[此贴子已经被作者于2011-5-20 16:46:25编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23140 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2011/5/22 8:59:00 [显示全部帖子]

SQL字段是Image类型的,应如何把图片保存到字段中的吗?


 回到顶部
帅哥哟,离线,有人找我吗?
baoxyang
  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3313 积分:23140 威望:0 精华:1 注册:2009/3/31 11:25:00
  发帖心情 Post By:2011/5/22 9:20:00 [显示全部帖子]

我看下网上介绍,是可以二进制保存图片文件的。


 回到顶部