在窗体中利用如下代码添加了文件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
在移动开发时，怎么实现从数据库中二进制列下载并打开下载的文件呢？
加好友 
发短信
Post By：2019/3/24 17:02:00 [显示全部帖子]
