MySQL Daten updaten mit Delphi FireDac

[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.

[fisipjm]

Zitat von HCB:

MyQuery.ParamByName('ArtNr').Value := QuotedStr(AccessQuery.FieldByName('ArtNr').Value);

Nur eine Kleinigkeit, aber mach das bitte so:
MyQuery.ParamByName('ArtNr').AsString := AccessQuery.FieldByName('ArtNr').AsString; Die Parameter kümmern sich dann um Quotation etc.

[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!

Ich habe das ganze Gedöns um Transaktionen rausgeschmissen ( Connection.StartTransaction; Connection.Commit; und Connection.Rollback ) und jetzt funktioniert das Updaten der MySQL Datenbank korrekt! Vielleicht habe ich diese Transaktionssache falsch eingebunden. Muss ich mich mal näher damit beschäftigen.

Also vielen Dank an alle die mich dabei unterstützt haben den Fehler zu finden.

LG Harry

[ggscholz]

Was ist denn hiermit:

Code:

where oxid = :ArtNr

?
Ist oxid = ArtNr?

[Delphi.Narium]

Gib doch mal zusätzlich im ShowMessage RowsAffected mit aus:

ShowMessage(Format('ArtNr: %d - aktuallisierte Zeilen: %d',] AccessQuery.FieldByName('ArtNr').Value, MyQuery.RowsAffected]));

Da oxid keine Zeichenfolge ist, geht es ohne Quotes.

Hast Du mal geprüft, ob es die Werte für die ArtNr in der MySQL-Tabelle auch gibt?

Wenn es sie nicht gibt, wirft das Update keine Fehler. Es wird dann eben kein Datensatz akuallisiert. RowsAffected sollte dann = 0 sein.

Wie prüfst Du denn in der MySQL-Datenbank, ob Deine Routine Erfolg hatte oder nicht?

Musst Du bei der Prüfung eventuell in dem Werkzeug eine neue Transaktion starten, weil Du sonst ggfls. nur die Daten aus der schon laufenden Transaktion siehst und nicht die in weiteren Transaktionen Deines Programmes aktuallisierten Werte?