Update Datensatz im BetterAdoDataset

[Chucky-GFX]

Code:

KostenDBGridPro.DataSource.DataSet.Locate('WE_PARTNERNR', PartnerNr, []);
Temp := ServiceKostenEditForm.KostenEdit.Text;
KostenBetterADODataSet.Edit;
KostenBetterADODataSet.FieldByName('SK_KOSTEN').AsString := Temp;
 if (ServiceKostenEditForm.LohnnebenkostenCheckBox.Checked = true) then
     Temp := 'J'
 else
     Temp := 'N';
 KostenBetterADODataSet.FieldByName('SK_LOHNNEBENKOSTEN').AsString := Temp;

Hallo, ich habe folgendes Problem: Ich möchte gerne nach der Änderung eines Datensatzes nicht das ganze DBGrid neu lesen, sondern einfach nur einen Datensatz erneuern. Eben das mach ich mit dem oben beschriebenen code.

Wenn ich jetzt allerdings Update bekomme ich in unregelmäßigen abständen den Fehler:
"Die zum aktualisieren angegebene Zeile wurde nicht gefunden. Einige Werte wurden seit dem letzten lesen ggf. geändert."

Kann mir evtl. wer ne andere Variante zeigen, ohne das ich den kompletten Datensatz neu laden muss?

Gruß Chicky

[shmia]

Hat deine Tabelle einen Primärschlüssel?
Falls nicht, kommt es zu Schwierigkeiten beim Updaten oder Löschen von Datensätzen.
Falls deine Tabelle eine Primärschlüssel hat, sollte dieser in der Query enthalten sein;
das Feld kann ja unsichtbar geschaltet werden.

[Chucky-GFX]

Klar hat die Tabelle einen Primärschlüssel.
Du meinst also ich soll in der DBGrid ein Update des Datensatzes machen...hmmm, das mache ich ja quasi indirekt mit dem was ich geschrieben habe...naja ich schau mal

[alzaimar]

Hallo,

der von Dir beschriebene Fehler passiert so:

ADO speichert die Zeile und erwartet vom Server eine Meldung wie "1 Zeile verändert". Aus irgend einem Grund kommt jedoch etwas wie "0 Zeilen verändert" zurück.

Das kann mehrere Ursachen haben:
A Auf der Tabelle ist ein Trigger, der blöderweise auch so eine Meldung liefert.
B Jemand anderes hat den Datensatz verändert.

(A) kannst Du einfach testen, indem Du das DB-Schema analysierst.
(B) kannst Du umgehen, indem Du die UPDATE-Anweisung in etwa so programmierst:

SQL-Code:

UPDATE Tabelle 
   SET Feld1=1, 
       Feld2=...
WHERE PrimaryKeyField = 123

Von Hause aus macht ADO nämlich so etwas:

SQL-Code:

UPDATE Tabelle 
   SET Feld1=1, 
       Feld2=...
WHERE PrimaryKeyField = 123
  AND Feld1= <AlterWertVonFeld1>
  AND Feld2= <AlterWertVonFeld2>

Die alten Werte des Datensatzes hat sich ADO beim Einlesen der Tabelle gemerkt. Von einer zwischenzeitlichen Änderung der Feldinhalte durch eine andere Anwendung bekommt ADO nix mit.

Gott-Sei-Dank verwendest Du das TBetterADODataset. Soweit ich weiss, geht das damit.

[Chucky-GFX]

Das von dir beschriebene hilft mir nich wirklich weiter.

Punkt B deiner Ursachen kann nicht der Fall sein, da ich alleine auf einem Testsystem arbeite.

Desweiteren benutze ich kein Update, sondern ein DELETE mit anschließendem INSERT, da es sein kann das in einer von zwei Tabellen noch kein Datensatz vorhanden ist und ich somit nicht mit einem UPDATE arbeiten kann. Im Fehlerfall geschieht hier ein Rollback.

Die von mir gesuchte Lösung soll einfach nur das eben in die Editiermaske eingegebene in die DBGrid übernehmen ohne alle Datensätze neu auszulesen sondern einfach nur den einen Datensatz.

[alzaimar]

Ah, Du verwendest zwei unterschiedliche Datasets? Dann bist Du eben selbst der andere Anwender (B).

Verwende einfach ein einziges Dataset, konfiguriere das TBetterADODataset, das die Updates sauber laufen und dann müsstest Du dich um Nichts kümmern.

Sollte es sich bei deinem Dataset um eine VIEW handeln, die man nicht ohne Weiteres direkt verändern kann, dann musst Du die Synchronisatzion per Hand durchführen: Verändere die veränderten Felder auch in dem Dataset, das Du zur Anzeige verwendest. Bei diesem 'ReadOnly' Dataset musst Du nur dafür sorgen, das keine Änderungen an die DB geschickt werden. Ich kenne das TBetterADODataset nicht, aber das wird schon gehen.

[Chucky-GFX]

Nein ich benutze ein einziges BetterADODataset. Die SQL Abfrage jedoch benutzt einen JOIN um daten aus 2 Tabellen zu bekommen. Eine Tabelle ist immer gefüllt und die andere wird durch mein Programm mit informationen gefüllt. Deshalb ist ein UPDATE nicht möglich, da in einer Tabelle evtl noch kein Datensatz vorhanden ist.

Sollte ich nun die Daten geändert haben möchte ich nich per SELECT das ganze Dataset neu laden, sondern einfach nur den einen gerade geänderten Datensatz. So wie ich das oben beschrieben habe funktioniert es "eigentlich" jedoch krieg ich unbegründet diese abstürze. Ich brauch also kein neues SELECT oder sowas, sondern will einfach das die so eben eingegebenen daten im DBGrid angezeigt werden, weil es so ca. 20 - 30 sekunden dauert bis er sonst alle daten hat.

Code:

KostenBetterADODataSet.FieldByName('SK_LOHNNEBENKOSTEN').AsString := ServiceKostenEditForm.KostenEdit.Text;

So musst du dir es logisch vorstellen, wie setze ich es nun um ohne abstürze zu kriegen ?

[alzaimar]

LockType= ltLockOptimistic

und/oder im TBetterADODataset das UPDATE unterdrücken.

[Chucky-GFX]

Ich glaube wir reden aneinander vorbei, denn wenn ich das update unterdrücke...was hab ich denn dann davon ?
Damit mach ich es doch eigentlich falscher und nich richtiger

Bitte erläuter mir mal den zusammenhang! Danke

[alzaimar]

Nein, wir reden nicht aneinander vorbei.

Du hast ein Grid. Da stehen Daten drin. Dein UPDATE geht aber an dem Standardprozedere vorbei (MyDataset.Post). Also tritt Fall B ein.

Du willst nun nur die Zeilen im Grid verändern, die von deiner manuellen Veränderung betroffen sind.

Dann schreib die veränderten Werte einfach in das Grid rein. Woher soll ADO denn wissen, welche Records sich verändert haben?

Sei MyJoinedDataset das Dataset, das die Daten aus dem 'SELECT ... JOIN ... ' enthält. Normalerweise kannst Du die veränderten Daten ja so reinschreiben:

Delphi-Quellcode:

MyJoinedDataset.Edit;
MyJoinedDataset['Field'] := NewValue;
MyJoinedDataset.Post;

Beim 'Post' wird ADO aber entweder meckern oder doch irgendwelche Tabellen updaten. Das willst Du ja nicht, also musst Du ADO sagen , das es kein UPDATE durchführen soll.