Сообщество Чайников

Вопрос

Подскажите, где я не прав:

With DataEnvironment1.rsCommand1
   .MoveFirst
   Do While Not .EOF
      .Delete
      .MoveNext
   Loop
   .Requery
End With

Выдает ошибку если одна запись или ее нет. Как грамотно написать?

Ответ

AdoConn.Execute "delete from table_name",,adExecuteNoRecords

Vladimir Petrov

Ты не прав вот здесь: .MoveNext
Delete удаляет строку и все записи смещаются на 1 вверх. Так что, если у тебя 1 или 2 записи, то при Delete у тебя убивается 1-я, активной становится вторая(или .EOF), а .MoveNext пытается переместить указатель дальше. А куда?

Рязанов Андрей