Leeren Text "" in MS-SQL Feld NOT NULL Problem

[Delphi.Narium]

VarChar(Max - 1)?

Edit:

In meinem ollen Delphi 7 finde ich in der ADODB.pas folgendes:

Delphi-Quellcode:

procedure TCustomADODataSet.SetFieldData(Field: TField; Buffer: Pointer; NativeFormat: Boolean);

  procedure BufferToVar(var Data: OleVariant);
  begin
    case Field.DataType of
      ftString, ftFixedChar, ftGuid:
        Data := WideString(PChar(Buffer));
      ftWideString:
        Data := WideString(Buffer^);
      ftAutoInc, ftInteger:
        Data := LongInt(Buffer^);
      ftSmallInt:
        Data := SmallInt(Buffer^);
      ftWord:
        Data := Word(Buffer^);
      ftBoolean:
        Data := WordBool(Buffer^);
      ftFloat, ftCurrency:
        Data := Double(Buffer^);
      ftBlob, ftMemo, ftGraphic, ftVariant:
        Data := Variant(Buffer^);
      ftInterface:
        Data := IUnknown(Buffer^);
      ftIDispatch:
        Data := IDispatch(Buffer^);
      ftDate, ftTime, ftDateTime:
        if NativeFormat then
          DataConvert(Field, Buffer, @TVarData(Data).VDate, False) else
          Data := TDateTime(Buffer^);
      ftBCD:
        if NativeFormat then
          DataConvert(Field, Buffer, @TVarData(Data).VCurrency, False) else
          Data := Currency(Buffer^);
      ftBytes, ftVarBytes:
        if NativeFormat then
          DataConvert(Field, Buffer, @Data, False) else
          Data := OleVariant(Buffer^);
      ftLargeInt:
        Data := LargeInt(Buffer^);
      else
        DatabaseErrorFmt(SUsupportedFieldType, [FieldTypeNames[Field.DataType],
          Field.DisplayName]);
    end;
  end;

var
  Data: OleVariant;
  RecBuf: PChar;
begin
  with Field do
  begin
    if not (State in dsWriteModes) then DatabaseError(SNotEditing, Self);
    GetActiveRecBuf(RecBuf);
    if FieldNo > 0 then
    begin
      if ReadOnly and not (State in [dsSetKey, dsFilter]) then
        DatabaseErrorFmt(SFieldReadOnly, [DisplayName]);
      Validate(Buffer);
      if FModifiedFields.IndexOf(Field) = -1 then
        FModifiedFields.Add(Field);
    end;
    if Buffer = nil then
      Data := Null else
      BufferToVar(Data);
    PVariantList(RecBuf+SizeOf(TRecInfo))[Field.Index] := Data;
    if not (State in [dsCalcFields, dsInternalCalc, dsFilter, dsNewValue]) then
      DataEvent(deFieldChange, Longint(Field));
  end;
end;

In BufferToVar ist eine "Case-Kaskade".

Äquivalent in Deiner Delphiversion suchen und dann "einfach" ftMemo an der vorhandenen Stelle "rausschmeißen" und bei ftString hinzufügen.

Das in 'ner eigenen "Variante" der entsprechenden Unit anpassen und diese, statt des Originals einbinden.

Sprich: Original umbenennen und durch Deine Variante ersetzen

oder

die eigene Variante ins Projekt aufnehmen, im Bibliothekspfad, Suchpfad, ... so platzieren, dass sie vor dem Original vom Compiler gefunden wird.

Am Sinnvollsten wird es wohl dann sein, die eigene Variante ins Projekt aufzunehmen und ins Projektverzeichnis zu legen, damit andere Projekte davon unberührt bleiben.

[berens]

> VarChar(Max - 1)?
Leider nein, denn MAX ist für den Server ein Schlüsselwort und keine berechenbare Konstante, von der man einfach 1 abziehen kann.

Code:

---------------------------
Microsoft SQL Server Management Studio
---------------------------
Setting for Length must be from 1 to 8000.


---------------------------
OK   Hilfe   
---------------------------

