AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Tabellenfeld NOT NULL erkkennen

Tabellenfeld NOT NULL erkkennen

Ein Thema von NoGAD · begonnen am 26. Mai 2021 · letzter Beitrag vom 28. Mai 2021
Antwort Antwort
Seite 1 von 2  1 2   
Benutzerbild von NoGAD
NoGAD

Registriert seit: 31. Jan 2006
Ort: Erfurt
199 Beiträge
 
Delphi 10.4 Sydney
 
#1

Tabellenfeld NOT NULL erkkennen

  Alt 26. Mai 2021, 11:34
Datenbank: ABS_Database • Version: 7.92 • Zugriff über: ABSTable
Hallo,

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

Mittels 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
Mathias
Ich vergesse einfach zu viel.
  Mit Zitat antworten Zitat
hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.011 Beiträge
 
Delphi 10.4 Sydney
 
#2

AW: Tabellenfeld NOT NULL erkkennen

  Alt 26. Mai 2021, 12:49
Hallo,
hier ist ein anderer Thread dazu.

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

Geändert von hoika (26. Mai 2021 um 13:29 Uhr)
  Mit Zitat antworten Zitat
mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.804 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Tabellenfeld NOT NULL erkkennen

  Alt 26. Mai 2021, 12:53
Kann man über die Felddeklartionen abfragen: TFieldDef.Required
Markus Kinzler
  Mit Zitat antworten Zitat
Benutzerbild von DeddyH
DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.289 Beiträge
 
Delphi 11 Alexandria
 
#4

AW: Tabellenfeld NOT NULL erkkennen

  Alt 26. Mai 2021, 12:57
Vielleicht mit
ABSTable1.Fieldbyname('TestFeld').Required
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
  Mit Zitat antworten Zitat
DasWolf

Registriert seit: 7. Jun 2016
Ort: Neubrandenburg
71 Beiträge
 
Delphi 10.1 Berlin Professional
 
#5

AW: Tabellenfeld NOT NULL erkkennen

  Alt 26. Mai 2021, 13:05
Vielleicht mit
ABSTable1.Fieldbyname('TestFeld').Required
Nicht unbedingt, denn man kann Eigenschaften zur Entwurfs- und Laufzeit verändern.
  Mit Zitat antworten Zitat
Benutzerbild von NoGAD
NoGAD

Registriert seit: 31. Jan 2006
Ort: Erfurt
199 Beiträge
 
Delphi 10.4 Sydney
 
#6

AW: Tabellenfeld NOT NULL erkkennen

  Alt 26. Mai 2021, 14:57
Danke für die Anregungen, ich gucke es mir morgen an.

LG Mathias 😀👋🏻
Mathias
Ich vergesse einfach zu viel.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.743 Beiträge
 
Delphi 10.4 Sydney
 
#7

AW: Tabellenfeld NOT NULL erkkennen

  Alt 26. Mai 2021, 15:41
Es kommt drauf an. entweder man kann selber Required setzen.

Aber viele DBKomponentenLibs setzen das auch auomatisch (z.B. von Devart),
also bei einem 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)
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (26. Mai 2021 um 15:46 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von NoGAD
NoGAD

Registriert seit: 31. Jan 2006
Ort: Erfurt
199 Beiträge
 
Delphi 10.4 Sydney
 
#8

AW: Tabellenfeld NOT NULL erkkennen

  Alt 26. Mai 2021, 17:19
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
Mathias
Ich vergesse einfach zu viel.
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu
Online

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
38.743 Beiträge
 
Delphi 10.4 Sydney
 
#9

AW: Tabellenfeld NOT NULL erkkennen

  Alt 26. Mai 2021, 17:27
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';
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
Delphi-Tage 2005-2014

Geändert von himitsu (26. Mai 2021 um 17:36 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von NoGAD
NoGAD

Registriert seit: 31. Jan 2006
Ort: Erfurt
199 Beiträge
 
Delphi 10.4 Sydney
 
#10

AW: Tabellenfeld NOT NULL erkkennen

  Alt 26. Mai 2021, 22:16
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
Mathias
Ich vergesse einfach zu viel.
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 1 von 2  1 2   

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:40 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf