Delphi-PRAXiS - Einzelnen Beitrag anzeigen

**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?

markieren

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

markieren

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

markieren

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.

Einzelnen Beitrag anzeigen

AW: MySQL Daten updaten mit Delphi FireDac