以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  在移动开发时，怎么实现从数据库中二进制列下载并打开下载的文件呢？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=132542)
--  作者：李孝春
--  发布时间：2019/3/24 17:02:00
--  在移动开发时，怎么实现从数据库中二进制列下载并打开下载的文件呢？
在窗体中利用如下代码添加了文件
If Tables("窗口1_table1").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("窗口1_table1").Current.DataRow
If dr.RowState = DataRowState.Added Then \'如果是新增行,必须先保存才能插入文件
    dr.Save()
End If
Dim dlg As New OpenFileDialog
dlg.Filter = "excel文件|*.xls"
If dlg.ShowDialog =DialogResult.OK Then
    dr.SQLInsertFile("文档文件",dlg.FileName) \'插入文件
End If

在窗体中利用如下代码可以打开文件
If Tables("窗口1_table1").Current Is Nothing Then
    Return
End If
Dim dr As DataRow = Tables("窗口1_table1").Current.DataRow
Dim fl As String =  ProjectPath &  dr("_Identify") 
If dr.SQLLoadFile("文档文件",fl) Then \'如果提取文件成功
    Dim Proc As New Process \'打开文件
    Proc.File = fl
    Proc.Start()
Else
    Messagebox.Show("附件提取失败,可能并不存在附件!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If

在移动开发时，怎么实现从数据库中二进制列下载并打开下载的文件呢？
--  作者：有点甜
--  发布时间：2019/3/24 17:43:00
--  

1、从数据库提取文件出来，保存在别入 d:\\test.txt

 

2、用e.writefile("d:\\test.txt")下载