IBDAC: In der DB sind Leerstrings statt Null. Alternativen?

[Int3g3r]

Zitat von Uwe Raabe:

Betrifft das auch IBDAC? Ich frage nur, weil FireDAC eine Option StrsEmpty2Null hat, die vermutlich genau diesen Effekt aktiviert.

Ja, leider. Ich muss dazu aber sagen das ich nicht die neuste version von IBDAC benutze.


EDIT: Hab hier ne mögliche Lösung. Also bei mir Funktionierts.

Delphi-Quellcode:

procedure Tdm.qryTestBeforePost(DataSet: TDataSet);
var
   i: Integer;
begin
   for i := 0 to DataSet.FieldCount-1 do
   begin
      if (DataSet.FieldByName(DataSet.FieldList[i].DisplayName).ReadOnly) or
          (DataSet.FieldByName(DataSet.FieldList[i].DisplayName).IsNull) then
            Continue;

      if trim(DataSet.FieldByName(DataSet.FieldList[i].DisplayName).AsString) = '' then
            DataSet.FieldByName(DataSet.FieldList[i].DisplayName).Clear;
   end;
end;
end;

[Uwe Raabe]

Du solltest zum Einen überprüfen, ob du das Feld überhaupt beschreiben darfst, und zum Anderen, ob es nicht schon NULL ist. Auch ein NULL-Wert liefert einen Leerstring bei AsString.

[Int3g3r]

Zitat von Uwe Raabe:

Du solltest zum Einen überprüfen, ob du das Feld überhaupt beschreiben darfst, und zum Anderen, ob es nicht schon NULL ist. Auch ein NULL-Wert liefert einen Leerstring bei AsString.

Ahh, sehr gute Überlegung. Besten Dank an das hätte ich nicht gedacht!
Das hätte irgendwann ne Exception gegeben.
Wurde nun angepasst!

[mkinzler]

Alternativ könntre man dies auch mit einem Trigger lösen; wäre dann unabhängig von den Komponenten/Programm.

[Uwe Raabe]

Statt TrimRight(TrimLeft(... kannst du dich auch gleich Trim(... schreiben, oder?

[Int3g3r]

Zitat von Uwe Raabe:

Statt TrimRight(TrimLeft(... kannst du dich auch gleich Trim(... schreiben, oder?

Hast recht hab das nochmals nachgelesen.
Habe gedacht aus " Hallo Welt " würde danach "HalloWelt"

Zitat:

Alternativ könntre man dies auch mit einem Trigger lösen; wäre dann unabhängig von den Komponenten/Programm.

Hatte ich schon vorher gelesen. Da ich mich mit der FireBird-Syntax noch schlechter auskenne als in Delphi, habe ich mir gedacht ich lasse das lieber.

[mkinzler]

Hatte ich schon vorher gelesen. Da ich mich mit der FireBird-Syntax noch schlechter auskenne als in Delphi, habe ich mir gedacht ich lasse das lieber.

Ist einfach

SQL-Code:

SET TERM ^^ ;
CREATE TRIGGER <TABELLE>_BI FOR <TABELLE> ACTIVE BEFORE INSERT or UPDATE POSITION 0 AS
begin
  if ( new.<Feld> = '') then new.<Feld> = NULL;
end ^^
SET TERM ; ^^

[Int3g3r]

Zitat:

Ist einfach

Danke für das Beispiel. Werde es ggf. später benutzen.

[hoika]

Hallo,

Zitat:

Ich möchte keine Leerstrings in meiner DB

Es gibt doch da auch Unterschiede.

Null = Wert nicht bekannt
"" = Wert bekannt, ist aber leer.

[Uwe Raabe]

Es gibt noch eine Möglichkeit: Wert bekannt und kein Leerstring, besteht aber nur aus Leerzeichen.

So wie ich das verstanden habe, ist diese Vorgabe <Leerstring> => NULL hier anwendungsspezifisch.