如何使用Windows窗体中的Access附件字段?

问题描述

在Visual Studio中,我从本地Access数据库文件中设置了数据源。该数据库中的一张表除其他外,具有几个不同的附件字段(利用Access的附件数据类型)。

首先, Visual Studio将它们标记为字符串数据类型,这似乎是不正确的,但是当我对其进行更改时,似乎没有适用的数据类型: Visual Studio data types

要选择什么合适的数据类型?

第二,哪种控件适合于在表单上表示此字段?显然,TextBox不会削减它,但是我不知道让用户上传和下载这些附件的最佳方式是什么-Winforms我还很陌生。

如果编码是您答案的一部分,请注意我正在使用VB.net(我知道,我知道)。 Visual Studio版本是Community 2019 Edition 16.7.1

解决方法

一个非常有趣的问题。

答案是肯定的,您可以轻松提取附件数据。

首先要意识到的是,附件表实际上是在幕后的纯简简子表。请记住,附件列(子表)可以附加1个或15个文件。

破译此魔术的技巧是在Access中启动查询生成器,并将其放入该表中。

你看到这个

enter image description here

请注意每个附件(三列)如何存在一组“列”。

现在,如果在查询中不包括3列之一?然后,查询中的每一行都会得到1行。

在上面,放手

从tblAttach中选择*。

此表中我只有一行,但是您可以看到两个附件!

enter image description here

现在是魔术:

如果您包含任何子表列,那么在后台,数据引擎将对该隐藏子表进行LEFT JOIN(实际上,它不再被隐藏!)。

因此,我们可以针对查询执行此操作:

SELECT ID,FirstName,LastName,MyBinFiles.FileName,MyBinFiles.FileType,MyBinFiles.FileData
FROM tblAttach;

因此,仅包含子列名称的任何一个都将导致Access(ACE)进行左连接。 (您不使用联接,仅出现的3列中的任何一列的ACT都将导致对左联接的访问。)

因此,父列(id,FirstName,LastName)将为附件表中的每个子行“重复”(该表隐藏在Access中-您无法获得名称,但是有了这个技巧,很好-我们不在乎。

您现在得到了:

enter image description here

那文件数据列?它是整个文件的bytes()数组。

现在,让我们跳到.net。

拖放到网格视图中。我们有此代码

然后是一个按钮-该按钮后面的代码是这样的:

   Dim con As New OleDb.OleDbConnection(My.Settings.Test44)

    Dim strSQL As String
    strSQL = "SELECT ID," &
             "MyBinFiles.FileName," &
             "MyBinFiles.FileType" &
             " FROM tblAttach"

    ' "tblAttach.MyBinFiles.FileData," &

    Dim oReader As New OleDb.OleDbDataAdapter(strSQL,con)
    Dim rstData As New DataTable
    oReader.Fill(rstData)

    Me.DataGridView1.DataSource = rstData

    Dim btn As New DataGridViewButtonColumn()
    DataGridView1.Columns.Add(btn)
    btn.HeaderText = "Export"
    btn.Text = "Export File"
    btn.Name = "btn"
    btn.UseColumnTextForButtonValue = True

好的,我们现在在.net中有这个>

enter image description here

(请再次注意-两行!!!-这样便发生了MAGIC加入!!)

现在,要导出文件的按钮代码了吗?

我们有这个:

Private Sub DataGridView1_CellClick(sender As Object,e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick

    If e.ColumnIndex = 5 Then
        ' export data
        With DataGridView1.Rows(e.RowIndex)

            Call ExportFile(.Cells(0).Value,.Cells(3).Value,.Cells(4).Value)

        End With
    End If

End Sub

请注意,子表的PK列未公开。实际上,主表的PK(id)+文件名=整行的PK。

是的,这确实意味着您不能将两个相同名称的文件附加到给定的单行中-Access中不允许这样做-UI和引擎阻止了这种情况。

因此,在上面,我传递了ID和FileName。 而且我没有在显示网格查询中包括二进制(byte())列-这会导致“讨厌”-但是,如果附件是图片? 然后,是的,从SQL Server(或Access / ACE)中提取/显示二进制图片的代码示例实际上可以工作。

在我的示例中,您可以看到文件扩展名是pdf(因此类型列是原始文件扩展名-在大多数情况下!!!)因此,pdf文件存储在这里。

那么,现在将该附件导出到标准Windows文件的代码了?

代码与使用SQL Server和varbinary列进行操作时的代码确实相同。

我们得到了:

Sub ExportFile(id As Integer,strFile As String,strType As String)

    Dim con As New OleDb.OleDbConnection(My.Settings.Test44)

    Dim strSQL As String
    strSQL = "SELECT ID," &
             "MyBinFiles.FileType," &
             "MyBinFiles.FileData" &
             " FROM tblAttach " &
             " WHERE ID = " & id &
             " AND MyBinFiles.FileName = '" & strFile & "'"

    Dim oReader As New OleDb.OleDbDataAdapter(strSQL,con)
    Dim rstData As New DataTable
    oReader.Fill(rstData)

    Dim strSaveAsFile As String = "c:\test\Files\" & strFile & "." & strType
    Dim bytefile As Byte() = rstData.Rows(0).Item("MyBinFiles.FileData")
    File.WriteAllBytes(strSaveAsFile,bytefile)

End Sub

因此,请注意,这次我们DID包含FileData。并注意如何将数据(byte())数组写到磁盘上。

最终结果是可以打开的有效Windows文件。以我的情况为pdf,但可能是图片,或者说一个文字文件。