结合更新和选择SQL语句

Question

创造SQL语句的MS Access VBA脚本：

我有一个派生两个字段在新表SATable SQL语句：

SQLScript = "SELECT [DATA OUTPUT TABLE].* INTO SATable" 
SQLScript = SQLScript & " FROM [DATA OUTPUT TABLE]" 
SQLScript = SQLScript & " WHERE ((([DATA OUTPUT TABLE].[Journal Voucher ID]) In (SELECT [DATA OUTPUT TABLE].[Journal Voucher ID]" 
SQLScript = SQLScript & " FROM [DATA OUTPUT TABLE]" 
SQLScript = SQLScript & " GROUP BY [DATA OUTPUT TABLE].[Journal Voucher ID]" 
SQLScript = SQLScript & " HAVING (((First([DATA OUTPUT TABLE].dBranch))=" & Chr(34) & "Navy" & Chr(34) & ") AND ((Last([DATA OUTPUT TABLE].dBranch))=" & Chr(34) & "USMC" & Chr(34) & ")) OR (((First([DATA OUTPUT TABLE].dBranch))=" & Chr(34) & "USMC" & Chr(34) & ") AND ((Last([DATA OUTPUT TABLE].dBranch))=" & Chr(34) & "Navy" & Chr(34) & "));)));" 
DoCmd.RunSQL SQLScript 

然后，我有一份声明中说需要这两个派生的字段，并追加到他们原来的表：

DoCmd.RunSQL "UPDATE SATable INNER JOIN [DATA OUTPUT TABLE] ON (SATable.[Journal Voucher ID] = [DATA OUTPUT TABLE].[Journal Voucher ID]) AND (SATable.dBranch = [DATA OUTPUT TABLE].dBranch) SET [DATA OUTPUT TABLE].[Shared Appropriations] = [SATable].[dBranch] & " & Chr(34) & " Shared Appropriation" & Chr(34) & ";" 

我的目标是消除SATable并在一条语句执行此操作。

我一直在努力解决这样的问题，所以不要只提供一个答案，你可以请提供一些解释 - 教一个人去钓鱼！

干杯， -E

编辑：----------------------------------- -------------------------- 数据输出表具有：

JVID dBranch SA 
    1 Navy N/A 
    2 Navy N/A 
    3 Navy N/A 
    4 Navy N/A 
    A USMC N/A 
    B USMC N/A 
    3 USMC N/A 
    4 USMC N/A 

所以SATable变为：

JVID dBranch SA 
    3 Navy Navy SA 
    3 USMC USMC SA 
    4 Navy Navy SA 
    4 USMC USMC SA 

然后更新查询更新SA字段，默认为N/A

JVID dBranch SA 
    1 Navy N/A 
    2 Navy N/A 
    3 Navy Navy SA 
    4 Navy Navy SA 
    A USMC N/A 
    B USMC N/A 
    3 USMC USMC SA 
    4 USMC USMC SA 

Answer 1

好了，所以我可能会做一个假设或两个，但它看起来像你真正想要做的是加入[DATA OUTPUT TABLE]（@tDataOutputTable在我的脚本）本身（类似于你在做什么）和只更新匹配JVIDs但不匹配的记录dBranch

现在，这将匹配dBranch列不匹配的任何记录。如果你只希望这种情况发生在'海军'和'美国海军陆战队'的dBranch上，那么你会想用我们的东西来代替我的d.dBranch <> d2.dBranch。

这里是我创建的测试SQL脚本：

DECLARE @tDataOutputTable TABLE 
(
    JVID varchar(max), 
    dBranch varchar(max), 
    SA varchar(max) 
) 

INSERT INTO @tDataOutputTable (JVID, dBranch, SA) 
VALUES 
('1', 'Navy', 'N/A'), 
('2', 'Navy', 'N/A'), 
('3', 'Navy', 'N/A'), 
('4', 'Navy', 'N/A'), 
('A', 'USMC', 'N/A'), 
('B', 'USMC', 'N/A'), 
('3', 'USMC', 'N/A'), 
('4', 'USMC', 'N/A') 

UPDATE d 
    SET d.SA = d.dBranch + ' SA' -- or 'Shared Appropriation' 
FROM @tDataOutputTable d 
    INNER JOIN @tDataOutputTable d2 ON d.JVID = d2.JVID AND d.dBranch <> d2.dBranch 

SELECT * FROM @tDataOutputTable 

我没那么熟悉VBA和Access，但错综复杂希望这样的事情应该工作：

SQLScript = "UPDATE [DATA OUTPUT TABLE] AS d" 
SQLScript = SQLScript & " INNER JOIN [DATA OUTPUT TABLE] AS d2 ON d.JVID = d2.JVID AND d.dBranch <> d2.dBranch" 
SQLScript = SQLScript & " SET d.SA = d.dBranch" & Chr(34) & " Shared Appropriation" & Chr(34) & ";" 
DoCmd.RunSQL SQLScript