NULL Werte aus mySQL pro Feld entfernen

[mkinzler]

Gibt es schon, will er aber umgehen ( siehe Ursprungsfrage)

[Sir Rufo]

Um jetzt mal auf den Ursprungsthread zu antworten :)

Zitat:

Zitat von Joerginger (Beitrag 1104297)

Jetzt meine eigentlichen Fragen:
- Wie gehe ich das am cleversten an? Ich meine, 100% dafür Sorge tragen dass alle Datensätze niemals irgendwo NULL in sich tragen kanns nich sein.

Nee, ist auch doof, vor allem weil es eine Weitere Information beinhaltet -> Es liegen keine Daten vor
Ist das absolut unerwünscht, dann eben NULL-Werte in der Tabelle verbieten

Zitat:

Zitat von Joerginger (Beitrag 1104297)

- Muss ich für jedes verwendete Feld im Select schon das erwähnte ISNULL(NAME,'') verwenden??? Sieht ja irgendwie nicht so dolle aus: SELECT IFNULL(ADR_NAME1,''''), IFNULL(ADR_NAME2,''''), ISNULL(ADR_STRASSE,'''')... Schreib das mal bei 30-50 Feldern :roll:

Nö

Zitat:

Zitat von Joerginger (Beitrag 1104297)

- ist das der "only way", muss ich mir da eine func schreiben die aus einem gegebenen Feldnamen das IFNULL(F_N,'''') bastelt und an's stringQUERY dranhängt???

Nö

Zitat:

Zitat von Joerginger (Beitrag 1104297)

- Oder gibts einen smooth-and-easy-Trick für meine Problemstellung?

Ja

Zitat:

Zitat von Joerginger (Beitrag 1104297)

- ist meine try-except-finally Idee möglicherweise doch nicht so blöde?

ähhm, die geht schon mal gar nicht ... Except (übers. Ausnahme) und sollte auch nur für Ausnahmen verwendet werden und nicht für den Regelbetrieb.

Aus den hier schon genannten Lizenzgründen würde ich an deiner Stelle Zugriffs-Komponenten verwenden, die ohne die libmysql.dll auskommen.

Weiterhin würde ich für die Darstellung der Werte eine generalisierte procedures schreiben ala

Delphi-Quellcode:

function FieldToStr( Field : TField ) : string;
begin
  if Assigned( Field ) then
    begin
      if VarIsNull( Field.Value ) then
        Result := '' // auch möglich Result := '(null)'
      else
        case Field.FieldType of
          ftInteger : Result := 
        end;
    end
  else
    Result := '';
end;

procedure DataSetShowInListView( DataSet : TDataSet; ListView : TListView; FieldList : array of string );
var
  idx : integer;
  valstr : string;
begin
  for idx := Low( FieldList ) to High( FieldList ) do
    begin
      valstr := FieldToStr( DataSet.FindField( FieldList[ idx ] ) );
      ...
    end;
end;

Ich würde aber in den meisten Fällen ein DBGrid (gut persönlich benutze ich ein cxGrid :wink:) für die Anzeige bemühen, denn da braucht es dieses Geraffel nicht.

Weiterhin kann man sich auch Objekte anlegen, wo diese Daten enthalten sind und dann an die Liste übergeben (ORM).
Das Objekt selber kümmert sich dann um die richtige Umwandlung der Daten

Delphi-Quellcode:

type
  TAdresse = class
  private
    FVorname : Variant;
    function GetVorname : string;
    procedure SetVorname( const Value : string );
    procedure SetRawVorname( const Value : Variant );
  public
    property Vorname : string read GetVorname write SetVorname;
    property RawVorname : Variant read FVorname write SetRawVorname;
  end;


function TAdresse.GetVorname : string;
begin
  Result := VarToStrDef( FVorname, '' );
end;
  
procedure TAdresse.SetVorname( const Value : string );
begin
  FVorname := Value;
end;
  
procedure TAdresse.SetRawVorname( const Value : Variant );
begin
  FVorname := Value;
end;

[p80286]

Zitat:

Zitat von Joerginger (Beitrag 1104297)

Jetzt meine eigentlichen Fragen:
- Wie gehe ich das am cleversten an? Ich meine, 100% dafür Sorge tragen dass alle Datensätze niemals irgendwo NULL in sich tragen kanns nich sein.

Wie wäre es, das gleich bei der Tabellendefinition zu erschlagen?
Create Table (
IDKEY NUMBER ( 38 ) NOT NULL,
Wert1 CHAR (1) DEFAULT '0' ,
Wert2 NUMBER (5,2) DEFAULT '0',
....)

Ausserdem wie schon oben erwähnt NULL ist nicht Null sondern Nix!
Wenn man das in Seinen Abfragen berücksichtigt ist diese Info sehr wertvoll.

Gruß
K-H

[Joerginger]

Ich bedank' mich an dieser Stelle mal für die vielen wertvollen Informationen!

Vor allem die Hinweise auf die Lizenzkosten waren wichtig, weil ich mySQL (scheinbar fälschlicherweise) für eine "Gratis-Datenbank" gehalten hätt'. Ich frage mich nur: ob das wohl alle Entwickler wissen und berücksichtigen???

Weiters nehme ich Sir Rufo's Codeschnipsel gerne mit, habe mir ferner - auch zwecks Testen - die myDAC Komponenten besorgt... Und die beiden erwähnten DBMS's...

GLG, Mr. Joerginger