Einzelnen Beitrag anzeigen

Benutzerbild von Union
Union

Registriert seit: 18. Mär 2004
Ort: Luxembourg
3.492 Beiträge
 
Delphi 7 Enterprise
 
#2

AW: Access mit Delphi 6 per ADO - Tipps?

  Alt 11. Okt 2013, 21:30
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');
Ibi fas ubi proxima merces
sudo /Developer/Library/uninstall-devtools --mode=all
  Mit Zitat antworten Zitat