以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  二进制附件怎么直接另存为？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=57490)
--  作者：Bin
--  发布时间：2014/9/25 15:40:00
--  
http://www.foxtable.com/help/topics/2952.htm
--  作者：Bin
--  发布时间：2014/9/25 15:41:00
--  
自己编写代码实现
--  作者：Bin
--  发布时间：2014/9/25 16:00:00
--  
看2楼
--  作者：Bin
--  发布时间：2014/9/25 16:06:00
--  

SQLLoadFile(Field,FileName)

Field:     字符型，二进制列的列名
FileName:  字符型，文件名，提取的内容将保存在此文件中。

如果成功提取文件，返回True，否则返回False。


http://www.foxtable.com/help/topics/0329.htm
--  作者：狐狸爸爸
--  发布时间：2014/9/25 16:14:00
--  

Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog
dlg.Filter= "word文件|*.doc" \'设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮

     if Tables("员工").Current Is Nothing Then

                Return

     end if

     Dim dr As DataRow = Tables("员工").Current.DataRow

    dr.SQLLoadFile("附件",dlg.FileName)
End If