LightSwitch文件的上传，下载及保存（数据库版）

需要在服务器端数据库中建立以下字段

二进制、文件名、扩展名

Private Sub 上传_Execute()
' 在此编写您的代码。
Dispatchers.Main.Invoke(
Sub()
'注意！！！要新建数据记录并保存后，才能使用上传功能。否则会提示未生成实例错误。
Dim openDialog As New Controls.OpenFileDialog
openDialog.Filter = "All File|*.*"
If openDialog.ShowDialog = True Then
Using fileData As System.IO.FileStream = openDialog.File.OpenRead
Dim fileLen As Long = fileData.Length
If fileLen > 0 Then
Dim sizeInMB = fileLen / 1048576
If sizeInMB > 2 Then
Me.ShowMessageBox("File Cannot be > 2MB") : Exit Sub
End If
Dim fileBArray(fileLen - 1) As Byte : fileData.Read(fileBArray, 0, fileLen) : fileData.Close()
'把打开的文件存入数据库二进制字段，upfileProperty为屏幕中名称，如为子表或窗口。则为me.表名.selectitem.字段
Me.SjWenJianGuanLiSet.SelectedItem.文件二进制 = fileBArray
'把打开的文件扩展名存入数据库
文件类型 = openDialog.File.Extension.ToString
'把打开的文件名存入数据库
Me.SjWenJianGuanLiSet.SelectedItem.文件名称 = openDialog.File.Name.ToString
End If
End Using
End If
End Sub)
End Sub

***********************************************************************************

Private Sub 下载_Execute()
' 在此编写您的代码。

Dispatchers.Main.Invoke(
Sub()
If Me.SjWenJianGuanLiSet.SelectedItem.文件二进制 Is Nothing Then
Me.ShowMessageBox("数据库未上传相关文件！", "提示！", MessageBoxOption.Ok)
Exit Sub
End If
Dim ms As System.IO.MemoryStream = New System.IO.MemoryStream(Me.SjWenJianGuanLiSet.SelectedItem.文件二进制)
Dispatchers.Main.Invoke(
Sub()
Dim saveDialog As New Controls.SaveFileDialog
saveDialog.DefaultFileName = Me.SjWenJianGuanLiSet.SelectedItem.文件名称
If saveDialog.ShowDialog = True Then
Using FileStream As Stream = saveDialog.OpenFile
ms.WriteTo(FileStream)
End Using
End If
End Sub)
End Sub)

End Sub

***********************************************************************************

Private Sub 打开_Execute()
' 在此编写您的代码。
Try
If AutomationFactory.IsAvailable Then
If Me.SjWenJianGuanLiSet.SelectedItem.文件二进制 Is Nothing Then
Me.ShowMessageBox("数据库未上传相关文件！", "提示！", MessageBoxOption.Ok)
Exit Sub
End If
Dim fullFilePath As String = System.IO.Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments), Me.SjWenJianGuanLiSet.SelectedItem.文件名称)
Dim fileData As Byte() = Me.SjWenJianGuanLiSet.SelectedItem.文件二进制.ToArray
If fileData IsNot Nothing Then
Using fs As New FileStream(fullFilePath, FileMode.OpenOrCreate, FileAccess.Write)
fs.Write(fileData, 0, fileData.Length)
fs.Close()
End Using
End If
Dim shell = AutomationFactory.CreateObject("Shell.Application")
shell.shellexecute(fullFilePath)
End If
Catch ex As Exception
'Me.ShowMessageBox(ex.ToString)
End Try
End Sub

二进制文件大小验证控制：
 Private Sub 文件二进制_Validate(results As EntityValidationResultsBuilder)
' results.AddPropertyError("<错误消息>")
'服务器端验证文件大小是否超过2MB，会影响性能。如页面中出现验证次数较少的话，建议页面中验证。
If Me.文件二进制 IsNot Nothing Then
Dim sizeInMB = Me.文件二进制.Length / 1048576
If sizeInMB > 2 Then
results.AddPropertyError("File Cannot be > 2MB")
End If
End If
End Sub