以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  把存在SQL数据库中二进列的图片保存到文件夹，代码如何写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98917)
--  作者：lihe60
--  发布时间：2017/4/9 13:22:00
--  把存在SQL数据库中二进列的图片保存到文件夹，代码如何写？
如题。
--  作者：lihe60
--  发布时间：2017/4/9 13:47:00
--  
比如数据库名为“二进制”，第一行、列名（为二进制列）为“文件名”的单元格里的图片如何保存在指定的文件夹如“d:\\"
DataTables("二进制").DataRows(0).SQlLoadImage("文件名")
[此贴子已经被作者于2017/4/9 13:46:54编辑过]
--  作者：lihe60
--  发布时间：2017/4/9 14:05:00
--  
Dim dr As DataRow = DataTables("二进制").DataRows(0)
Dim img As Image =dr.SQlLoadImage("文件名") 
img.save("d:\\data\\" & dr("文件名"))

这样的代码如何改？
--  作者：lihe60
--  发布时间：2017/4/9 21:57:00
--  
可以解决吗？
--  作者：有点色
--  发布时间：2017/4/9 22:01:00
--  

参考

 

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

 
--  作者：lihe60
--  发布时间：2017/4/9 22:48:00
--  



[此贴子已经被作者于2017/4/9 22:56:33编辑过]
--  作者：有点色
--  发布时间：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编辑过]
--  作者：lihe60
--  发布时间：2017/4/9 22:59:00
--  
成功，谢谢。