Ich habe es jetzt so geändert, was leider das selbe (Nicht)ergebnis bringt.
Delphi-Quellcode:
while not AccessQuery.EOF do
begin
MyQuery.SQL.Text :='update oxarticles set oxprice= :ArtVKPreis_0,oxpricea= :ArtVKPreis_1, oxtprice= :ArtVKPreis_2 where oxid = :ArtNr';
MyQuery.ParamByName('ArtNr').Value := AccessQuery.FieldByName('ArtNr').Value;
MyQuery.ParamByName('ArtVKPreis_0').Value := AccessQuery.FieldByName('ArtVKPreis_0').Value;
MyQuery.ParamByName('ArtVKPreis_1').Value := AccessQuery.FieldByName('ArtVKPreis_1').Value;
MyQuery.ParamByName('ArtVKPreis_2').Value := AccessQuery.FieldByName('ArtVKPreis_1').Value;
MyQuery.execsql;
ShowMessage(AccessQuery.FieldByName('ArtNr').Value);
pgb_updateStatus.Position:=AccessQuery.RecNo;
AccessQuery.Next;
end;
Also showMessage zeigt mir nacheinander die richtigen Artikelnummen an. Die ArtNr ändert sich also innerhalb der Schlaufe korrekt.
Komisch.