具有嵌套循环的动态SQL查询

问题描述 投票:-1回答:1

我使用SQL服务器作为后端构建了基于Intranet的测验系统。测验分数存储在单独的表中,每个测验一个。工作人员只能访问部分或全部测验,具体取决于他们的位置。我正在尝试确定运行查询的最佳方式,该查询将总计或总计每个人完成的测验数量,并将其与分配给他们的预定数量的测验进行比较。一旦两个数字匹配,它们就被认为是完整的,我可以将最终结果导出到另一个数据库。

我尝试使用VBS循环来遍历测验表并检查每个人的分数,但我似乎无法让它正常工作,因为它依赖于循环每个工作人员记录,然后必须再次循环通过所有分配给每个的表名。我最终循环初始查询而不是辅助查询以获取计数:

Set rs = CreateObject("ADODB.Recordset")
rs.CursorLocation = 3

rs.Open "Select v.emp_num, v.position, p.group_id From ValidApplicants as v, Positions as p Where v.complete = 0 and v.notified = 0 And v.position = p.Position", conn
RSCount = rs.RecordCount

i = 0
Do until i = RSCount
    strempNum = rs("emp_num")
    strPosition = rs("position")
    strGroupID = rs("group_id")

    Set rs2 = CreateObject("ADODB.Recordset")
    rs2.CursorLocation = 3

    rs2.Open "Select quiz_name, tblname, quiz_code From quizfilter Where group_id in (1, "& strGroupID &")",conn
    recCount = rs2.RecordCount

    x = 0
    Do until x = recCount
        strQuizName = rs2("quiz_name")
        strTable = rs2("tblname")
        strCode = rs2("quiz_code")

        Set rez = CreateObject("ADODB.Recordset")
        rez.CursorLocation = 3

        j = 0
        Do until j = recCount
            rez.Open "SELECT (SELECT COUNT(*) FROM "& strTable &" WHERE 
            pass_fail = 1 And employee_num = 7275) AS SumCount"
            j = j + 1
        Loop

        Set rez2 = CreateObject("ADODB.Recordset")
        rez2.CursorLocation = 3
        rez2.Open "Select quiz_count From QuizGroups Where group_id = "& strGroupID &"",conn
        if not (rez2.eof) then
            strQuizCount = rez2("quiz_count")
        end if

        rs2.MoveNext
        x = x + 1
    Loop

    if not users_eof then
        for record=0 to UBound(dataArray,2)
            strtheCount = dataArray(user_score,record)
        Next

        if (strtheCount = strQuizCount) then
            Wscript.Echo "Count is "& strQuizCount &""
        end if
    end if

    rs2.close
    set rs2 = nothing

    rs.MoveNext
    i = i + 1
Loop

如果有人能指出我正确的方向,也许有一种方法可以通过SQL存储过程中的动态查询来实现这一点?

非常感谢

sql sql-server vbscript adodb
1个回答
0
投票

感谢Tomalak的想法,我设法通过将所有测验分数更新到公共表来实现这一点,我现在可以参考该表以确定每个用户是否已完成所需的测验数量。

我很感激帮助!

© www.soinside.com 2019 - 2024. All rights reserved.