Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#4

Re: SQL Befehl überprüfung auf leer

  Alt 2. Mai 2005, 13:45
UPDATE tabelle4711 SET Ansprechpartner=NULL WHERE Ansprechpartner='' Obige SQL-Anweisung setzt das Feld Ansprechpartner auf NULL, wenn es einen leeren String enthält.
Man kann immer nur ein Feld auf diese Art updaten.

Du kannst aber auch schon beim Editieren dafür sorgen, dass leere Felder als NULL-Werte gespeichert werden.
Im Event BeforePost rufst du einfach folgende Procedure auf:
Delphi-Quellcode:
procedure ClearEmptyStringFields(fields:TFields);
var
   i : Integer;
   f : TField;
begin
   for i:=0 to fields.Count-1 do
   begin
      f := fields[i];

      if (f.DataType in [ftString, ftWideString]) and (f.Required=False) and (f.AsString='') then
         f.Clear; // Set Field to NULL
   end;
end;

procedure ......BeforePost(dataset:TDataset);
begin
   ClearEmptyStringFields(dataset.fields);
end;
Andreas
  Mit Zitat antworten Zitat