AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Sprachen und Entwicklungsumgebungen Sonstige Fragen zu Delphi Wie erhalte Ich die Änderungen eines TClientDataset in ein TClientDataset um diesen i

Wie erhalte Ich die Änderungen eines TClientDataset in ein TClientDataset um diesen i

Ein Thema von omega90 · begonnen am 10. Sep 2014 · letzter Beitrag vom 10. Sep 2014
Antwort Antwort
Seite 1 von 2  1 2   
omega90

Registriert seit: 2. Jul 2014
8 Beiträge
 
#1

Wie erhalte Ich die Änderungen eines TClientDataset in ein TClientDataset um diesen i

  Alt 10. Sep 2014, 11:03
Hallo Zusammen...

Ich habe vor die Daten in einem TClientDataset über ein Grid zu ändern und über Delta die geänderten Daten in einem TClientDataset in einer Schleife zu durchlaufen und den passenden SQL Code zu bauen.

Hierfür greife ich auf eine DBF Datei zu die mir über eine Komponente ApolloDatabase und ApolloTable in mein TClientDataset übergibt. Das funktioniert.

Ich kann die Daten in einem Grid anzeigen lassen via DataSource und Provider. Über folgenden Code prüfe Ich zunächst ob die Daten geändert wurden im TClientDataset.

Quellcode
if Self.DatasetArtikel.ChangeCount = 0 then
begin
ShowMessage('Delta is empty');
Exit;
end;


Anschließend gebe Ich in einem Integer aus wieviele Änderungen es gab.

Quellcode
counter := DatasetArtikel.ChangeCount;


Nun möchte Ich die Änderungen (Nur die Änderungen) im Dataset erfassen.

Quellcode
DatasetArtikel.Data := Self.DatasetArtikel.Delta;


Danach wollte Ich in einer Schleife das Dataset durchlaufen, mir ist jedoch aufgefallen das Ich auch wenn Ich einen Wert geändert hatte nur den alten Wert erhalte.

Zum Beispiel habe Ich in der Spalte 3 im ersten Daensatz blueblue stehen und änder diesen in redred ab. Jedoch bekomme Ich nur blueblue zurück aber ich brauche den neuen Wert..

Quellcode
value := DatasetArtikel.Fields[2].OldValue; //gibt blueblue zurück
value := DatasetArtikel.Fields[2].Value; //gibt blueblue zurück
value := DatasetArtikel.Fields[2].NewValue; //gibt blueblue zurück


Wie kann ich das realisieren das Ich ein Dataset erhalte nur mit den Änderungen und dieses in einer Schleife durchlaufe und die neuen Werte rausfilter?
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#2

AW: Wie erhalte Ich die Änderungen eines TClientDataset in ein TClientDataset um dies

  Alt 10. Sep 2014, 11:22
Die Zuweisung DatasetArtikel.Data := Self.DatasetArtikel.Delta; ist unter der Annahme, daß DatasetArtikel und Self.DatasetArtikel identisch sind, eher fragwürdig, da du damit dem ClientDataSet ja die eigentliche Datenbasis unter dem Hintern wegziehst.

Wenn du nur die geänderten Records des Datasets sehen willst, setz doch einfach

DatasetArtikel.StatusFilter := [usModified];

Vielleicht ist es hier ja nicht relevant, aber das Prinzip kann man auch auf usInserted und usDeleted ausweiten.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
omega90

Registriert seit: 2. Jul 2014
8 Beiträge
 
#3

AW: Wie erhalte Ich die Änderungen eines TClientDataset in ein TClientDataset um dies

  Alt 10. Sep 2014, 12:00
Ich bekomme aber dann beim Compilieen den Fehler : E2010 Inkompatible Type: TUpdateStatusSet und Set


Ich bin neu in der Arbeit mit diesen TClientDatasets. Im Prinzip möchte Ich ja nicht mehr als nur die Daten aus dem Dataset ändern und wieder zurück spielen in die dbf Datei. Und ja die Arbeit mit dbf Dateien ist veraltet aber der Kunde will das so und so muss das gemacht werden :/ ...
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#4

AW: Wie erhalte Ich die Änderungen eines TClientDataset in ein TClientDataset um dies

  Alt 10. Sep 2014, 12:03
Ich bekomme aber dann beim Compilieen den Fehler : E2010 Inkompatible Type: TUpdateStatusSet und Set
Welche Delphi-Version?
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
omega90

