从Access加载数据时查询表达式语法错误（缺运算符）求助

错误原因 #

你的SQL语句触发语法错误，核心原因是Access/Jet SQL引擎对多表连续JOIN的语法要求特殊：必须用括号包裹第一个JOIN的结果，才能继续后续的JOIN操作。此外代码还有两个潜在问题：

• SELECT中的transaksi.NamaProduk字段来源错误，产品名称应该来自produk表而非transaksi表
• GROUP BY子句未包含SELECT中的非聚合字段，会导致逻辑错误或语法警告

修正后的代码 #

Sub terlaris()
    ' 修正JOIN语法、字段来源及GROUP BY逻辑
    sql = "SELECT produk.NamaProduk, SUM(detail_transaksi.kuantitas) As Kuantitas " & _
          "FROM (detail_transaksi " & _
          "INNER JOIN transaksi ON detail_transaksi.IDTransaksi = transaksi.IDTransaksi) " & _
          "INNER JOIN produk ON detail_transaksi.IDProduk = produk.IDProduk " & _
          "WHERE transaksi.Tgltransaksi = @TGL " & _
          "GROUP BY produk.IDProduk, produk.NamaProduk " & _
          "ORDER BY Kuantitas DESC"
          
    Set CMD = New OleDbCommand(sql, cn) ' 对象变量赋值需加Set
    CMD.Parameters.Add("@TGL", OleDbType.Date).Value = CurrentDateTime
    Set Dreader = CMD.ExecuteReader ' 同样需加Set
    
    While Dreader.Read
        lblproduk.Text = Dreader.Item("namaproduk").ToString
        lblqty.Text = Dreader.Item("kuantitas").ToString
    End While
    
    ' 释放资源避免内存泄漏
    Dreader.Close
    Set Dreader = Nothing
    Set CMD = Nothing
End Sub

关键修正点 #

• JOIN语法修正：将第一个INNER JOIN用括号包裹，符合Access SQL的解析规则，解决"missing operator"错误
• 字段来源修正：把transaksi.NamaProduk改为produk.NamaProduk，匹配数据存储逻辑
• GROUP BY修正：补充produk.NamaProduk到GROUP BY中，确保与SELECT的非聚合字段一致
• 对象赋值修正：对象变量赋值添加Set关键字，符合VBA语法规范
• 资源释放：添加DataReader关闭和对象释放代码，避免内存占用

内容的提问来源于stack exchange，提问作者shin gamma