VB6 记录集和 SQL 计数

Question

我注意到，当我开始运行下面的程序时，数据库表中的记录数量（从日期表中选择引用）突然增加，即使没有添加新记录。请注意，我通过在 SQL Studio Manager 中运行查询（即从日期表中选择引用）来确定行数会增加。当程序停止时；记录数量回落到原来的水平。这是代码。为什么会发生这种情况？尽管引用是唯一的，但表中没有主键。

rs.Open "select reference,value1,datefield from datetable where field1 = 'value1' " & _     
                "order by reference", objAuditCon.ActiveCon, adOpenStatic, adLockPessimistic  
Do While Not rs.EOF
     intReadCount = intReadCount + 1
     DoEvents
     If Not IsNull(rs("value1")) Then
         testArray = Split(rs("value1"), ",") 
        rs2.Open "SELECT Date FROM TBL_TestTable WHERE Record_URN = '" & testArray(1) & "'", objSystemCon.ActiveCon, adOpenStatic, adLockReadOnly
         If rs2.EOF Then
          End If
         If Not rs2.EOF Then
             rs("DateField") = Format$(rs2("Date"), "dd mmm yy h:mm:ss")
             rs.Update
             intWriteCount = intWriteCount + 1
         End If
     rs2.Close
     Else
         End If
  rs.MoveNext
 Loop
 rs.Close 

Answer 1

这有点令人困惑，但如果您指的是“intReadCount”给出的总数与表中的行数，那么看起来您似乎没有正确清除该值。在程序开始时，您可能希望在开始之前将“intReadCount”设置回 0，然后您应该会得到恒定的结果。

更新：见下面的评论