Registriert seit: 2. Jul 2014
8 Beiträge
 
#5

AW: Wie erhalte Ich die Änderungen eines TClientDataset in ein TClientDataset um dies

  Alt 10. Sep 2014, 12:28
Ich verwende XE6 ...
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
43.017 Beiträge
 
Delphi 12 Athens
 
#6

AW: Wie erhalte Ich die Änderungen eines TClientDataset in ein TClientDataset um dies

  Alt 10. Sep 2014, 12:56
Delphi-Quellcode:
        value := DatasetArtikel.Fields[2].OldValue; //gibt blueblue zurück
        value := DatasetArtikel.Fields[2].Value; //gibt blueblue zurück
        value := DatasetArtikel.Fields[2].NewValue; //gibt blueblue zurück
Wie kann ich das realisieren das Ich ein Dataset erhalte nur mit den Änderungen und dieses in einer Schleife durchlaufe und die neuen Werte rausfilter?
OldValue sollte nur für den aktuellen Datensatz verfügar sein.
Es wird nicht für alle Datensätze der "alte" Zustand gespeichert. Was ist überhaupt alt? Nja, wenn, dann müsstest du das wohl selber speichern, in eine/mehreren zusätzlichen Spalten oder woanders.

Und das OldValue könnte auch nur während des Inserts/Edits gültig/aktuell sein, bis hin zum nächsten Post/Cancel.


Ob der OldValue auch länger gespeihert wird, ist nicht unbedingt/immer gegeben.
Zitat von OH:
Sobald die Datensätze erfolgreich eingetragen wurden, kann der ursprüngliche Feldwert nicht mehr ermittelt werden.

Anmerkung: Die Eigenschaft OldValue kann nur verwendet werden, wenn mit der Komponente TClientDataSet auf die Daten zugegriffen wird oder zwischengespeicherte Aktualisierungen genutzt werden.


Eventuell klingt TClientDataSet.LogChanges nach einer praktischen Sache?
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests

Geändert von himitsu (10. Sep 2014 um 13:02 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#7

AW: Wie erhalte Ich die Änderungen eines TClientDataset in ein TClientDataset um dies

  Alt 10. Sep 2014, 13:18
Ich verwende XE6 ...
Funktioniert hier problemlos!

Hast du eventuell andere Units eingebunden, in denen usModified auch deklariert ist?
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#8

AW: Wie erhalte Ich die Änderungen eines TClientDataset in ein TClientDataset um dies

  Alt 10. Sep 2014, 13:20
Eventuell klingt TClientDataSet.LogChanges nach einer praktischen Sache?
Wenn das auf false stände, gäbe es gar kein Delta. Deswegen ist es ja per default eingeschaltet. Es gibt nur ganz wenige Fälle, wo man das ausschalten sollte.
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
Benutzerbild von Uwe Raabe
Uwe Raabe

Registriert seit: 20. Jan 2006
Ort: Lübbecke
10.934 Beiträge
 
Delphi 12 Athens
 
#9

AW: Wie erhalte Ich die Änderungen eines TClientDataset in ein TClientDataset um dies

  Alt 10. Sep 2014, 14:16
Wie verbindest du denn das ClientDataSet mit dem ApolloTable?

Reicht es nicht, einfach einen TDataSetProvider dazwischenzuschalten und dessen ResolveToDataSet auf true zu setzen?
Uwe Raabe
Certified Delphi Master Developer
Embarcadero MVP
Blog: The Art of Delphi Programming
  Mit Zitat antworten Zitat
omega90

Registriert seit: 2. Jul 2014
8 Beiträge
 
#10

AW: Wie erhalte Ich die Änderungen eines TClientDataset in ein TClientDataset um dies

  Alt 10. Sep 2014, 14:37
Also kurz zur Abfolge meines Projektes:

Ordner mit DBF Dateien (iArtikel.dbf) : -> ApolloDatabase (kdaten) -> ApolloTable (Databasename:kdaten,TableName:iArtikel.dbf) -> TDataSetProvider (Dataset:ApolloTable) -> TClientDataset (Providername: TDatasetProvider) -> TDataSource (Dataset: TClientDataset) -> bindet an Grid


Daten werden im Grid geändert und sollen zurück zurück zur dbf datei...wie Ich das über die apollo komponente machen kann weiss ich ungefähr aber dafür benötige Ich den SQL Befehl und die werte die geändert wurden.
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:26 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz