AdoQuery UPDATE w pętli

form3.ADOConnection1.Connected:=true;
form3.ADOQuery1.Active:=false;
form3.ADOQuery1.SQL.Text:='select * from BoxOffice';
form3.ADOQuery1.ExecSQL;
form3.ADOQuery1.Active:=true;
while not form3.ADOQuery1.Eof do
begin
miesiac:=form3.ADOQuery1.Fields.Fields[3].AsInteger;
miesiac:=miesiac+1;
form3.ADOQuery1.SQL.Text:='UPDATE BoxOffice SET LiczbaMiesiecy="'+inttostr(miesiac)+'" WHERE ID='+form3.ADOQuery1.Fields.Fields[0].asstring+';';
form3.ADOQuery1.ExecSQL;
form3.ADOQuery1.Next; // Dla pojedynczej kolumny przechodzi/

Zapytanie nie chce przejsc dla wielu kolumn prosze o pomoc ;]
Chce aby za kazdym razem wczytywało mi z update dodawało 1 i zapisywalo ponownie.

AdoQuery1.SQL.Text := 'SELECT ID From ....';
AdoQuery1.Open;
while not AdoQuery1.Eof do
begin
  AdoQuery2.SQL.Text := 'UPDATE X SET Cos=' + AdoQuery1.Fields[0].AsString;
  AdoQuery2.Execute;
  AdoQuery1.Next;
end;
AdoQuery1.Close;
 

Zamiast trzymać kontrolki bazodanowe na formie i odwolywac sie poprzez Form , stworz sobie DataModule w plikach Delphi i tam umieszczaj.

Dzieki Zadziałało :D