MySQL Daten updaten mit Delphi FireDac

[Papaschlumpf73]

Deine Parameter scheinen sich nicht zu verändern. Die Schleife läuft durch, es wird aber immer derselbe Datensatz mit denselben werden aktualisiert. Irgendwo müssten die Felder/ Variablen Q_sArtikelArtNr, Q_sArtikelArtVkPreis_0 usw. auch neue Werte abrufen.

[HCB]

Der Vollständigkeitshalber:

Delphi-Quellcode:

    AccessQuery.SQL.Text := 'SELECT ArtNr, ArtVKPreis_0, ArtVKPreis_1, ArtVKPreis_2 FROM sArtikel where ArtInaktiv = false and ArtGSShop = true order by ArtNr';
    AccessQuery.Open;
    AccessQuery.First;
try
     Connection.StartTransaction; // Start a transaction
      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 := Q_sArtikelArtNr.Value;
        MyQuery.ParamByName('ArtVKPreis_0').Value := Q_sArtikelArtVkPreis_0.Value;
        MyQuery.ParamByName('ArtVKPreis_1').Value := Q_sArtikelArtVkPreis_1.Value;
        MyQuery.ParamByName('ArtVKPreis_2').Value := Q_sArtikelArtVkPreis_2.Value;
        MyQuery.execsql;
        pgb_updateStatus.Position:=AccessQuery.RecNo;
        AccessQuery.Next;
        end;
        Connection.Commit; // Commit the transaction
     except Connection.Rollback; // Rollback the transaction in case of an error
     raise;
     end;
     AccessQuery.close;
    end;

Die AccessQuery holt also die Daten und wird in der Schlaufe doch nach dem MyQuery.execsql doch mit AccessQuery.Next einen Datensatz weiter gesprungen.
Oder sehe ich das falsch??

LG Harry

[Papaschlumpf73]

Das siehst du falsch... Q_sArtikelArtNr.Value wird nirgendwo abgeholt - ist immer derselbe Wert.

[HCB]

Blödsinn was ich geschrieben habe. Mit einem Datensatz funktioniert das Update. (Hat auch den ersten Datensatz geändert).
Hab aber übersehen, dass der geänderte Datensatz noch vom Einzelupdate stammt.

Tatsächlich wird die Schlaufe abgearbeitet aber KEIN Datensatz wird aktualisiert.
Es kommt auch keine Fehlermekdung.

LG Harry

[Klaus01]

wo wird denn z.B ArtVKPreis_0 auf Q_sArtikelArtVkPreis_0.Value gemappt?

Ich sehe zwischen den Parametern und der Query keinen Zusammenhang.

[Delphi.Narium]

Welcher Zusammenhang besteht denn zwischen AccessQuery und Q_sArtikelArtNr?
Ist irgendwo definiert, dass das den Inhalt der Spalte ArtNr der Abfrage AccessQuery repräsentiert?

Delphi-Quellcode:

        MyQuery.ParamByName('ArtNr').Value := AccessQuery.Fields[0].Value;
        MyQuery.ParamByName('ArtVKPreis_0').Value := AccessQuery.Fields[1].Value;
        MyQuery.ParamByName('ArtVKPreis_1').Value := AccessQuery.Fields[2].Value;
        MyQuery.ParamByName('ArtVKPreis_2').Value := AccessQuery.Fields[3].Value;

oder

Delphi-Quellcode:

        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_2').Value;

oder

Delphi-Quellcode:

  AccessQuery.Open;
  Q_sArtikelArtNr := AccessQuery.FieldByName('ArtNr')
  Q_sArtikelArtVkPreis_0 := AccessQuery.FieldByName('ArtVKPreis_0');
  Q_sArtikelArtVkPreis_1 := AccessQuery.FieldByName('ArtVKPreis_1');
  Q_sArtikelArtVkPreis_2 := AccessQuery.FieldByName('ArtVKPreis_2');
  AccessQuery.First;

Die Zeile MyQuery.SQL.Text :='update oxarticles set oxprice= :ArtVKPreis_0,oxpricea= :ArtVKPreis_1, oxtprice= :ArtVKPreis_2 where oxid = :ArtNr'; kannst Du vor das AccessQuery.Open; verschieben. Das muss nur einmal gemacht werden und nicht pro Datensatz.

[HCB]

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.

[stifflersmom]

Kann denn der update Befehl ohne gequotete Artikelnummer überhaupt funktionieren?

[HCB]

Warum geht es beim Update nur eines Datensatzes ohne die ArtNr in QuotedStr zu setzen?
Trotzdem habe ich es mal so probiert:

MyQuery.ParamByName('ArtNr').Value := QuotedStr(AccessQuery.FieldByName('ArtNr').Value); was leider auch nicht zum Erfolg führt.

[ggscholz]

Was ist denn hiermit:

Code:

where oxid = :ArtNr

?
Ist oxid = ArtNr?