在循环内循环

时间:2018-01-21 20:30:43

标签: sql-server vbscript asp-classic

请你看看这段代码并告诉我为什么会收到错误:

  

ADODB.Recordset错误'800a0bcd'

BOF或EOF为True,或者当前记录已被删除。请求的操作需要当前记录。

我要做的是首先从修复日志中加载第一个细节,然后在修复历史记录中将显示与第一个修复日志中的图书代码相关的日期。

完成此操作后,我希望它转到下一个修复日志,然后查看修复历史记录并加载该图书代码中的数据。

这样的事情:
01/21/2018 4332323 44323322清洁 - 维修日志中的数据
流程从上午10点开始 加工齿轮到规格
查看修改 - 修复历史数据

01/21/2018 2232W22 554EREE3完成的工作 - 维修日志中的数据
项目检查功能障碍
为获得利润而发布的项目 - 维修历史数据

这是我的代码:

<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connStr
%>                      
    <table class="alt" id="table_detail">
    <thead>
        <tr>
            <th><font color="#FFFFFF">Date</font></th>
            <th><font color="#FFFFFF">Booking Reference</font></th>
            <th><font color="#FFFFFF">Serial Number</font></th>
            <th><font color="#FFFFFF">Status</font></th>
            <th></th>
        </tr>
    </thead>
<%
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.open connStr

    strSQL = "SELECT date_in, Book_code, serial, status FROM repair_log WHERE cust_input = '" & Session("cust_input") & "' ORDER BY date_in DESC"               
    Set rs = conn.Execute(strSQL)

        do until rs.EOF

        date_in = rs("date_in")
        book_code = rs("book_code")
        serial = rs("serial")
        status = rs("status")
        i = i + 1

%>                              
    <tbody>
        <tr onclick="show_hide_row ('hidden_row<%=i%>');">
            <td><%=date_in%></td>
            <td><%=book_code%></td>
            <td><%=serial%></td>
            <td><%=status%></td>
            <td style="vertical-align: middle">
            <img src="../images/detail.png" style="float: left"></td>
        </tr>

<%
    strSQL = "SELECT * FROM repair_history WHERE book_code = '" & book_code & "' ORDER BY id"       
    Set rs = conn.Execute(strSQL)

        do until rs.EOF             
        repair_history = rs("repair_history")
        t = t + 1                                   
%>
        <tr class="hidden_row hidden_row<%=i%>">
            <td colspan=5 style="text-align: Left"><%=t%>. <%=repair_history%></td>
        </tr>
<%
    rs.MoveNext
    loop
%>                                  
    </tbody>    
<%
    rs.MoveNext
    loop
    rs.Close
%>      
</table>

正如上面的代码所示,我得到1运行然后错误。

如果有人能够解释我为什么会得到错误以及解决这个问题的最佳方法,我会非常感激。

由于

0 个答案:

没有答案