Also Du solltest Dir vielleicht zunächst mal Grundlagen aneignen bevor Du Dich an Datenbanken wagst. Und wenn Du dort angelangt bist, auch dort Grundlagen.
Die einfachste Methode wäre die Verwendung einer TAdoQuery und dann mit der Eigenschaft
SQL arbeiten:
Delphi-Quellcode:
ADOQuery1.SQL.Text := 'UPDATE Barcodes SET Menge = 0 where Menge = 1';
ADOQuery1.ExecSQL;
Willst Du bei einer Schleife bleiben, solltest Du von GOTO absehen und das evtl. in etwa so machen:
Delphi-Quellcode:
ADOTable1.Open;
while not ADOTable1.Eof do
begin
If Adotable1.FieldByName('Menge').AsInteger = 1 then
begin
ADOTable1.Edit;
ADOTable1.FieldByName('Menge').AsInteger := 0;
ADOTable1.Post;
end;
ADOTable1.Next;
end;
Showmessage ('Auswahl zurückgesetzt');