为什么 SQL 中字段名称周围的括号在 Access VBA ADO 中不起作用？

Question

在 MS Access QBE 中，如果我粘贴以下 SQL，它可以正常工作并且我得到 2 条记录-

SELECT [tmp_binning].[bn_faibash] FROM [tmp_binning] WHERE key2='0210043-HOU-STOR' ORDER BY [tmp_binning].[bn_faibash];

但是，如果我以编程方式从 ADO 对象在 VBA 中运行相同的查询，我（错误地）没有得到任何记录。如果我更改 SQL 以删除字段名称周围的括号，它确实会正确返回 VBA ADO 中的 2 条记录。

SELECT [tmp_binning].bn_faibash FROM [tmp_binning] WHERE key2='0210043-HOU-STOR' ORDER BY [tmp_binning].bn_faibash;

我在谷歌上搜索不成功，为什么我自己会发生这种情况，谁能告诉我为什么？

谢谢。

Answer 1

首先，无论是在 Access UI 中还是通过 ADO，都不需要括号。只需在所有环境中省略它们，问题就会消失。 （如果添加括号的是 Access QBE，那么请考虑使用其他工具或手工制作 SQL 代码！）

其次，即使使用括号，我也无法使用您的 SQL 代码重现错误，例如

Sub gjskdjs()

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

  Dim cat
  Set cat = CreateObject("ADOX.Catalog")
  With cat
    .Create _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & _
        Environ$("temp") & "\DropMe.mdb"
    With .ActiveConnection

      Dim Sql As String


      Sql = _
          "CREATE TABLE tmp_binning" & vbCr & "(" & vbCr & " bn_faibash VARCHAR(255)," & _
          " " & vbCr & " key2 VARCHAR(255)" & vbCr & ");"
      .Execute Sql

      Sql = _
          "INSERT INTO tmp_binning (bn_faibash, key2)" & _
          " VALUES ('002', '0210043-HOU-STOR');"
      .Execute Sql

      Sql = _
          "INSERT INTO tmp_binning (bn_faibash, key2)" & _
          " VALUES ('001', '0210043-HOU-STOR');"
      .Execute Sql

      Sql = _
          "SELECT [tmp_binning].bn_faibash " & vbCr & "  FROM" & _
          " [tmp_binning] " & vbCr & " WHERE key2 = '0210043-HOU-STOR'" & _
          " " & vbCr & " ORDER " & vbCr & "    BY [tmp_binning].bn_faibash;"
      Dim rs
      Set rs = .Execute(Sql)
      MsgBox rs.GetString
    End With
    Set .ActiveConnection = Nothing
  End With
End Sub

考虑将您的架构发布为带有示例数据的 SQL DDL。