mysql - Vb6 记录更新错误

Question

在 vb6 中，一个包含以下值和 here is the screenshot link for the sample values ! 的表单

我正在使用 Ms Access 2007，它包含一个名为“studentexamdetail”的表，其中包含

    heading(Admno,Semester,Subjectcode,Regular_Arrear,Fee) 

我怀疑当我点击上面表格中的“保存”按钮时(见截图)，然后录取编号，学期，所有主题代码，regular_arrear(我们可以手动编写)和费用应该保存在“studentexamdetail”表中但是它仅在我使用此方法时存储第一个值!

    rs2.Open "select * from studentexamdetail", con, 1, 3
    Do Until rs2.EOF
    rs2.AddNew
    rs2!AdmnNo = admno.Caption
    rs2!semester = semester.Caption
    rs2!Subjectcode = rs.Fields("Subjectcode")
    rs2!Regular_Arrear = "Regular"
    rs2!Fee = rs.Fields("Fee")
    rs2.Update
    rs2.MoveNext
    MsgBox "Record Saved!"
    Loop

我应该做哪些更改来存储所有值而不是仅存储第一个值？我需要的是，我如下所示:

    Admno Semester Subjectcode Regular_Arrear Fee
    1471     V       RMSC1        Regular     440
    1471     V       RMSC3        Regular     440
    1471     V       RMSC2        Regular     320

我只想像上面那样在该表中保存值!

Answer 1

代码将新行添加到 rs2 记录集的末尾。然后调用 .MoveNext，将记录集定位在 .EOF。所以 Loop 条件是 True，这意味着它不会循环。

看来您还有另一个记录集，rs。也许这是您应该循环而不是 rs2 的那个。