MySQL Daten updaten mit Delphi FireDac

[HCB]

Hallo Datenbankprofis!

Ich versuche gerade eine Verbindung zu einem Online-Shop herzustellen und die Daten von einer lokalen Delphi App zum Onlineserver zu übertragen. Es funktioniert auch einwandfrei mit einem Datensatz.
Sobald ich aber die Daten mittels einer Schlaufe ...EOF übertrage, arbeitet das Programm zwar die Schlaufe ab, es wird aber nur der erste Datensatz aktualisiert, die übrigen nicht.

Weiß jemand woran das liegt und kann mir helfen?

Momentan habe ich es so:

Delphi-Quellcode:

 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;

[DeddyH]

Zitat:

Delphi-Quellcode:

MyQuery.ParamByName('ArtNr').Value := Q_sArtikelArtNr.Value;

Ohne ein Next auf Q_sArtikelArtNr bleibt das ja auch immer derselbe Wert.

[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

Delphi-Quellcode:

MyQuery.SQL.Text :='update oxarticles set oxprice= :ArtVKPreis_0,oxpricea= :ArtVKPreis_1, oxtprice= :ArtVKPreis_2 where oxid = :ArtNr';

kannst Du vor das

Delphi-Quellcode:

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?