VBA-ACCESS DAO SQL with UNION 子句和 WHERE 子句

Question

这是我代码的一小部分，但在这个特定的部分中，我试图执行以下语句：

"哪里([摘要Tbl]。WORK_ITEM_NMB]>2500( 和 ([ParentChildTbl].[WORK_ITEM_NMB]>2500(">

我已经使用了所有的联接/联合，因为 ACCESS 不支持完全外部联接，而且一切都有效。但是，我希望它只返回两个表的WORK_ITEM_NMB都大于 2500 的值，这不起作用。它一直给我所有的记录。我想我要么将 WHERE 子句放在不正确的位置和/或我必须将其添加到每个 JOIN 语句中。 我没有收到错误。我只是得到所有的记录。

Set db = OpenDatabase(DBLoc)
SQL = "SELECT [SummaryTbl].[WORK_ITEM_NMB], [SummaryTbl].[WORK_ITEM_STS], [SummaryTbl].[RELEASE_NMB], [SummaryTbl].[NOMADS_PRIORITY], [SummaryTbl].[TEST_ACTUAL_DT], [SummaryTbl].[TRAIN_ACTUAL_DT], [SummaryTbl].[TITLE], [SummaryTbl].[DESCRIPTION], [SummaryTbl].[DETAILED_RQ_COMMENTS], [SummaryTbl].[TRAIN_COMMENTS], [SummaryTbl].[TEST_COMMENTS], [ParentChildTbl].[HasAssocWI] FROM SummaryTbl LEFT JOIN ParentChildTbl ON [SummaryTbl].[WORK_ITEM_NMB] = [ParentChildTbl].[WORK_ITEM_NMB] UNION SELECT [SummaryTbl].[WORK_ITEM_NMB], [SummaryTbl].[WORK_ITEM_STS], [SummaryTbl].[RELEASE_NMB], [SummaryTbl].[NOMADS_PRIORITY], [SummaryTbl].[TEST_ACTUAL_DT], [SummaryTbl].[TRAIN_ACTUAL_DT], [SummaryTbl].[TITLE], [SummaryTbl].[DESCRIPTION], [SummaryTbl].[DETAILED_RQ_COMMENTS], [SummaryTbl].[TRAIN_COMMENTS], [SummaryTbl].[TEST_COMMENTS], [ParentChildTbl].[HasAssocWI] FROM SummaryTbl RIGHT JOIN ParentChildTbl ON [SummaryTbl].[WORK_ITEM_NMB] = [ParentChildTbl].[WORK_ITEM_NMB]" & _
"WHERE ([SummaryTbl].[WORK_ITEM_NMB]>2500) AND ([ParentChildTbl].[WORK_ITEM_NMB]>2500)"

'Execute Query and populate recordset
Set rs = db.OpenRecordset(SQL, dbOpenSnapshot)

谢谢！

Answer 1

您需要在两个select语句中包含where子句，因为select语句将在union之前计算; 因此，您需要类似以下内容：

SELECT 
[SummaryTbl].[WORK_ITEM_NMB], 
[SummaryTbl].[WORK_ITEM_STS], 
[SummaryTbl].[RELEASE_NMB], 
[SummaryTbl].[NOMADS_PRIORITY], 
[SummaryTbl].[TEST_ACTUAL_DT], 
[SummaryTbl].[TRAIN_ACTUAL_DT], 
[SummaryTbl].[TITLE], 
[SummaryTbl].[DESCRIPTION], 
[SummaryTbl].[DETAILED_RQ_COMMENTS], 
[SummaryTbl].[TRAIN_COMMENTS], 
[SummaryTbl].[TEST_COMMENTS], 
[ParentChildTbl].[HasAssocWI] 
FROM 
SummaryTbl LEFT JOIN ParentChildTbl ON
[SummaryTbl].[WORK_ITEM_NMB] = [ParentChildTbl].[WORK_ITEM_NMB] 
WHERE 
([SummaryTbl].[WORK_ITEM_NMB]>2500) AND 
([ParentChildTbl].[WORK_ITEM_NMB]>2500)
UNION 
SELECT
[SummaryTbl].[WORK_ITEM_NMB], 
[SummaryTbl].[WORK_ITEM_STS], 
[SummaryTbl].[RELEASE_NMB],
[SummaryTbl].[NOMADS_PRIORITY], 
[SummaryTbl].[TEST_ACTUAL_DT], 
[SummaryTbl].[TRAIN_ACTUAL_DT], 
[SummaryTbl].[TITLE], 
[SummaryTbl].[DESCRIPTION], 
[SummaryTbl].[DETAILED_RQ_COMMENTS], 
[SummaryTbl].[TRAIN_COMMENTS], 
[SummaryTbl].[TEST_COMMENTS], 
[ParentChildTbl].[HasAssocWI] 
FROM 
SummaryTbl RIGHT JOIN ParentChildTbl ON 
[SummaryTbl].[WORK_ITEM_NMB] = [ParentChildTbl].[WORK_ITEM_NMB]
WHERE 
([SummaryTbl].[WORK_ITEM_NMB]>2500) AND 
([ParentChildTbl].[WORK_ITEM_NMB]>2500)

不过，看起来您的第二个select语句应该从ParentChildTbl表(连接右侧(而不是SummaryTbl表中获取WORK_ITEM_NMB字段。

此外，由于您要加入WORK_ITEM_NMB字段，因此您只需在要返回所有记录的表中对其进行筛选。

您还可以将选择标准应用于union的结果，例如：

SELECT t.* 
FROM
(
SELECT 
[SummaryTbl].[WORK_ITEM_NMB], 
[SummaryTbl].[WORK_ITEM_STS], 
[SummaryTbl].[RELEASE_NMB], 
[SummaryTbl].[NOMADS_PRIORITY], 
[SummaryTbl].[TEST_ACTUAL_DT], 
[SummaryTbl].[TRAIN_ACTUAL_DT], 
[SummaryTbl].[TITLE], 
[SummaryTbl].[DESCRIPTION], 
[SummaryTbl].[DETAILED_RQ_COMMENTS], 
[SummaryTbl].[TRAIN_COMMENTS], 
[SummaryTbl].[TEST_COMMENTS], 
[ParentChildTbl].[HasAssocWI] 
FROM 
SummaryTbl LEFT JOIN ParentChildTbl ON
[SummaryTbl].[WORK_ITEM_NMB] = [ParentChildTbl].[WORK_ITEM_NMB] 
UNION 
SELECT
[ParentChildTbl].[WORK_ITEM_NMB], 
[SummaryTbl].[WORK_ITEM_STS], 
[SummaryTbl].[RELEASE_NMB],
[SummaryTbl].[NOMADS_PRIORITY], 
[SummaryTbl].[TEST_ACTUAL_DT], 
[SummaryTbl].[TRAIN_ACTUAL_DT], 
[SummaryTbl].[TITLE], 
[SummaryTbl].[DESCRIPTION], 
[SummaryTbl].[DETAILED_RQ_COMMENTS], 
[SummaryTbl].[TRAIN_COMMENTS], 
[SummaryTbl].[TEST_COMMENTS], 
[ParentChildTbl].[HasAssocWI] 
FROM 
SummaryTbl RIGHT JOIN ParentChildTbl ON 
[SummaryTbl].[WORK_ITEM_NMB] = [ParentChildTbl].[WORK_ITEM_NMB]
) t
WHERE t.[WORK_ITEM_NMB] > 2500