ник: ovr
Сейчас сделаю С рекордсетами все не так сложно (когда поймешь то все начнешь делать в коде!!) Единственно я все делаю в VB6 поэтому код немного отличается от код VBA ACCSESS
если не поймешь спрашивай
итак поехали
рекордсет-- Набор записей из определенной таблицы или нескольких таблиц
для его открытия:
Dim rs1 As New ADODB.Recordset
With rs1
.ActiveConnection = my_DBConn 'строка подключения к твоей базе
.CursorType = adOpenStatic '
.LockType = adLockOptimistic
.SOURSE="SELECT Поле1.(имя твоей таблицы) ,Поле2.(имя твоей таблицы),Поле3.(имя твоей таблицы) ,Поле4.(имя твоей таблицы) FROM (имя твоей таблицы)
.OPEN
'В итоге получили набор записей по указаным полям из твоей таблицы
'если вставишь
MSGBOX .RecorCount ' то увидишь количество записей (выбранных строк)
'Теперь перебираем все записи (это цикл)
DO WHILE Not .EOF ' условие перебрать все записи пока не дойдем до конца
' внутри цикла делаем наши дела для каждой строки
IF .Fields("Поле1")=-1 AND .Fields("Поле4")="Изменено" THEN
.Fields("Поле2")=.Fields("Поле3")
.Fields("Поле4")="не изменено"
end if
.MoveNext ' именно этой командой переходишь к следуещей записи
LOOP
'в итоге изменила все значения как тебе надо
'и наконец
.Update
.cloze
END With
Ну как (если что не понято то спрашивай)