访问：通过 VBA 创建 SQL 视图的问题 - 子查询中不允许使用联合

如何解决访问：通过 VBA 创建 SQL 视图的问题 - 子查询中不允许使用联合

首先，让我用迄今为止在我的几篇博文中几乎总是说的一句话作为开头，那就是我不是 IT/技术人员。我是一名会计师，喜欢涉足 SQL 等等，但对 VBA 的了解很少，所以如果这是一个超级简单的问题或者已经被涵盖，我提前道歉。但我找不到与此特定错误直接相关的任何内容。

尝试使用 MS Access 从包含联合的 SQL 创建视图并收到以下错误：运行时错误“-2147217900 (800040e14)”：子查询中不允许使用联合。代码如下：

   Sub Create_View()
    Dim conn As ADODB.Connection
    Set conn = CurrentProject.Connection
    conn.Execute "CREATE VIEW Test_VW AS SELECT A.Unit as Unit,A.Spend as Spend,A.Date as Date,A.Type as Type FROM Table1 A UNION ALL SELECT B.Unit as Unit,B.Spend as Spend,B.Date as Date,B.Type as Type FROM Table2 B;"
            Application.RefreshDatabaseWindow 
End Sub

这是现在的代码，但我也尝试过 UNION 而不是 UNION ALL，SELECT * FROM 两个表而不是单个列（两个表都只是列出的 4 个列，它们也是相同的数据类型），并且列和表没有别名。

我应该指出的可能是问题所在，但我不认为代码中的“表”实际上是我在没有 VBA 的情况下在 Access 中创建的视图（就像在常规 SQL 中一样）。这些现在在数据库中显示为“查询”。但是，我确实使用定义视图的初始 SQL 编写了 VBA，并且返回了相同的错误。所以我不认为这是问题所在。

编辑：另外，我应该指出，为了测试，我能够从同一个 VBA 为没有 UNION 的顶级查询创建一个视图。

无论如何，我不确定子查询在 SQL 中的哪个位置，所以可能是语法错误？

任何帮助将不胜感激。谢谢！

解决方法

QueryDefs 可以处理 UNION。不需要别名字段和表名。

Sub test()
Dim qdf As DAO.QueryDef
Set qdf = CurrentDb.CreateQueryDef("TestVW","SELECT Unit,Spend,Date,Type FROM Table1 " & _
                                    "UNION ALL SELECT Unit,Type FROM Table2;"
Application.RefreshDatabaseWindow
End Sub

强烈建议不要使用 Date 等保留字作为名称。

,

该错误消息“子查询中不允许使用联合”，对您的情况没有太大帮助。

Access 支持 2 个与查询相关的 DDL 操作：CREATE VIEW；和CREATE PROCEDURE。

CREATE VIEW 只能用于简单的 SELECT 查询。 CREATE PROCEDURE 必须用于更复杂的 SELECT 查询（例如 UNION）和“操作”查询。

因此您可以通过使用 CREATE PROCEDURE 而不是 CREATE VIEW 来避免当前的错误。但是，您随后会遇到一个不同的错误，“SELECT 语句包含一个保留字或一个拼写错误或丢失的参数名称，或者标点符号不正确”，这是由于未加括号的保留字用作列别名.您可以删除不需要的列别名以避免该错误。

这是您在 Access 2010 中对我有用的代码的改编版。

Dim strSql As String

strSql = "CREATE PROCEDURE Test_VW AS" & vbCrLf & _
    "SELECT A.Unit,A.Spend,A.Date,A.Type FROM Table1 A" & vbCrLf & _
    "UNION ALL SELECT B.Unit,B.Spend,B.Date,B.Type FROM Table2 B;"
CurrentProject.Connection.Execute strSql