Tabellenfeld NOT NULL erkkennen

[NoGAD]

Hallo,

wie ermittelt man bei einem Datenbankfeld einer Tabelle, ob dieses Feld mit "NOT NULL" definiert wurde?

Mittels

Delphi-Quellcode:

Dummy_String := GetEnumName(TypeInfo(TFieldType), Ord(ABSTable1.Fieldbyname('TestFeld').DataType));

kann ich ja den Type ermitteln. Aber NOT NULL in der Deklaration des Feldes?


Anmerkung: es ist schwierig, passende Ergebnisse mittels der Suche nach "NOT NULL" zu erhalten.

LG Mathias

[hoika]

Hallo,
hier ist ein anderer Thread dazu.

https://www.delphipraxis.net/203774-...eldtype-2.html

[mkinzler]

Kann man über die Felddeklartionen abfragen: TFieldDef.Required

[DeddyH]

Vielleicht mit

Delphi-Quellcode:

ABSTable1.Fieldbyname('TestFeld').Required

:?:

[DasWolf]

Zitat:

Zitat von DeddyH (Beitrag 1490164)

Vielleicht mit

Delphi-Quellcode:

ABSTable1.Fieldbyname('TestFeld').Required

:?:

Nicht unbedingt, denn man kann Eigenschaften zur Entwurfs- und Laufzeit verändern.

[NoGAD]

Danke für die Anregungen, ich gucke es mir morgen an.

LG Mathias 😀👋🏻

[himitsu]

Es kommt drauf an. entweder man kann selber Required setzen.

Aber viele DBKomponentenLibs setzen das auch auomatisch (z.B. von Devart),
also bei einem

Delphi-Quellcode:

SELECT ... FROM

wird da von der DB der Status mit abgeholt und dieses Property entsprechend gesetzt, falls bei dem Tabellen-Feld in der DB ein "NOT NULL" deklariert wurde.

Aber man kann das Verhalten oft auch deaktivieren (oder vergesse zu aktivieren).
Und es kann auch Nachteile haben, denn gibt es z.B. ein DEFAULT oder einen Trigger, welcher das Feld füllen würde, dann raucht TDataSet vorher schon ab, weil es davon nichts weiß.
(theoretisch wäre es hier also möglich ein INSERT ohne das Feld, oder gar eine NULL zu posten, aber TDataSet bricht bereits im BeforePost ab, wenn IsNull und Required=True)

[NoGAD]

Zitat:

Zitat von himitsu (Beitrag 1490190)

aber TDataSet bricht bereits im BeforePost ab, wenn IsNull und Required=True)

Heißt das, ich könnte es im BeforePost per try except abfangen, ohne vorher prüfen zu müssen?

LG Mathias

[himitsu]

Bin mir nicht sicher, ob das vor oder nach OnBeforPost passiert, aber Try-Except geht da drin eh nicht.
[EDIT] es wird nach OnBeforePost gepürft

Aber beim .Post kannst ein Try-Except auf EDatabaseError machen,
oder auf OnPostError reagieren.

Delphi-Quellcode:

procedure TDataSet.Post;
begin
  UpdateRecord;
  case State of
    dsEdit, dsInsert:
      begin
        DataEvent(deCheckBrowseMode, 0);
        DoBeforePost;
        CheckOperation(InternalPost, FOnPostError);  // <-----
        FreeFieldBuffers;
        SetState(dsBrowse);
        Resync([]);
        DoAfterPost;
      end;
  end;
end;

procedure TDataSet.InternalPost;
begin
  CheckRequiredFields;
end;

procedure TDataSet.CheckRequiredFields;
var
  I: Integer;
begin
  for I := 0 to FFields.Count - 1 do
    with FFields[I] do
      if Required and not ReadOnly and (FieldKind = fkData) and IsNull then
      begin
        FocusControl;
        DatabaseErrorFmt(SFieldRequired, [DisplayName]{, Self});  // k.A. warum Self auskommentiert ist, aber für die Fehlersuche wäre es eigentlich besser, wenn es das nicht wäre ... in XE auskommentiert und in 10.4 ganz weg o_O
      end;
