Замена значения

[Aleksandr]

Помогите оптимизировать код который ищет и заменяет значение num=1 на num=0

    Screen.Cursor := crHourGlass;
   ADOQuery1.Active:=false;
   ADOQuery1.SQL.Clear;
   ADOQuery1.SQL.Text := 'select * from base where num="1"'+' and linkey='+DbText1.Caption+' and Date_posting= :date1';
   d1:=Trunc(DateTimePicker1.Date);
ADOQuery1.Params.ParamByName('date1').Value:=d1;

  ADOQuery1.Open;

   While not ADOQuery1.Eof do
  begin
    ADOQuery1.Edit;
   ADOQuery1.FieldByName('num').Value:=0;
    ADOQuery1.Post;
    ADOQuery1.Next;

end;

   Screen.Cursor := crDefault;

[eval]

наймите уже программиста, в конце то концов..

[Aleksandr]

этот код работает только медлено 1400 записей порядка 25 секунд

[eval]

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

[Аватар]

UPDATE base SET num=0 WHERE num=1 and linkey=:linkey and Date_posting= :date1

[Aleksandr]

Спасибо Аватар я так и сделал.