MS Access (Jet/ACE) 中的无表 UNION 查询

Question

这按预期工作：

SELECT "Mike" AS FName

这会失败并出现错误“查询输入必须包含至少一个表或查询”：

SELECT "Mike" AS FName
UNION ALL
SELECT "John" AS FName

这只是 Jet/ACE 数据库引擎的一个怪癖/限制，还是我遗漏了什么？

Answer 1

这是一个实际在访问中起作用的查询。我测试了它。它使用子查询作为“双重”：（SELECT count(*) as cnt from MSysObjects）。

select 1 as a from (SELECT count(*) as cnt from MSysObjects) UNION ALL
select 2 as a from (SELECT count(*) as cnt from MSysObjects) UNION ALL
select 3 as a from (SELECT count(*) as cnt from MSysObjects)

Answer 2

输入任何表名（您实际上不需要从中选择一列）。

此查询为我提供了下拉列表所需的 3 个会计年度。财政年度从 7 月开始。

SELECT IIf(Month(Now())>6,Year(Now())-1,Year(Now())-2) AS FY
FROM table
UNION 
SELECT IIf(Month(Now())>6,Year(Now()),Year(Now())-1) AS FY
FROM table
UNION 
SELECT IIf(Month(Now())>6,Year(Now())+1,Year(Now())) AS FY
FROM table;

Answer 3

这里有一个更简单的方法：

SELECT 'foo', 'boo', 'hoo' from TableWith1Row
union
SELECT 'foo1', 'boo1', 'hoo1' from TableWith1Row

重要提示：TableWith1Row 可以是具有字面上 1 条记录的表（无论如何您都可以忽略），也可以是具有任意行数的表（必须至少有 1 行），但您添加 WHERE 子句以确保 1 行.这有点松散，但它是一种快速完成这项工作而无需创建更多表的方法。

Answer 4

当您限制了对数据库的只读访问权限（即您无法创建新表或访问系统资源）时，这可能会起作用：

SELECT "Mike" AS FName
FROM (SELECT COUNT(*) FROM anyTable WHERE 1=0) AS dual

1. anyTable 是您找到的第一个用户表（我很难想象没有用户表的真实数据库！）。

2. WHERE 1=0 应该快速返回 0，即使是在一张大桌子上也是如此（希望 Jet 引擎足够聪明，能够识别这种微不足道的情况）。

Answer 5

如果有人想使用 Top 1 方法，它看起来像这样：

SELECT first_name AS FName
FROM tblname
UNION ALL
SELECT "Mike" as Fname
FROM (Select Top 1 Count(*) FROM tblsometable);

联合两侧的字段别名必须相同，在本例中为“FName”。

Answer 6

如果您可以访问某些系统表，则可以通过这种方式模拟双表：

(SELECT COUNT(*) FROM MSysResources) AS DUAL

很遗憾，我不知道有任何系统表...

• 始终可用、可读（并非每个连接都可以访问 MSysObject）
• 只包含一条记录，例如 Oracle 的 DUAL 或 DB2 的 SYSIBM.DUAL

所以你会写：

SELECT 'Mike' AS FName
FROM (SELECT COUNT(*) FROM MSysResources) AS DUAL
UNION ALL
SELECT 'John' AS FName
FROM (SELECT COUNT(*) FROM MSysResources) AS DUAL

例如，这就是在jOOQ 中作为句法元素实现的内容。

Answer 7

你没有忽略任何事情。 Access 的数据库引擎将允许单行 SELECT 没有 FROM 数据源。但是，如果您想要 UNION 或 UNION ALL 多行，则必须包含 FROM ...，即使您没有引用该数据源中的任何字段。

我创建了一个包含一行的表并添加了一个检查约束以确保它始终只有一行。

Public Sub CreateDualTable()
    Dim strSql As String
    strSql = "CREATE TABLE Dual (id COUNTER CONSTRAINT pkey PRIMARY KEY);"
    Debug.Print strSql
    CurrentProject.Connection.Execute strSql
    strSql = "INSERT INTO Dual (id) VALUES (1);"
    Debug.Print strSql
    CurrentProject.Connection.Execute strSql

    strSql = "ALTER TABLE Dual" & vbNewLine & _
        vbTab & "ADD CONSTRAINT there_can_be_only_one" & vbNewLine & _
        vbTab & "CHECK (" & vbNewLine & _
        vbTab & vbTab & "(SELECT Count(*) FROM Dual) = 1" & vbNewLine & _
        vbTab & vbTab & ");"
    Debug.Print strSql
    CurrentProject.Connection.Execute strSql
End Sub

Dual 表对于这样的查询很有用：

SELECT "foo" AS my_text
FROM Dual
UNION ALL
SELECT "bar"
FROM Dual;

我见过的另一种方法是使用带有TOP 1 的SELECT 语句或将结果集限制为单行的WHERE 子句。

注意检查约束是随 Jet 4 添加的，仅适用于从 ADO 执行的语句。 CurrentProject.Connection.Execute strSql 有效，因为 CurrentProject.Connection 是一个 ADO 对象。如果您尝试使用 DAO 执行相同的语句（即CurrentDb.Execute 或来自 Access 查询设计器），您将收到语法错误，因为 DAO 无法创建检查约束。