Присвоить значение всем записям

Здравствуйте, извините за банальный вопрос, но всё же прошу помочь. БД Access подключена к Delphi, таблица Chelovek подключена через ADOTable. В таблице есть поля fam, imya, otchestvo и nomer, на самой форме расположен edit. Подскажите как прописать, что бы при нажатии на кнопку, присваивался номер из edit'a во все записи поля nomer? Я так понимаю, нужно пробежаться for'ом по всем записям и присвоить значение из edit'a, причем нужно каждую запись открыть на редактирование и при переходе на другую сохранить.
6 ответов

1. Забыть навсегда про использование ADOTablе. 2. Использовать (хотя бы) ADOQuery + SQL-запросы. 3. Delphi + AdoQuery + SQL это будет выглядеть вот так:
query.close;
query.sql.text:='Update Chelovek set nomer=:snum'; //или 'Update Chelovek set nomer='+quotedstr(Edit1.text) 
//тогда параметр не нужен
query.Parameters.parambyname('snum').value:=Edit1.text;
query.ExecSQL;
Это если поле номер строковое.


присваивался номер из edit'a во все записи поля nomer?
Весьма странное желание... А как же уникальность? Или опять хотим "X", спрашиваем "Y", а реально надо "Z"?


Спасибо, всё работает, возможно ещё выручите? Как присвоить значение из edit'а только тем записям, которые я отсортировал через adoquery. К примеру, я написал, запрос чтобы отсортировались все значения равные 10. Как прописать, так что бы значение из edit'a присвоились только отсортированным записям?


query.close;
query.sql.text:='Update Chelovek set nomer=:snum Where nomer = 10';
query.Parameters.parambyname('snum').value:=Edit1.text;
query.ExecSQL;


а за место 10 указать edit2 возможно? что бы указывать конкретные значения, а не именно 10


А вот по приведенной аналогии совсем уже не судьба что-то сообразить?
query.close;
query.sql.text:='Update Chelovek set nomer=:snum Where nomer = :nnum';
query.Parameters.parambyname('snum').value:=Edit1.text;
query.Parameters.parambyname('nnum').value:=Edit2.text;
query.ExecSQL;