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

如何解决如何使用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中启动查询生成器，并将其放入该表中。

你看到这个

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

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

在上面，放手

从tblAttach中选择*。

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

现在是魔术：

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

因此，我们可以针对查询执行此操作：

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

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

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

您现在得到了：

那文件数据列？它是整个文件的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中有这个>

（请再次注意-两行！！！-这样便发生了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，但可能是图片，或者说一个文字文件。