把存在SQL数据库中二进列的图片保存到文件夹，代码如何写？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 把存在SQL数据库中二进列的图片保存到文件夹，代码如何写？

共有1997人关注过本帖树形打印复制链接主题：把存在SQL数据库中二进列的图片保存到文件夹，代码如何写？

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/9 22:01:00 [显示全部帖子]

参考

http://www.foxtable.com/webhelp/scr/2952.htm

有点色

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

加好友

发短信

等级：超级版主帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00

Post By：2017/4/9 22:56:00 [显示全部帖子]

3楼的代码是否正常执行？你要执行成功才行啊

Dim dr As DataRow = Tables("二进制").current.DataRow
Dim fl1 As String = ProjectPath & dr("文件名")
Dim img = dr.SQlLoadImage("文件名")
If img isnot nothing Then '如果提取文件成功
    msgbox(fl1)
    img.Save(fl1)
    Dim Proc As New Process '打开文件
    Proc.File = fl1
    Proc.Start()
Else
    Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

[此贴子已经被作者于2017/4/9 22:56:50编辑过]

下一主题 >> << 上一主题

主题：把存在SQL数据库中二进列的图片保存到文件夹，代码如何写？