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;