将文件添加到 Access 数据库中的附件列

Question

我正在使用以下代码：

Public Sub Add_File(Update_Table As Integer)

    Dim Fpath = My.Settings.Database_Connection_String



    Dim fd As OpenFileDialog = New OpenFileDialog()
    Dim strFileName As String

    fd.Title = "Open File Dialog"
    fd.InitialDirectory = "C:\"
    fd.Filter = "All files (*.*)|*.*|All files (*.*)|*.*"
    fd.FilterIndex = 2
    fd.RestoreDirectory = True
    fd.Multiselect = True


    If fd.ShowDialog() = DialogResult.OK Then
        Dim FileRow
        Try
            FileRow = Form1.Projects_DGV.SelectedCells.Item(0).RowIndex
        Catch ex As Exception
            FileRow = 0
        End Try

        Dim FileX = Form1.Projects_DGV.Item(0, FileRow).Value




        For Each file As String In fd.FileNames

            strFileName = file



            ' this code requires that your project have the following COM Reference:
            '     Microsoft Office 14.0 Access Database Engine Object Library

            Dim dbe As New Microsoft.Office.Interop.Access.Dao.DBEngine
            Dim db As Microsoft.Office.Interop.Access.Dao.Database = dbe.OpenDatabase(My.Settings.Database_Location)
            Dim rstRecord As Microsoft.Office.Interop.Access.Dao.Recordset = db.OpenRecordset( _
                    "SELECT * FROM [Projects] WHERE [Project ID]=" & FileX, _
                    Microsoft.Office.Interop.Access.Dao.RecordsetTypeEnum.dbOpenDynaset)
            rstRecord.Edit()
            Dim rstAttachments As Microsoft.Office.Interop.Access.Dao.Recordset2
            If Update_Table = 1 Then
                rstAttachments = rstRecord.Fields("Invoice").Value
            ElseIf Update_Table = 2 Then
                rstAttachments = rstRecord.Fields("Software Handover").Value
            ElseIf Update_Table = 3 Then
                rstAttachments = rstRecord.Fields("Other Documents").Value
            ElseIf Update_Table = 4 Then
                rstAttachments = rstRecord.Fields("Project Documents").Value
            End If



            rstAttachments.AddNew()
            Dim AttachmentData As Microsoft.Office.Interop.Access.Dao.Field2 = rstAttachments.Fields("FileData")
            AttachmentData.LoadFromFile(strFileName)
            rstAttachments.Update()
            rstAttachments.Close()
            rstRecord.Update()
            rstRecord.Close()
            db.Close()

        Next
        setupdatagrids()
    End If
End Sub

此代码应该允许我将文件作为附件添加到数据库中，并且在另外 2 个项目中运行良好，但由于某种原因现在无法运行。代码在这一行失败：

Dim rstRecord As Microsoft.Office.Interop.Access.Dao.Recordset = db.OpenRecordset( _
                        "SELECT * FROM [Projects] WHERE [Project ID]=" & FileX, _
                        Microsoft.Office.Interop.Access.Dao.RecordsetTypeEnum.dbOpenDynaset)

出现错误：

未处理的类型异常 'System.Runtime.InteropServices.COMException' 发生在 Alveare - 完整的管理工具.exe

附加信息：参数太少。预计 1。

在我传递参数时，有人知道为什么会这样吗？

谢谢

Answer 1

由于Project ID 列包含文本而不是数字，因此请更改：

"SELECT * FROM [Projects] WHERE [Project ID]=" & FileX

到这里：

"SELECT * FROM [Projects] WHERE [Project ID]='" & FileX & "'"

或者这个：

String.Format("SELECT * FROM [Projects] WHERE [Project ID]='{0}'", FileX)

我的偏好是第二个选项。