Wäre es nicht denkbar, statt mit .AsString anders auf das Datenfeld zuzugreifen, und diese fehlerhafte Umwandlung zu umgehen? AsVariant und AsWideString haben beide leider nicht geklappt. TField.SetData wäre eine Möglichkeit, aber mit meinem fehlerhaften Wissen zu Pointern bekomme ich das ad hoc nicht hin:

Delphi-Quellcode:

      
var
  s: string;
...
  s := 'test';
  afield.SetData(@s); // geht aber tatsächlich gut, wenn s = ''. k.a. ob's dann aber wirklich in die DB geschrieben wird...

[Jumpy]

Kann man nicht einfach NULL in das Feld schreiben lassen und das dann nachher mit einem Update per SQL auf Leerstring setzen? Es geht doch nur im die Migration und nicht den dauerbetrieb, oder?

[berens]

Das Problem ist, dass es bei AdoQuery1.Post eine Exception ausgelöst wird, und die Daten in's Nirvana verpuffen. Gerade in der alten Datenbank ist in diesem -optionalen- Feld ja selten etwas eingetragen.

Mir fällt gerade ein, dass ich ja zumindestet die folgende Abfrage machen: wenn der zu schreibende String leer ist, schreibe ihn einfach nicht. Denn lustigerweise greift DANN tatsächlich der Standardwert. Es knallt wirklich nur in dem einen konkreten Fall, dass ich AsString := '' setze. NACHTRAG: Nein, geht nicht: Wenn ich den Datensatz mit .Edit bearbeite, der Benutzer hat den Wert aus dem Feld gelöscht und ein leerer Wert soll geschrieben werde, bekommt er das Feld nie im Leben wieder gelöscht. Was soll das???

Das ist wirklich ein Bug von Delphi (ich habe 2010) mit den ADO-Komponenten, und in den vielen Seiten die ich eben im Browser aufhatte, wurde auch mal die QualityCentral verlinkt zu dem Thema. Leider hab ich die Seite zu früh geschlossen, und finde die nun nicht mehr.

Eigentlich wollte ich jetzt echt die neue Datenbank von Grund auf so "sauber" designen, dass ich mir nie wieder im Leben gedanken um SELECT abfragen mit oder ohne NULL-Werte machen muss (deshalb Standardwerte="") - Performance/Sinnhaftigkeit von NULL oder NOT NULL mal außen vor gelassen. Aber scheinbar führt wohl kein Weg dran vorbei, in den ehem. "TEXT" Feldern (nun VARCHAR(MAX) ) eben leider doch NULL-Werte zuzulassen und halt an ALLEN Stellen im Quelltext bei den Abfragen: WHERE BLA="" eben umzuändern auf WHERE (BLA="") OR (BLA IS NULL) ... Das macht's weder einfacher, noch übersichtlicher, noch "schöner", aber eh dass ich mich in zwei Jahren an unerwarteten Stellen damit rumärgern muss, dass beim Speichern eine Exception auftritt, weil der Benutzer ein Feld leer gelassen hat (was er darf!), mache ich das jetzt lieber so mit dieser Krücke.

Ja, NULL und NOT NULL sind eine Glaubensfrage. Ich persönlich sehe in NULL Werten ausschließlich die damit einhergehenden Probleme.

[Delphi.Narium]

Eventuell:

Delphi-Quellcode:

  t := trim(_Source.FieldByName(MeinText).AsString);
  if t = '' then begin
    _Target.FieldByName(MeinText).AsVariant := EmptyParam;  // <-- Das ist die "Variantversion von Null". (Bei Delphi 7 in Variants definiert.)
  end else begin
    _Target.FieldByName(MeinText).AsString := t;
  end;

Beim Lesen von so einer Spalte mit .AsString bekommt man immer einen leeren String.

[berens]

Typecastfehler :/

Ansonsten aber gute Idee...

[Jumpy]

Als Krücke für die spätere Abfrge geht in MSSQL dann:

WHERE ISNULL(BLA,'')=''