Einzelnen Beitrag anzeigen

TurboMagic

Registriert seit: 28. Feb 2016
Ort: Nordost Baden-Württemberg
2.960 Beiträge
 
Delphi 12 Athens
 
#1

Wert auf NULL setzen in TFDBatchMove.OnWriteValue

  Alt 25. Aug 2024, 10:39
Datenbank: Firebird • Version: 5.0 • Zugriff über: FireDAC
Hallo,

ich benutze TBatchMove um Daten innerhalb einer FireDAC Datenbank zu kopieren.
So weit, so schön. Nur habe ich jetzt festgestellt, dass bestimmte Spalten
in der Zieltabelle auf NULL gesetzt werden sollten statt den kopierten Wert
zu benutzen.

Man könnte jetzt entweder am Select für die Quelle ansetzen, was ich aber
problematisch fände, da man bei späteren Erweiterungen der Tabelle (Quell- und Zieltabelle
sind identisch) immer dran denken müsste die neuen Spalten mit ins Select aufzunehmen.

Ich habe aber schon ein OnWritealue Event:

Delphi-Quellcode:
procedure TMyClass.MyBatchMoveWriteValue(ASender: TObject;
                                         AItem: TFDBatchMoveMappingItem;
                                         var AValue: Variant);
Nur auf was muss ich für die betreffenden Spalten AValue setzen damit NULL geschrieben wird?
Eine Spalte ist ein Integer, die andere ein Timestamp Datentyp.

Auch der Versuch AItem.SourceField.Clear; zu benutzen klappt nicht. Das kracht:

Code:
Im Projekt kasse.exe ist eine Exception der Klasse EDatabaseError mit der Meldung
'Datenmenge weder im Editier- noch im Einfügemodus' aufgetreten.
Und eigentlich will ich's ja auch nicht inder Quelle sondern nur im Ziel ändern...
Grüße
TurboMagic
  Mit Zitat antworten Zitat