如何修复此代码中的语法错误 3134？

Question

Private Sub Form_Close() Dim sSQL, stringSQL As String Dim rst As DAO.Recordset sSQL = "SELECT BarCode, [Goods Name] FROM tblInventory WHERE BarCode='" & Me.ID & "'" Set rst = CurrentDb.OpenRecordset(sSQL) If rst.EOF Then stringSQL = "INSERT INTO tblInventory(BarCode,[Goods Name],Unit,[Unit Price],[Initial Stock],[Current Stock],[Exit Item]) values('" & Me.ID & "','" & Me.GoodsName & "','" & Me.Unit & "'," & Replace(Format(Me.Price, "0.00"), ",", ".") & "," & Me.Amount & "," & Me.Amount & ",0)" DoCmd.SetWarnings False DoCmd.RunSQL [stringSQL] DoCmd.SetWarnings True Else stringSQL = "UPDATE tblInventory SET [Current Stock]=[Current Stock]+" & Me.Amount & " WHERE BarCode='" & Me.ID & "'" DoCmd.SetWarnings False DoCmd.RunSQL (stringSQL) DoCmd.SetWarnings True End If rst.Close End Sub

Answer 1

首先，请注意这一点：

Dim sSQL, stringSQL As String

导致sSQL被定义为Variant ，而不是 String ； 这虽然不会导致您的代码失败（因为 Variant 可以保存任何类型的数据），但它的内存效率会很低。

相反，您应该使用：

Dim sSQL As String, stringSQL As String

或者，也许更具可读性：

Dim sSQL As String
Dim stringSQL As String

---

其次，在独立于任何其他表达式调用函数时，不应使用任何类型的括号将参数括起来。

在您的代码中，在第11行，您有：

DoCmd.RunSQL [stringSQL]

在第16行你有：

DoCmd.RunSQL (stringSQL)

这两个都应该改为：

DoCmd.RunSQL stringSQL

或者，直接提供 SQL 字符串，例如：

DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE tblInventory SET [Current Stock]=[Current Stock]+" & Me.Amount & " WHERE BarCode='" & Me.ID & "'"
DoCmd.SetWarnings True

---

此外，由于您仅使用记录集来测试记录是否存在，您可以将其简化为DLookup调用，例如：

DLookup("BarCode","tblInventory","BarCode=Forms![YourForm]!ID")

并使用IsNull测试这是否返回Null ：

If IsNull(DLookup("BarCode", "tblInventory", "BarCode=Forms![YourForm]!ID")) Then
    ...
Else
    ...
End If

---

最后，使用参数化查询代替连接 SQL 语句中的值是更好的做法。

使用参数有两个关键优势：

• 防止 SQL 注入。
• 自动处理 SQL 数据类型。

例如，考虑以下代码：

Private Sub Form_Close()
    If IsNull(DLookup("BarCode", "tblInventory", "BarCode=Forms![YourForm]!ID")) Then
        With CurrentDb.CreateQueryDef _
            ( _
                "", _
                "insert into tblInventory(BarCode,[Goods Name],Unit,[Unit Price],[Initial Stock],[Current Stock],[Exit Item]) " & _
                "values(@id, @goodsname, @unit, @unitprice, @initstock, @stock, 0)" _
            )
            .Parameters(0) = Me.ID
            .Parameters(1) = Me.GoodsName
            .Parameters(2) = Me.Unit
            .Parameters(3) = Replace(Format(Me.Price, "0.00"), ",", ".")
            .Parameters(4) = Me.Amount
            .Parameters(5) = Me.Amount
            .Execute
        End With
    Else
        With CurrentDb.CreateQueryDef _
            ( _
                "", _
                "update tblInventory set [Current Stock]=[Current Stock]+@amount where BarCode=@id" _
            )
            .Parameters(0) = Me.Amount
            .Parameters(1) = Me.ID
            .Execute
        End With
    End If
End Sub

Answer 2

尝试手动运行具有某些值的 SQL。

您可能需要使用参数或正确连接变量，例如使用我的函数CSql 。