DateTime über ParamByName auf NULL setzen?

[Byteteufel]

Zitat von Fritzew:

ganz einfach:

Delphi-Quellcode:

//setzen
DBQuery.ParamByName('P_BeginDatum').clear;

//abfragen:
if DBQuery.ParamByName('P_BeginDatum').isNull then
begin
// was auch immer
end;

Ok, wenn ich es so mache bekomme ich einen Fehler.

Vielleicht habe ich nicht klar mein Problem ausgedrückt. Wenn der Anwender kein Datum eingibt, soll auch keins gespeichert werden. Es erscheint aber bei einem leerem Datum 01.01.1900 in der Datenbank.

Delphi-Quellcode:

 if getBeginDatum > '' then
     DBQuery.ParamByName('P_BeginDatum').AsString := getBeginDatum
     else
     DBQuery.ParamByName('P_BeginDatum').Clear;

Wenn ich also auf .isNull abfrage, wüßte ichnicht was ich dort als Wert mitgeben soll. Nur die Clear-Anweisung bringt den Fehler in der Anlage.

Grüße

Axel

[mkinzler]

Beim Clear dürfte der Fehler in auftauchen, es schadet aber auch nicht, wenn man den Anweisungen in der Fehlermeldung folgt, die ja sagt, dass der Parameter keinen typ hat und man einen setzten soll!

Der Grund für den falschen Wert wurde Dir zudem schon in #6 genannt.

[FediDelPr]

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.

[Delphi.Narium]

eventuell

Delphi-Quellcode:

 IF VarType(data) = varEmpty
       THEN ImportKredFilesForm.ADOQuery1['RechungsDatum'].AsVariant := EmptyParam
       ELSE ImportKredFilesForm.ADOQuery1['RechungsDatum'].AsVariant := data;

Aber wenn data leer ist und leer in die DB soll, warum dann nicht leer schreiben?
ImportKredFilesForm.ADOQuery1['RechungsDatum'].AsVariant := data; Für mich ist momentan nicht erkenntlich, warum eine Fallunterscheidung erforderlich sein sollte.

[FediDelPr]

Ich gehe eigentlich davon aus, dass der Datentyp der DB-Spalte 'RechnungsDatum' fixiert
ist (DateTime) und daher nur dieses Format akzeptiert. Damit wäre es nicht möglich
einen String zuzuweisen.

Liege ich da falsch ?

[FediDelPr]

@Delphi.Narium

Entschuldige, ich hab deinen Beitrag etwas unsorgfältig gelesen.

Ich werde das später heute Abend genau ansehen.

[FediDelPr]

Ich habe mir den Vorschlag mit dem .AsVariant angesehen.

Auch hier kommt die Fehlermeldung 'Ungültige Variantenoperation' und zwar in beiden
IF-Zweigen.

Ohne das .AsVariant funktioniert wenigstens die Variante mit einem gültigen Datum.

Nebenbei sei vermerkt, dass sehr verschiedene Datumsformate akzeptiert werden.
Z.B. '3.12.2016', 3-12-2016', 2016-12-3, sogar 3.12-2016 oder 12/2016.

Die Frage bleibt also, wie kann ich einen 'leeren Eintrag' in ein ACCESS-Datumsfeld
eintragen ?

Ich bin nicht sicher, aber ich glaube, dass beim Ausführen von .Clear zwar eine Fehlermeldung erzeugt wird, das Feld jedoch tatsächlich gelöscht wird. Werde ich nochmals
anschauen.