在 VBA MS Access 中运行两个 SQL 查询。第二个记录集依赖于第一个记录集答案

【问题标题】：Running two SQL queries in VBA MS Access. The second recordset depends on the first recordset在 VBA MS Access 中运行两个 SQL 查询。第二个记录集依赖于第一个记录集
【发布时间】：2021-09-30 03:45:36
【问题描述】：

我目前正在使用 VBA 访问，我希望来自 strSQL 的信息来自 strSQL0。请帮我更正我的 strSQL 选择语句。

strSQL的逻辑是我想从strSQL0产生的recordist中选择最小的iD

strSQL0 = "SELECT Promis_lt_generating_numbers_SubjectID_step2.* " _
            & "FROM Promis_lt_generating_numbers_SubjectID_step2 LEFT JOIN PROMIS_LT ON Promis_lt_generating_numbers_SubjectID_step2.[Id] = PROMIS_LT.[DadosID]" _
            & "WHERE (((PROMIS_LT.DadosID) Is Null));"

    Set rs0 = dbs.OpenRecordset(strSQL0)
    

    strSQL = "SELECT MIN(rs![Id]) AS New_SubjectID" _
            & "FROM rs0![*];"

【问题讨论】：

标签： sql vba ms-access recordset

【解决方案1】：

您可以修剪第一个 SQL 以在没有第二个 SQL 的情况下传递价值：

strSQL = "SELECT TOP 1 Id " & _
    "FROM Promis_lt_generating_numbers_SubjectID_step2 " & _
    "LEFT JOIN PROMIS_LT ON Promis_lt_generating_numbers_SubjectID_step2.[Id] = PROMIS_LT.[DadosID] " & _
    "WHERE PROMIS_LT.DadosID Is Null " & _
    "ORDER BY Id ASC;"

    Set rs0 = dbs.OpenRecordset(strSQL)
    SubjectID = rs0(0).Value
    rs0.Close

【讨论】：