DateTime über ParamByName auf NULL setzen?

[Byteteufel]

Hallo zusammen,

ich habe ein Datumsfeld oin einer Datenbank, welches ich auf NULL setzen möchte.

Delphi-Quellcode:

  DBQuery:TFDQuery; // FireDac
...

  if getBeginDatum > '' then // Datum ist String
     DBQuery.ParamByName('P_BeginDatum').AsString := getBeginDatum
     else
     DBQuery.ParamByName('P_BeginDatum').AsDateTime := NULL; // Klappt so nicht, NULL ist nicht bekannt.....

Wen der String leer ist, erfolgt sonst ein "Defaultdatum". Das verwirrt aber.

Viele Grüße

Axel

[Uwe Raabe]

Versuch's mal mit

Delphi-Quellcode:

DBQuery.ParamByName('P_BeginDatum').Clear;

[bnreimer42]

Hallo,

zum leeren der gesetzten Parameter-Werte einfach die Methode

Code:

Clear

des jeweiligen Parameters aufrufen.

Prüfen, ob der Wert NULL ist geht mit

Code:

IsNull

.

[himitsu]

Delphi-Quellcode:

DBQuery.ParamByName('P_BeginDatum').Value := NULL;

:stupid:


Aber Achtung: Borland war auf die echt saublöde Idee gekommmen und hat in "einigen" Ableitungen das Value "verdeckt",
so ist z.B. bei TIntegerField das kein Variant mehr, so wie bei TField, sondern ein Integer. :wall:

[jaenicke]

Zitat:

Zitat von himitsu (Beitrag 1352328)

Aber Achtung: Borland war auf die echt saublöde Idee gekommmen und hat in "einigen" Ableitungen das Value "verdeckt",
so ist z.B. bei TIntegerField das kein Variant mehr, so wie bei TField, sondern ein Integer. :wall:

Was ist denn daran blöd? Wenn du das Feld nicht explizit auf einen bestimmten Typ castest, kannst du Value doch als Variant genauso benutzen wie vorher.

Wenn du aber auf einen konkreten Typ gecastet hast, wie zum Beispiel TIntegerField, macht es ja keinen Sinn, wenn dies etwas anderes als diesen Typ widerspiegelt. Denn dann ist es ja der konkrete Typ, der in diesem Feld enthalten ist, bekannt. Da wären die zusätzlichen Konvertierungen ja unnötig.

[Ghostwalker]

Eventuell auch mal in die Tabellendefinition der DB guggen. Kann sein, das da ein Default-Wert angegeben wurde. Wenn ja musst du die Tabellendefinition anpassen, sonst kannst du da löschen
wie du willst :)

[Byteteufel]

Hallo zusammen,

danke für die Antworten. Nun brat mir einer einen Storch. Wenn ich NULL definieren will. NULL ist ein Undeklarierter Bezeichner???
Muss ich da eine spezielle Unit einbinden? Ich nutze Delphi Seattle.

Danke!

Viele Grüße

Axel

[mkinzler]

Ist in der Unit Variants deklariert. Aber wie schon beschrieben besser mit .Clear setzen und mit .isNull abfragen.

[Byteteufel]

Halo zusammen,

Ok, die Unit "Variants" musste ich noch einbinden, dann war NULL möglich.

Delphi-Quellcode:

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

bringt den Fehler:

[mkinzler]

In der fehlermeldung steht eigentlich genau der Grund. Aber wenn dir hier öfters gesagt wird, die Methode Clear zu verwenden, dann hben wir uns schon etwas dabei gedacht!

[Byteteufel]

Zitat:

Zitat von mkinzler (Beitrag 1352380)

Ist in der Unit Variants deklariert. Aber wie schon beschrieben besser mit .Clear setzen und mit .isNull abfragen.

Hast Du dazu ein Beispiel, wie es aussehen sollte? Ich bekomme da immer einen Fehler. Mir ist der Aufruf nicht klar. :roll:

Danke

Gruß

Axel

[mkinzler]

Delphi-Quellcode:

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

[Fritzew]

ganz einfach:

Delphi-Quellcode:

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

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

[Byteteufel]

Zitat:

Zitat von Fritzew (Beitrag 1352385)

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

[himitsu]

Zitat:

Zitat von jaenicke (Beitrag 1352331)

Zitat:

Zitat von himitsu (Beitrag 1352328)

Aber Achtung: Borland war auf die echt saublöde Idee gekommmen und hat in "einigen" Ableitungen das Value "verdeckt",
so ist z.B. bei TIntegerField das kein Variant mehr, so wie bei TField, sondern ein Integer. :wall:

