Einzelnen Beitrag anzeigen

BlueStarHH

Registriert seit: 28. Mär 2005
Ort: Hamburg
850 Beiträge
 
Delphi 11 Alexandria
 
#1

[Firebild] Änderungen nach Insert gehen verloren

  Alt 3. Jul 2007, 13:09
Datenbank: Firebird • Version: 1.5 • Zugriff über: IBX, TIBTable
Hallo ich habe folgendes Problem: In einer Tabelle wird mit Insert ein neuer Kunde angelegt und einge Felder werden ausgefüllt. Die Daten werden mit Post gespeichert. Nun wird die Kundentabelle in den Edit-Modus versetzt und ein Feld geänder und mit Post gespeichert. Die Änderung wird in TDBEdits auch angezeigt. Wenn ich nun zu einem anderen Datensatz scrolle und wieder zum geänderten Datensatz zurück, sind die Änderungen immer noch sichtbar. Wird die Anwendung nun beendet und neu gestartet, ist der neue Kunde zwar da, aber die letzten Änderungen sind verschwunden. Dies passiert nur, wenn der Kunden mit Insert neu eingefügt wurde.
Beispielcode:

Delphi-Quellcode:
Kunden.Insert;
Kunden.FieldByName('KdNr').AsInteger := 123;
Kunden.FieldByName('Name').AsString := 'Schneider';
Kunden.Post;

Kunden.Edit;
Kunden.FieldByName('Firma').AsString := 'EineFirma'; //Diese Änderung verschwindet nach Programmende
Kunden.Post;
Kunden ist die TIBTable-Komponente. Diese ist mit einer TIBTransaction verknüpft. Die Einstellungen dieser sind:
DefaultAction:TACommitRetaining
Params: (Commited lesen)
read_committed
rec_version
nowait

Vielen Dank für eure Hilfe im Voraus!
  Mit Zitat antworten Zitat