MySQL Daten updaten mit Delphi FireDac

[Delphi.Narium]

Zitat von HCB:

Das mit dem Rat

MyQuery.ParamByName('ArtNr').AsString := AccessQuery.FieldByName('ArtNr').AsString; habe ich probiert, ist aber nicht korrekt. Als Preis wurde statt 995,50 nur 995 übertragen!

Die ArtNr ist nicht der Preis, von daher gibt es da keinen Zusammenhang.

Und wenn die Artnr vom Typ Integer ist, dann wird MyQuery.ParamByName('ArtNr').AsInteger := AccessQuery.FieldByName('ArtNr').AsInteger; genommen. Ist damit typsicher und spart beiden Seiten die Typkonvertierung. Dem Programm von Integer nach String, der Datenbank von String nach Integer.

Die Preis stehen in

Delphi-Quellcode:

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;

Von welchem Datentyp sind die Felder in den Datenbanken? Gleitkomma ...

Delphi-Quellcode:

MyQuery.ParamByName('ArtVKPreis_0').AsFloat := AccessQuery.FieldByName('ArtVKPreis_0').AsFloat;
MyQuery.ParamByName('ArtVKPreis_1').AsFloat := AccessQuery.FieldByName('ArtVKPreis_1').AsFloat;
MyQuery.ParamByName('ArtVKPreis_2').AsFloat := AccessQuery.FieldByName('ArtVKPreis_1').AsFloat;

Value ist vom Typ Variant, da muss man immer damit rechnen, dass der Inhalt interpretiert wird. Und das kann (erfahrungsgemäß) schonmal schiefgehen. Wenn ich weiß von welchem Datentyp eine Spalte ist, dann nutze ich immer die .AsBekannterDatenTyp -Variante. Das ist dann typsicher und sorgt bei nicht passendem Datentyp für einen entsprechenden Fehler. Bei Value wird (überspitzt formuliert) das nächstbeste irgendwie passende genommen und das muss dann nicht zwingend das Gewünschte sein.

Aus Deinem Quelltext geht nicht hervor, zu wem Connection gehört?
Zu MyQuery oder zu AccessQuery?

Die Transaktion muss zur MyQuery gehören!

Da Du mit zwei Datenbanken arbeitest, nutzt Du (höchstwahrscheinlich) auch zwei Datenbankverbindungen.

Vesuche es mit den Transaktionen doch mal in einer abgewandelten Variante:

Delphi-Quellcode:

  MyQuery.SQL.Text     := 'update oxarticles set oxprice = :ArtVKPreis_0,oxpricea = :ArtVKPreis_1, oxtprice = :ArtVKPreis_2 where oxid = :ArtNr';
  AccessQuery.SQL.Text := 'SELECT ArtNr, ArtVKPreis_0, ArtVKPreis_1, ArtVKPreis_2 FROM sArtikel where ArtInaktiv = false and ArtGSShop = true order by ArtNr';
  AccessQuery.Open;
  try
    MyQuery.Connction.StartTransaction;
    while not AccessQuery.EOF do
    begin
      MyQuery.ParamByName('ArtNr').AsInteger      := Q_sArtikelArtNr.AsInteger;      // <-- korrekten Typ nehmen
      MyQuery.ParamByName('ArtVKPreis_0').AsFloat := Q_sArtikelArtVkPreis_0.AsFloat; // <-- korrekten Typ nehmen
      MyQuery.ParamByName('ArtVKPreis_1').AsFloat := Q_sArtikelArtVkPreis_1.AsFloat; // <-- korrekten Typ nehmen
      MyQuery.ParamByName('ArtVKPreis_2').AsFloat := Q_sArtikelArtVkPreis_2.AsFloat; // <-- korrekten Typ nehmen
      MyQuery.ExecSql;
      // Hier rate ich mal: pgb_updateStatus sei eine Progressbar
      pgb_updateStatus.Caption  := Format('ArtNr: %.5d - aktuallisierte Sätze: %.5d',[Q_sArtikelArtNr.AsInteger, MyQuery.RowsAffected]));
      pgb_updateStatus.Position := AccessQuery.RecNo;
      AccessQuery.Next;
    end;
    MyQuery.Connction.Commit;
  except
    on e : Exception do
    begin
      pgb_updateStatus.Caption := e.Message;
      MyQuery.Connection.Rollback;
      raise;
    end;
  end;
  AccessQuery.Close;