Was ist denn daran blöd? Wenn du das Feld nicht explizit auf einen bestimmten Typ castest, kannst du Value doch als Variant genauso benutzen wie vorher.

Wenn du aber auf einen konkreten Typ gecastet hast, wie zum Beispiel TIntegerField, macht es ja keinen Sinn, wenn dies etwas anderes als diesen Typ widerspiegelt. Denn dann ist es ja der konkrete Typ, der in diesem Feld enthalten ist, bekannt. Da wären die zusätzlichen Konvertierungen ja unnötig.

TField hat alles Mögliche ala AsInteger implementiert.
Und soein Scheiß wiederspricht extrem den Paradigmen der Vererbung.
Es kann doch nicht sein, dass FieldByName().Value was ganz anderes macht, als über Variablen welche explizit diesen Typen haben, obwohl Beides intern ein TIntergerField ist.

[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?

Delphi-Quellcode:

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.

[FediDelPr]

Vorübergehend habe ich jetzt eine Lösung:

Bei einem Append (...ADOQuery1.Append; ) wird eine neuer Record erzeugt, der
'leere' Einträge enthält, sofern ich diesen nicht beschreibe. Also scheint die
DB diese 'leeren' Einträge ja tatsächlich zu kennen.
Ich erzeuge nun nur Einträge in Felder in denen ich keine 'leeren' Einträge will.

Das ist also genau das was ich will.

Trotzdem hinterlässt es mich unbefriedigt, da ich immer noch nicht weiss, wie ich explizit
einen 'leeren' Eintrag erzeuge. (z.B. wenn ich den Inhalt einer DB-Zeile ändern will)
Es bleibt also nichts weiter übrig als später weiter zu suchen...

Etwas habe ich auch noch probiert: Den Datentyp eines bestimmten Feldes (nicht Spalte)
in der ACCESS-DB zu bestimmen. Scheint nicht zu gehen, es kommt immer 1 = varNull zurück.

Vielleicht hat jemand noch Lust weitere Ideen beizusteuern, scheint mir ein Problem zu
sein auf das früher oder später auch andere stossen. Dies zeigt auch die Internetsuche
(z.B. bei Stackoverflow..)

[HolgerX]

Hmm..

Mal zusammen gefasst:
1.)
Niemals einem NICHT String Field etwas mit .AsString zuweisen, wenn Du nicht weißt, was du da übergibst!

Denn gerade bei Date kann dass in die Hose gehen, da das System dann Versucht mit StrToDateTime zu konvertieren!
Bedenke der String '01-12-2019' kann der 1. Dezember 2019 oder aber auch der 12. Januar 2019 sein! Je nachdem, wer/wie das Datum als Sting abgelegt hat...

Besser der String selber nach TDateTime konvertieren und dann dem .Value übergeben..

2.)
Ein Datum per Paramater auf NULL zu setzen geht eigentlich immer mit
ADOQuery1.Parameters.ParamByName('ParameterDATUM') .Value := NULL;

AUSSER: Wenn das Feld in der DB mit NOT NULL definiert ist !!!

Was das Clear macht ist TField abhänging und kann auch zum Vorbesetzen eines Wertes führen..

Teste das mal mit nem 'Update TABLENAME set FIELDNAME = :data' wobei natürlich TABLENAME = deine Tabelle mit einem Datumsfeld und FIELDNAME eben dieses Feld ist.

Dann noch
Query.Parameters.ParamByName('data').Value := NULL;
Query.ExecSQL;

Und das Datumsfeld ist dann leer (=NULL)..

3.)
Ein Feld (TField) hat immer den Typ der Spalte und mit Field.DataType bekommst Du diesen auch heraus. Field.Size würde Dir auch die Maxlänge eines String-Feldes geben.

Das Field.Value wird entsprechend einen zum Datentyp passenden WERT (Variant) haben.
Wenn dieser Leer ist, dann eben NULL.

(So, dass sind meine Meinungen und die behalte ich ;) , außer ich werde Besserem belehrt.. )

[DasWolf]

Versuch mal folgendes:

Delphi-Quellcode:

DBQuery.ParamByName('P_BeginDatum').DataType := ftDateTime;
DBQuery.ParamByName('P_BeginDatum').Clear;
DBQuery.ParamByName('P_BeginDatum').Bound := true;

[p80286]

Und warum nicht mit zwei Updateroutinen arbeiten?
(die korrekte Syntax müßte noch geprüft werden)

Delphi-Quellcode:

if istgueltig(mydate) then
  xx.sql.Text:='update mytable set myfield=:prm1,set mydate=:prm2'
else
  xx.Sql.Text:='update mytable set myfield=:prm1,set mydate=NULL';

Gruß
K-H