Excel VBA SQL 连接语法错误

Question

我正在编写一个允许用户从列表框中选择客户的子程序。选择记录为 CustomerID（整数变量）并用于查询 Access 数据库文件。然后，子应将有关指定客户的销售信息输出到 Excel 工作表，特别是：

1. 订购日期
2. 订单编号
3. 总订单成本（定义为售出数量 * 售出价格）

访问文件有 3 个我需要的表：Customers、Orders、LineItems

我下面的代码应该将客户 ID 连接到订单 ID 字段，然后将其与订单 ID 连接起来，并将订单 ID 连接到订单项上。

' Define SQL statement to get order info for selected product.
SQL = "SELECT O.OrderDate, COUNT(O.OrderID), SUM(L.QuantityOrdered * L.QuotedPrice) AS [TotalCost] " _
        & "FROM (((Customers C INNER JOIN Orders O ON C.CustomerID = O.CustomerID) " _
        & "INNER JOIN ON O.OrderID = O.CustomerID) INNER JOIN LineItems L " _
        & "ON O.OrderID = L.OrderID)" _
        & "WHERE O.CustomerID =" & CustomerID & " " _
        & "GROUP BY O.OrderDate, O.OrderID" _
        & "ORDER BY O.OrderDate"

我不断收到“FROM 子句中的语法错误”。我的 JOIN 语句是否正确？我玩过（），“”等但没有成功。我已经检查并且表名称是正确的（订单、客户、LineItems）字段名称也拼写正确。

Answer 1

我喜欢使用带有空格分隔符的数组和 Join 方法。这样可以确保我不会遗漏任何空格（@McAdam133 指出您这样做了）。

Dim aSql(1 To 6) As String

aSql(1) = "SELECT O.OrderDate, COUNT(O.OrderID), SUM([L.QuantityOrdered]*[L.QuotedPrice]) AS TotalCost"
aSql(2) = "FROM (Customers C INNER JOIN Orders O ON C.CustomerID = O.CustomerID)"
aSql(3) = "INNER JOIN LineItems L ON O.OrderID = L.OrderID"
aSql(4) = "WHERE C.CustomerID = " & CustomerID
aSql(5) = "GROUP BY O.OrderDate"
aSql(6) = "ORDER BY O.OrderDate"

Set rs = CurrentProject.Connection.Execute(Join(aSql, Space(1)))

以下是我对不起作用的内部联接的建议。在 Access 中创建一个查询并查看它生成的 SQL。它可能不是最漂亮的 SQL，但它可以帮助您确定问题所在。如果您将客户、订单和 LineItems 放在查询窗口中，必要时绘制箭头（默认情况下可能会出现），并在其中放置几个​​字段，Access 将生成类似

SELECT Orders.OrderID, Orders.OrderDate, LineItems.QuantityOrdered, LineItems.QuotedPrice
FROM (Customers INNER JOIN Orders ON Customers.CustomerID = Orders.CustomerID) INNER JOIN LineItems ON Orders.OrderID = LineItems.OrderID;

这不会对任何内容进行分组或使用别名，但它会为您提供工作声明。然后您可以使用别名和分组进行修改，并在此过程中对其进行测试。

从你的例子：

& "FROM (((Customers C INNER JOIN Orders O ON C.CustomerID = O.CustomerID) " _

这条线不错。您正在使用来自 Customers 的主键和可能在 Orders 中的外键加入订单中的客户。

& "INNER JOIN ON O.OrderID = O.CustomerID) INNER JOIN LineItems as L " _

我不确定第一次加入想要完成什么，但正如@OpiesDad 评论的那样，这不是你想要的。您已经在第一行成功地加入了 Customers 和 Orders，因此您可以获取该加入的结果并将其加入 LineItems（上面的 aSql(3)）。第二个连接（到 LineItems）看起来不错。

您可以在多个字段上连接两个表。就像你有两张客户表，你想看看是否有任何重叠。

FROM Wholesale INNER JOIN Retail ON Wholesale.CustomerName = Retail.CustName AND Wholesale.State = Retail.StateOrProvince

根据您显示的结构，您的所有表中都有很好的唯一主键，因此不需要连接多个字段。

最后，您将根据 OrderID 进行分组。它不会导致错误，但它也没有做任何事情。您在 SELECT 部分的聚合函数中使用 OrderID。您应该聚合您想要聚合的字段，并按您不聚合的字段进行分组。

Answer 2

为INNER JOIN 中的表创建别名时，必须使用AS：

' Define SQL statement to get order info for selected product.
SQL = "SELECT O.OrderDate, COUNT(O.OrderID), SUM(L.QuantityOrdered * L.QuotedPrice) AS [TotalCost] " _
        & "FROM (((Customers as C INNER JOIN Orders O ON C.CustomerID = O.CustomerID) " _
        & "INNER JOIN ON O.OrderID = O.CustomerID) INNER JOIN LineItems as L " _
        & "ON O.OrderID = L.OrderID)" _
        & "WHERE O.CustomerID =" & CustomerID & " " _
        & "GROUP BY O.OrderDate, O.OrderID" _
        & "ORDER BY O.OrderDate;"

可以肯定的是，用; 终止语句。

Answer 3

您遇到的问题是您尝试执行的连接没有意义。

让我们先获取相关订单，然后添加订单项，这样可以让解释更简单。

为此，您需要 SQL：

SELECT C.CustomerID, C.CustomerName, O.OrderID, O.OrderDate
FROM Customers C INNER JOIN Orders O ON C.CustomerID = O.CustomerID
WHERE C.CustomerID = 15
ORDER By O.OrderDate

请注意，这假定您要查找的客户的 ID 为 15。

这将为您提供所请求客户的所有订单的升序列表。

如果你想要订单项，那么你也需要链接到这个表格：

 SELECT C.CustomerID, C.CustomerName, O.OrderId, O.OrderDate
     , SUM(L.QuantityOrdered * L.QuotedPrice) AS [TotalCost]
 FROM ((Customers C INNER JOIN Orders O ON C.CustomerID = O.CustomerID)
              INNER JOIN LineItems L ON O.OrderID = L.OrderID)
 WHERE C.CustomerID = 15
 GROUP BY C.CustomerID, C.CustomerName, O.OrderID, O.OrderDate
 ORDER BY O.OrderDate

这很可能是您要查找的查询。您列出的第二个 INNER JOIN 是多余的，没有意义。您不想将 OrderID 与 CustomerID 匹配，您需要与该客户匹配的订单列表。 C 到 O 上的第一个 INNER JOIN 已经创建了这个。 where 子句将客户表限制为只有一个客户。

要将其放入您的代码中，只需将表单中的“15”替换为“CustomerID”即可。

此外，根据 McAdam 的评论，您在几个地方缺少空格。为了解决这个问题，我建议将所有空格作为行首，这样你就可以确保它们在那里（如下所示）。最终代码应如下所示（从输出中删除客户信息）：

 SQL = "SELECT O.OrderDate, O.OrderID" _
    & ", SUM(L.QuantityOrdered * L.QuotedPrice) AS [TotalCost]" _
    & " FROM ((Customers C INNER JOIN Orders O ON C.CustomerID = O.CustomerID)" _
    & " INNER JOIN LineItems L ON O.OrderID = L.OrderID)" _
    & " WHERE O.CustomerID =" & CustomerID _
    & " GROUP BY O.OrderDate, O.OrderID" _
    & " ORDER BY O.OrderDate"

您似乎也并不真正想要 orderID 的计数，所以我把它去掉了，因为它也没有太大意义。