Почему удаляет половину?

[ToNic]

Код следующий:

Код: Выделить всё

Set cn = New ADODB.Connection
        cn.Open "Provider=microsoft.jet.oledb.4.0; data source=" & App.Path & "\Abiturent.mdb"
        SQL = "select * from AB_Sved"
        Set rs = New ADODB.Recordset
            rs.Open SQL, cn, adOpenDynamic, adLockOptimistic
                Do Until rs.EOF
                    rs.Delete
                    rs.MoveNext
                Loop
            rs.Close

работает (удаляет всех) в WinXP&OfficeXP, а в Win98&Office2000 НЕ РАБОТАЕТ - удаляет половину записей или/и ошибка "Недопустимая закладка". Подскажите, пожалуйста, что я делаю не так.

[3ton]

Код следующий:
SQL = "select * from AB_Sved"
Set rs = New ADODB.Recordset
rs.Open SQL, cn, adOpenDynamic, adLockOptimistic
Do Until rs.EOF
rs.Delete
rs.MoveNext
Loop
rs.Close

Может не по теме, но я делаю так

Код: Выделить всё

sql = "DELETE AllTovar.* FROM AllTovar"
rs.Open SQL, cn, adOpenStatic, adLockOptimistic


И не заморачиваюсь с контекстом перебора.

[Sebas]

хахаха

правильно! одну удаляешь другую rs.MoveNext пропускаешь))))

rs.MoveFirst как вариант(не 100%)

PS: Как это удобно в Нет!

[ToNic]

Спасибо!

Код: Выделить всё

sql = "DELETE AllTovar.* FROM AllTovar"
rs.Open SQL, cn, adOpenStatic, adLockOptimistic

удаляет всё - супер! И скорость приличная.
А через rs.MoveFirst удаляется часть, но после 3 -х вызовов цикла все записи стираются (1200 записей, а при моём коде 9-10 вызовов)