Помогите Ошибка: Число строк с предпологаемыми изменениями превышает предельно допустимое

НЕ МОГУ ПОНЯТЬ В ЧЕМ ДЕЛО!


Программа:

Dim conn As ADODB.Connection
Dim rs As New ADODB.Recordset

Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data/kvartplata.mdb;Persist Security Info=True"

conn.Open "data/Kvartplata.mdb"



Set rs = New ADODB.Recordset
Set rs.ActiveConnection = conn
rs.CursorType = adOpenForwardOnly
rs.LockType = adLockBatchOptimistic
rs.Open ("SELECT OtheOwner.FAM, OtheOwner.OT, OtheOwner.IM FROM OtheOwner")

While (Not rs.EOF)
rs("ot") = "Иванович" ' Ошибка в этой строке
rs.MoveNext
Wend
rs.UpdateBatch
rs.Close

Спасибо всем кто потратил свое время. Отвечаю сам себе

Lg.CursorType = adOpenDynamic


Далее текст написан не мной но оказался полезен, может кому поможет


Во-первых, что такое курсор. Когда мы получаем записи, то нам нужен указатель на то, какая запись активная. Вот это и есть курсор. Мы передвигаясь по записям можем выйти за первую запись или за последнюю. Для этого у объекта Recordset есть специальные свойства.

BOF - вышли за начало
EOF - вышли за конец
Перемещаться по записям можно используя методы MoveNext, MoveFirst, MoveLast, MovePrevious, Move. Есть и другие методы типа AbsolutePosition, но они не обязательные и зависят от того поддерживает их OLEDB провайдер или нет. Курсор как раз и определяет как можно перемещаться по записям. В ADO существует 4 типа курсоров:

аdOpenDynamic - это самый удачный курсор для многопользовательской среды, сразу видны изменения вносимые другими пользователями.

аdOpenKeyset - все то же самое, что и для динамического за исключением того, что доступ к записям добавленным или удаленным другими пользователями запрещен.

аdOpenStatic - набор на момент генерации запроса.

аdOpenForwardOnly - набор записей с последовательным доступом. Доступен только один метод MoveNext.

Как видите каждый курсор для своей задачи. Последние два методы плохи тем, что они показывают фиксированный набор на момент доступа. Соответственно должен быть метод для обновления записей. И он есть, метод Reguery обновляет набор. Тип курсора указывается при открытии набора записей. В примере ниже открывается набор записей с динамическим курсором, но при таком подходе нужно указать объект активного соединения.

record.Open "select * from piple",adoConnect,adOpenDynamic

Если курсор не указывать, то по умолчанию он будет adOpenForwardOnly.

Да озадачели. Так что делать? Среда многопользовательская.
А adOpenDynamic это только потеря в быстродействии на сколько я понимаю?

Вообще использую это только при расчете, который должен происходить по плану раз в месяц.

Еще вопрос UpdateBatch при adOpenDynamic, это то же что

Conn.Execute("UPDATE ...") или я совсем не понимаю о чем говорю?

Объясните пожалуйста.

Да и так прогр. не "летает", а если еще проверять... На сколько я понял без проверки не обойтись, ошибка выдается только если не обновлено ни одной записи, а если 50 % обновления прошло то ошибки не будет.

Как быстрей и надежней обновить запись?

conn.Execute ("UPDATE Doc SET Doc.Summa =5... while a<>b)

или

if F<>b then
Rs.fields("Summa").value =5

Rs.update ' В зависимости от типа курсора
end if

Во втором случае еще надо время и на открытие RecordSet,перебор записей,сравнение. Хотя и в первом наверное происходит то же самое.

НА СЧЕТ 50 %

СУТЬ В ТОМ ЧТО ЕСЛИ МЫ ОБНОВЛЯЕМ НЕСКОЛЬКО ЗАПИСЕЙ

RS.FIELDS("fIeld1").VALUE=1
rs.FIELDS("fIeld2").VALUE=2
rs.FIELDS("fIeld3").VALUE=3

А ПОТОМ UPDATE, ТО ЕСЛИ fIeld1 ОБНОВИТСЯ, А fIeld2, И fIeld3 НЕТ, ТО vb ЩШИБКИ НЕ ВЫДАСТ.

НО ВОТ ГДЕ Я ЭТУ ИСТИНУ ПОЧЕРПНУЛ НЕ МОГУ ВСПОМНИТЬ. И ИСТИНА ЛИ ЭТО.

Мне нужно быть уверенным на 100%, что если я дал команду rs.UpdateBatch то
этот UpdateBatch произошел, а если всетаки нет, то хотя бы я увидел окно ошибки и попытался повторить операцию.
Вобщем у меня базовые знания по этому вопросу маловаты поэтому и спрашиваю. Буду благодарен если даш совет какую книгу стоит прочесть не потеряв времени даром.