@Delphi.Narium
Das mit den Parametern habe ich schon verstanden.
Ich meinte
MyQuery.ParamByName('ArtVKPreis_0').AsString := AccessQuery.FieldByName('ArtVKPreis_0').AsString;
was die Nachkommastellen nicht nimmt.
Mit Value oder mit asFloat ist es korrekt.
Ich habe mal deine Variante eingesetzt. Es erfolgt kein Update obwohl der Loop durchläuft.
Interessanterweise zeitgte mir
pgb_updateStatus.Caption := Format('ArtNr: %.5d - aktuallisierte Sätze: %.5d',[Q_sArtikelArtNr.AsInteger, MyQuery.RowsAffected]);
nur den ersten Datensatz. Eine Veränderung findet nicht statt.
Ohne die Transaktionsachen läuft es korrekt.
------------------------------------------------------------------------------------
Nebenbei ist mir noch etwas nicht klar:
Delphi-Quellcode:
begin
FDMSAccessService.Database:='E:\Preisdateien\K000110_p.mdb';
FDConnection.Connected := False;
FDMSAccessService.Compact;
end;
sollte doch eigentlich ganz easy die Datenbank komprimieren. Was es aber nicht tut.
Es kommt die Fehlermeldung:
Unbekannter OLE-Fehler ['' konnte nicht verwendet werden; Datei wird bereits verwendet]
Im MS
Access Demoprogramm funktioniert es ebenso mit gleicher Fehlermeldung nicht!
Was ist denn da schon wieder verkehrt? Ich zweifel ernsthaft an meinen schon ohnehin geringen Fähigkeiten bezg. Delphi.
LG Harry