备忘录文本中的撇号导致代码错误

Question

我正在使用 Access 2016，但我遇到了一个错误，即更新了备注字段并且人们正在使用撇号，并且它会干扰要更新的代码。该代码运行良好，它会更新表格以获取特定值，除非存在撇号。再多的括号或方括号都无法解决此问题，从而将文本中的撇号与代码隔离开来。如果可能的话，我更喜欢允许我使用撇号的建议。

Private Sub btnlledit_Click()
Dim SQL As String

SQL = "UPDATE tblll " & _
      "SET [LLN] = '" & Forms!frmaddll!txtlln & "',[REF] = '" & Forms!frmaddll!txtllref & "',[TRN] = '" & Forms!frmaddll!txtlltr & "',[HN] = '" & Forms!frmaddll!txtllhull & "', [LL] = '" & Forms!frmaddll!txtll & "',[CA] = '" & Forms!frmaddll!txtllca & "',[CP] = '" & Forms!frmaddll!txtllcomponent & "',[LOC] = '" & Forms!frmaddll!txtllloc & "',[LFSE] = '" & Forms!frmaddll!txtlllfse & "',[FC] = '" & Forms!frmaddll!txtllfc & "' " & _
      "WHERE [LLN] = '" & Forms!frmaddll!txtlln.Value & "';"


DoCmd.RunSQL SQL
DoCmd.Requery

Me.Refresh

End Sub

Answer 1

我已经削减了你的 SQL 来给你一个想法。

SQL 的第一行是参数 - 请注意第一行末尾的;。

Private Sub btnlledit_Click()

    Dim qdf As DAO.QueryDef

    Set qdf = CurrentDb.CreateQueryDef("", _
        "PARAMETERS  LLN_Value TEXT(255), REF_Value TEXT(255), TRN_Value TEXT(255); " & _
        "UPDATE tblll " & _
        "SET LLN = LLN_Value, REF = REF_Value, TRN = TRN_Value " & _
        "WHERE LLN = LLN_Value")

    With qdf
        .Parameters("LLN_Value") = Forms!frmaddll!txtlln
        .Parameters("REF_Value") = Forms!frmaddll!txtllref
        .Parameters("TRN_Value") = Forms!frmaddll!txtlltr
        .Execute
    End With

End Sub  

更好的方法是将查询的执行移至另一个过程并将所需的值传递给该过程：

Public Sub MyQuery(My_LLN_Value AS String, My_Ref_Value AS String, My_TRN_Value AS String)

    Dim qdf As DAO.QueryDef

    Set qdf = CurrentDb.CreateQueryDef("", _
        "PARAMETERS  LLN_Value TEXT(255), REF_Value TEXT(255), TRN_Value TEXT(255); " & _
        "UPDATE tblll " & _
        "SET LLN = LLN_Value, REF = REF_Value, TRN = TRN_Value " & _
        "WHERE LLN = LLN_Value")

    With qdf
        .Parameters("LLN_Value") = My_LLN_Value
        .Parameters("REF_Value") = My_Ref_Value
        .Parameters("TRN_Value") = My_TRN_Value
        .Execute
    End With

End Sub

然后您可以通过单击按钮调用此过程：

Private Sub btnlledit_Click()

    MyQuery Forms!frmaddll!txtlln, Forms!frmaddll!txtllref, Forms!frmaddll!txtlltr

End Sub  

或从其他地方，并从其他地方获取您的价值观：

Public Sub Test

    Dim Second_Arg AS String
    Second_Arg = "Some Reference Value"

    MyQuery Forms!frmaddll!txtlln, Second_Arg, "Third Argument"

End Sub

Answer 2

我马上说，但还有其他东西（+ 在 VBA 中写这个是一种折磨）：

Dim SQL As String