end;

...

procedure DatabaseError(const Message: string; Component: TComponent = nil);
begin
  if Assigned(Component) and (Component.Name <> '') then
    raise EDatabaseError.Create(Format('%s: %s', [Component.Name, Message])) else
    raise EDatabaseError.Create(Message);
end;



procedure TDataSet.CheckOperation(Operation: TDataOperation; ErrorEvent: TDataSetErrorEvent);
var
  Done: Boolean;
  Action: TDataAction;
begin
  Done := False;
  repeat
    try
      UpdateCursorPos;
      Operation;  // <------
      Done := True;
    except
      on E: EDatabaseError do
      begin
        Action := daFail;  
        if Assigned(ErrorEvent) then ErrorEvent(Self, E, Action);  // <------
        if Action = daFail then raise;
        if Action = daAbort then SysUtils.Abort;
      end;
    end;
  until Done;
end;



// unit DBConsts;
resourcestring
  SFieldRequired = 'Feld '#39'%s'#39' muss einen Wert haben';

[NoGAD]

Das sieht doch gut aus.

Die Abfrage über das Feld

Code:

 if Required and not ReadOnly and (FieldKind = fkDat ..

ist doch das, was ich gesucht habe.

Required das teste ich morgen, ob es öffentlich zugänglich ist und ob es denn Zweck erfüllt.

Vielen lieben Dank. :-)

Mathias

[TigerLilly]

Eigentlich sollte man diese Info aus den Metadaten extrahieren. Schau mal, was TABSDatabase an Methoden hat. Du kannst dort sicher für die Tabellen und deren Felder via FieldDef auf die Metadaten zugreifen + das NOT NULL abfragen.

[NoGAD]

Zitat:

Zitat von TigerLilly (Beitrag 1490228)

Eigentlich sollte man diese Info aus den Metadaten extrahieren. Schau mal, was TABSDatabase an Methoden hat. Du kannst dort sicher für die Tabellen und deren Felder via FieldDef auf die Metadaten zugreifen + das NOT NULL abfragen.

Danke dir den Tipp, ich hatte schon gesucht, aber nichts entsprechendes gefunden.

Hier: https://www.componentace.com/help/ab...al_content.htm

und hier:
https://www.componentace.com/help/ab...properties.htm

kann ich die Methoden und Propertys studieren. Leider gibt es kein .Required

Eventuell übersehe ich auch das entsprechende Pendant und mir könnte jemand einen Fingerzeig auf die entsprechende Seite geben, sofern ihr die Zeit dafür habt. :-)

Lg und einen schönen Donnerstag
Mathias

[TigerLilly]

Required ist das was du brauchst:

Code:

TABSAdvFieldDef.Required

Indicates whether a value for the physical field in the underlying table is required.

property Required: Boolean;

Description
Use Required to find out if a field in a dataset must have a value. If Required is True, the field must have a value. If Required is False, the field can be left blank.

When adding field definitions to a dataset, set Required to specify whether blank values for the new field should be prohibited.

https://www.componentace.com/help/ab...properties.htm
..
https://www.componentace.com/help/ab...defs_items.htm
..
https://www.componentace.com/help/ab...dvfielddef.htm
..
https://www.componentace.com/help/ab...f_required.htm

[Frickler]

Zitat:

Zitat von NoGAD (Beitrag 1490233)

und hier:
https://www.componentace.com/help/ab...properties.htm

kann ich die Methoden und Propertys studieren. Leider gibt es kein .Required

Doch, bei der Property "FieldDefs" (unter "Derived from TDataSet"). TFieldDefs ist eine Kollektion von TFieldDef Objekten, und die haben die Property "Required".


P.S.: Huch, die Antwort von Tigerlilly wurde bei mir vorhin gar nicht angezeigt...

[NoGAD]

Vielen lieben Dank, ihr seid echt toll!

Damit sollte sich meine Anfrage erledigt haben.

Ich wünsche euch schon einmal ein schönes Wochenende vorab. 😀👋🏻

LG Mathias