Наборы записей 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, прежде чем начинать, затем вы должны получить постоянные результаты.

Обновлено: см. Комментарии ниже