Ich habe da auch gewisse Probleme mit dem Clear.
Schildere mal kurz was ich will: Es geht um die Verarbeitung von EXCEL-Daten,
zurzeit vorallem um Datumseingaben sauber zu verarbeiten.
Das Resultat sind Datenbankeinträge und zwar gibt's da nur zwei Fälle:
- Das Datum kann wie erwünscht übernommen werden (richtig eingegeben)
- Das Datum wurde falsch eingegeben (irgendwelcher String) oder es wurde nichts
eingegeben
Im ersten Fall soll das Datum in die
DB übernommen werden, im zweiten Fall soll
ein Leereintrag (kein Defaultdatum oder so) erfolgen. Wie der Leereintrag erfolgt
ist nun noch unklar (NULL, ... oder was auch immer). Hoffe es geht ohne Zusatzspalte in
DB.
Delphi-Quellcode:
VAR
data: VARIANT;
BEGIN
data := .. Daten von einem EXCEL-Feld holen (ok)
(* Typ kann variieren, je nach Eingabe:
- richtige Datumseingabe
- Feld leer lassen
- Falsche Eingabe, z.B. ??? *)
..
(* Faelle Feld = empty und richtige Datumseingabe bearbeiten *)
IF VarType(data) = varEmpty
THEN ImportKredFilesForm.ADOQuery1['
RechungsDatum'].Clear
ELSE ImportKredFilesForm.ADOQuery1['
RechungsDatum'] := data;
(* Die Spalte 'RechnungsDatum' ist in der ACCESS-DB
als DateTime (Datum/Uhrzeit) definiert, kein Default-Wert *)
Obiges funktioniert nicht, das Statement ....Clear ergibt einen Laufzeitfehler.
'Ungültige Variantenoperation' aufgetreten.
Ich hoffe ihr habt da Ideen. Ich werde sicher irgendwann den Typ VARIANT mal genauer studieren, aber möglichst nicht jetzt.
Danke für Lösungsansätze.