Access 2010奇怪的行为

Question

大家好，我正在Access 2010中进行查询，并且出现了奇怪的行为，因此，我想听听您的意见，下面我们开始：

SELECT X.*, L.CodLinea
FROM (
   SELECT TOP 1 'LBASE' AS CodLinea, 'Linea Base' AS Descrizione FROM ParametriAzienda
)  AS X LEFT JOIN Linee AS L 
ON X.CodLinea = L.CodLinea

内部查询总是给出带有两个列的ONE行，该列应该类似于：

CodLinea  |  Descrizione
----------+--------------
  LBASE   |  Linea Base

现在，像上面那样进行左连接应该返回一行，其中另一列称为L.CodLinea，其值等于ELINEL到'LBASE'或NULL，这取决于表Linee是否具有'LBASE'。 因此，结果可能是：

  X.CodLinea  |  X.Descrizione  |  L.CodLinea
+-------------+-----------------+--------------+
    LBASE     |  Linea Base     |   LBASE      

如果该值存在，或者

  X.CodLinea  |  X.Descrizione  |  L.CodLinea
+-------------+-----------------+--------------+
    LBASE     |  Linea Base     |   null      

如果该值不存在。 确实，我得到的是：

  X.CodLinea  |  X.Descrizione  |  L.CodLinea
+-------------+-----------------+--------------+
    LBASE     |  Linea Base     |   0          
    LBASE     |  Linea Base     |   0          
    LBASE     |  Linea Base     |   0          
    LBASE     |  Linea Base     |   0          
    LBASE     |  Linea Base     |   0          

绝对不可能，因为：a）我应该只得到一行； b）0不等于或类似于LBASE。 如果我使用WHERE而不是LEFT JOIN（类似于INNER JOIN）或RIGHT JOIN，则结果正确（0行）。

怎么回事

编辑：实际上，ParametriAzienda只有一行并且Linee不包含LBASE值。

Answer 1

问题是TOP 1 ：您可能误解了它的用法（代码中的错误），或者是引擎中的错误。

就个人而言，我始终使用DISTINCT因为它是标准SQL（并且我理解它的用法：）确实，当我对此进行测试时，用DISTINCT替换TOP 1会将您的实际结果转换为预期结果。

这是我的代表。 下面的VBA在temp文件夹中创建一个新数据文件，其中包含表和示例数据。 无需引用，只需将+复制并粘贴到任何VBA模块中，例如使用Excel：

Sub NotTop1()

  On Error Resume Next
  Kill Environ$("temp") & "\DropMe.accdb"
  On Error GoTo 0

  Dim cat
  Set cat = CreateObject("ADOX.Catalog")

  With cat
  .Create _
        "Provider=Microsoft.ACE.OLEDB.12.0;" & _
        "Data Source=" & _
        Environ$("temp") & "\DropMe.accdb"

    With .ActiveConnection

      Dim Sql As String

      Sql = _
      "CREATE TABLE ParametriAzienda (x INTEGER NOT NULL);"
      .Execute Sql

      Sql = _
      "INSERT INTO ParametriAzienda (x) VALUES (1);"
      .Execute Sql

      Sql = _
      "CREATE TABLE Linee (CodLinea CHAR(1) NOT NULL);"
      .Execute Sql

      Dim i As Long
      For i = 0 To 4
        Sql = _
        "INSERT INTO Linee (CodLinea) VALUES ('0');"
        .Execute Sql
      Next

      Sql = _
      "SELECT X.*, L.CodLinea " & _
      "FROM ( " & _
      "   SELECT TOP 1 'LBASE' AS CodLinea, 'Linea Base' AS Descrizione FROM ParametriAzienda " & _
      ")  AS X LEFT JOIN Linee AS L  " & _
      "ON X.CodLinea = L.CodLinea"

  Dim rs
  Set rs = .Execute(Sql)
  MsgBox rs.GetString(2, , vbTab & vbTab, , "<null>")

  Sql = Replace$(Sql, "TOP 1", "DISTINCT")

  Set rs = .Execute(Sql)
  MsgBox rs.GetString(2, , vbTab & vbTab, , "<null>")        
    End With
    Set .ActiveConnection = Nothing
  End With
End Sub