Access mit Delphi 6 per ADO - Tipps?

[Union]

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');