以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]二进制列中提取文件  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=118962)
--  作者：cool314156
--  发布时间：2018/5/15 9:49:00
--  [求助]二进制列中提取文件
求助用SQLLoadFile提取文件，如何设置保存路径
--  作者：有点甜
--  发布时间：2018/5/15 10:42:00
--  

你提取的时候，路径是直接指定的，你弄成什么都可以啊

 

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

 
--  作者：cool314156
--  发布时间：2018/5/15 12:40:00
--  
If Tables("管理.附件").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("管理.附件").Current.DataRow
Dim fl As String =  ProjectPath & dr("文件名")
If FileSys.FileExists(fl) AndAlso CRCCheckFile(fl) = dr.SQLGetValue("CRC值") Then \'如果本地存在同名文件且CRC校验值相同
    \'则直接使用本地文件
Else \'否则从数据库提取文件
    If dr.SQLLoadFile("附件",fl) = False Then \'如果提取文件失败
        Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Return
    End If
End If
Dim Proc As New Process \'打开文件
Proc.File = fl
Proc.Start()
 求教下，怎么样可以设置提取附件的保存路径啊
--  作者：有点甜
--  发布时间：2018/5/15 14:25:00
--  

 

Dim fl As String = "d:\\test\\" & dr("文件名")