SQL = "UPDATE tblll " & _
      "SET [REF] = @ref,[TRN] = @trn,[HN] = @hn" & _
      ", [LL] = @ll,[CA] = @ca,[CP] = @cp,[LOC] = @loc " & _
      ", [LFSE] = @lfse, [FC] = @fc" & _
      "WHERE [LLN] = @lln";"

   Dim oConnection As ADODB.Connection
   Dim oCommand As ADODB.Command

  Set oConnection = New ADODB.Connection
  Set oCommand = New ADODB.Command

  oConnection.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=c:\MyFolder\MyData.accdb;"

  oConnection.Open
  oCommand.ActiveConnection = oConnection
  oCommand.CommandText = SQL


  oCommand.Parameters.Append oCommand.CreateParameter("@ref", adInteger)
  oCommand.Parameters.Append oCommand.CreateParameter("@trn", adVarChar, adParamInput, 100)
  oCommand.Parameters.Append oCommand.CreateParameter("@hn", adInteger)
  oCommand.Parameters.Append oCommand.CreateParameter("@ll", adInteger)
  oCommand.Parameters.Append oCommand.CreateParameter("@ca", adInteger)
  oCommand.Parameters.Append oCommand.CreateParameter("@cp", adInteger)
  oCommand.Parameters.Append oCommand.CreateParameter("@loc", adInteger)
  oCommand.Parameters.Append oCommand.CreateParameter("@lfse", adInteger)
  oCommand.Parameters.Append oCommand.CreateParameter("@fc", adInteger)
  oCommand.Parameters.Append oCommand.CreateParameter("@lln", adInteger)

  oCommand.Parameters("@ref" ).Value = Forms!frmaddll!txtref.Value
  oCommand.Parameters("@trn" ).Value = Forms!frmaddll!txttrn.Value
  oCommand.Parameters("@hn"  ).Value = Forms!frmaddll!txthn.Value
  oCommand.Parameters("@ll"  ).Value = Forms!frmaddll!txtll.Value
  oCommand.Parameters("@ca"  ).Value = Forms!frmaddll!txtca.Value
  oCommand.Parameters("@cp"  ).Value = Forms!frmaddll!txtcp.Value
  oCommand.Parameters("@loc" ).Value = Forms!frmaddll!txtloc.Value
  oCommand.Parameters("@lfse").Value = Forms!frmaddll!txtlfse.Value
  oCommand.Parameters("@fc"  ).Value = Forms!frmaddll!txtfc.Value
  oCommand.Parameters("@lln" ).Value = Forms!frmaddll!txtlln.Value

  oCmd.Execute

此代码不是专门的访问代码，而是 VBA（您可以在任何 VBA 环境中执行，例如 Excel、Word ...）。 由于我不知道您的字段，因此参数类型仅用于采样。这里重要的是，您必须按照它们在查询字符串中出现的顺序定义参数。附加参数后，您可以按照自己喜欢的任何顺序随意设置它们的值（我认为这是驱动程序的一个限制，参数不是命名的而是位置的）。

注意：我删除了初始 LLN= 因为您正在搜索它并设置为相同的值（IOW 没有变化）。

Answer 3

单引号通过加倍进行转义，正如您在示例中向我们展示的那样。以下 SQL 说明了此功能。

顺便说一句，使用 SQL 参数而不是这些内联 SQL 注入。

尝试如下：

Private Sub btnlledit_Click()
    Dim SQL As String

    SQL = "UPDATE tblll " & _
          "SET [LLN] = '" & Forms!frmaddll!txtlln & "',[REF] = '" & Forms!frmaddll!txtllref & "',[TRN] = '" & Forms!frmaddll!txtlltr & "',[HN] = '" & Forms!frmaddll!txtllhull & "', [LL] = '" & Forms!frmaddll!txtll & "',[CA] = '" & Forms!frmaddll!txtllca & "',[CP] = '" & Forms!frmaddll!txtllcomponent & "',[LOC] = '" & Forms!frmaddll!txtllloc & "',[LFSE] = '" & Forms!frmaddll!txtlllfse & "',[FC] = '" & Forms!frmaddll!txtllfc & "' " & _
          "WHERE [LLN] = '" & Forms!frmaddll!txtlln.Value & "';"

    Replace (SQL, "'", "''")

    DoCmd.RunSQL SQL
    DoCmd.Requery

    Me.Refresh

End Sub