Im Beitrag “Access zu EDM: Dateien erstellen” haben wir gezeigt, wie Sie mit einer einfachen Access-Prozedur aus einem Access-Datenmodell die für ein Entity Data Model notwendigen Dateien erzeugen können. Wenn Sie nun noch passende Klassen mit den Grundfunktionen für die Validierung hinzufügen wollen, können Sie die Erweiterungen aus diesem Artikel dazu verwenden. Wir legen für jede Entitätsklasse des Entity Data Models auf Basis des Datenmodells einer Access-Datenbank zusätzlich eine weitere Klasse in einem Unterordner namens Validierung an, der die grundlegenden Funktionen für die Validierung enthält. Diese müssen allerdings noch angepasst werden. An welchen Stellen, lesen Sie im Folgenden.<\/b><\/p>\n
Die grundlegenden Techniken zum Validieren von Daten in Benutzeroberflächen, die Daten aus einem Entity Data Model nutzen, haben wir im Artikel Validieren mit VB und EDM <\/b>beschrieben (www.datenbankentwickler.net\/175<\/b>). Dort zeigen wir eine Methode, die in verschiedenen Bereichen implementiert werden muss. Der erste dort beschriebene Teil erläutert, wie Sie die Entitätsklassen um eine Schnittstelle erweitern, die das Auslösen von Ereignissen beim Eintreten von Validierungsfehlern erlaubt. Diese Schnittstelle implementieren wir nicht direkt in der Klasse, zum Beispiel Kunde<\/b>, sondern machen uns zunutze, dass man Klassen auf mehrere Dateien aufteilen kann. Das hat den Vorteil, dass automatisch erzeugte neue Versionen des Entity Data Models nach Änderungen im Datenmodell sich nicht auf die Klassen mit der Validierung auswirken.<\/p>\n
Wir erstellen also eine neue partielle Klasse, welche die für die Validierung notwendigen Elemente aufnimmt und das ist genau das, was wir automatisch auf Basis des Datenmodells der Access-Datenbank erledigen wollen.<\/p>\n
Die übrigen Schritte, die im oben genannten Artikel beschrieben werden, beziehen sich auf die Änderungen, die per XAML für die Benutzeroberfläche umgesetzt werden müssen.<\/p>\n
Benötigter Code für die partielle Klasse mit der Validierung<\/b><\/p>\n
Die partiellen Klassen, welche den Code für die Validierung enthalten, wollen wir wie gesagt in jeweils einer eigenen Klassendatei unterbringen, die in einem Unterverzeichnis namens Validation <\/b>liegen. Eine solche Klasse soll wie folgt aussehen und zunächst den Namespace importieren, der die benötigte Schnittstelle enthält:<\/p>\n Dann folgt die Klasse, welche die Schnittstelle IDataErrorInfo <\/b>implementiert:<\/p>\n Die Implementierung besteht aus zwei öffentlichen Eigenschaften, von denen uns nur die erste interessiert – die zweite muss aber dennoch implementiert werden. Die erste sieht wie folgt aus:<\/p>\n Die Methode erwartet den Namen der zu untersuchenden Eigenschaft als Parameter und unterscheidet diese in einer Select Case<\/b>-Bedingung. Hier prüft sie die Bedingung und trägt dann die Validierungsmeldung in die Variable strErrorMessage ein, die dann auch zurückgegeben wird.<\/p>\n Den Rest der Schnittstelle fügen wir wie folgt an:<\/p>\n Nun benötigen wir eine VBA-Prozedur analog zu der im Artikel Access zu EDM: Dateien erstellen <\/b>(www.datenbankentwickler.net\/219<\/b>), die uns diesen Code auf Basis des Datenmodells erstellt. Da wir in den dort vorgestellten Prozeduren und Funktionen schon sehr viele der auch für die Erstellung der Validierungsklassen benötigten Informationen zusammentragen, werden wir diese nochmals erweitern. Das geschieht so, dass die ermittelten Informationen genutzt werden, in weiteren Variablen die Inhalte der Validierungsklassen zusammenzustellen, die wir dann von der Hauptprozedur aus in die Validierungsdateien in einem neuen Verzeichnis namens Validation <\/b>ausgeben.<\/p>\n Die Prozedur EDMDateienErstellen<\/b> erweitern wir dazu zunächst wieder um einen Parameter, diesmal namens bolValidation<\/b>:<\/p>\n Außerdem fügen wir die folgende Variable hinzu:<\/p>\n Die Variable strValidation <\/b>übergeben wir als neuen Parameter beim Aufruf der Funktion EntityDataModelZusammenstellen<\/b>:<\/p>\n Die fertigen partiellen Klassen mit dem Validierungscode landen dann in der Array-Variablen strValidation<\/b>.<\/p>\n Weiter unten prüfen wir dann, ob bolValidation <\/b>den Wert True <\/b>hat. In diesem Fall erstellen wir ein neues Unterverzeichnis namens Validation <\/b>und fügen dort in einer Schleife die von der Funktion EntityDataModelZusammenstellen <\/b>gelieferten und im Array strValidation(i) <\/b>gespeicherten Klassen in jeweils eine Datei im soeben erstellten Verzeichnis:<\/p>\n Die größte Arbeit übernimmt wieder die Funktion EntityDataModelZusammenstellen<\/b>. Sie nimmt die neuen Parameter strValidation <\/b>und bolValidation <\/b>entgegen, von denen letztere entscheidet, ob eine Validierung erfolgen soll. Außerdem benötigen wir einige neue Variablen:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>Imports System.ComponentModel<\/pre>\n
Partial Public Class Kunde\r\n Implements IDataErrorInfo<\/pre>\n
Default Public ReadOnly Property Item(columnName As String<\/span>) As String<\/span> Implements IDataErrorInfo.Item\r\n Get\r\n Dim <\/span>strErrorMessage As String<\/span> = \"\"\r\n Select Case columnName\r\n Case <\/span>\"Vorname\"\r\n If <\/span>(String.IsNullOrEmpty(Vorname)) Then<\/span>\r\n strErrorMessage = \"Bitte geben Sie einen Vornamen ein.\"\r\n End If<\/span>\r\n ...\r\n End Select<\/span>\r\n Return strErrorMessage\r\n End Get\r\n End Property<\/pre>\n Public <\/span>ReadOnly Property [Error] As String<\/span> Implements IDataErrorInfo.Error\r\n Get\r\n Throw New<\/span> NotImplementedException()\r\n End Get\r\n End Property\r\nEnd Class<\/span><\/pre>\nPublic Sub <\/span>EDMDateienErstellen(bolEineDatei As Boolean<\/span>, strContextname As String<\/span>, strUnterverzeichnisEntities _\r\n As String<\/span>, Optional<\/span> bolINotifyPropertyChanged As Boolean<\/span>, Optional<\/span> bolValidation As Boolean<\/span>)<\/pre>\n Dim <\/span>strValidation() As String<\/span><\/pre>\n ...\r\n Set<\/span> colMappings = EntityDataModelZusammenstellen(strDBSets, strEntities, strEntityNames, strValidation, _\r\n bolINotifyPropertyChanged, bolValidation)\r\n ...<\/pre>\n ...\r\n If <\/span>bolValidation = True<\/span> Then<\/span>\r\n MakeDirectory strBasispfad & \"\\Validation\"\r\n For i = LBound<\/span>(strEntities) To UBound<\/span>(strEntities)\r\n TextdateiErstellen strBasispfad & \"\\Validation\\\" & strEntityNames(i) & \"_Validation.vb\", strValidation(i)\r\n Next<\/span> i\r\n End If<\/span>\r\nEnd Sub<\/span><\/pre>\nPublic Function <\/span>EntityDataModelZusammenstellen(strDBSets As String<\/span>, strEntities() As String<\/span>, _\r\n strEntityNames() As String<\/span>, Optional<\/span> strValidation As Variant<\/span>, Optional<\/span> bolINotifyPropertyChanged As Boolean<\/span>, _\r\n Optional<\/span> bolValidation As Boolean<\/span>) As <\/span>Collection\r\n ...\r\n Dim <\/span>strObject As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>strValidationBase As String<\/span>\r\n Dim <\/span>strValidationCode() As String<\/span><\/pre>\n
\nHier geht es zur Bestellung des Jahresabonnements des Magazins Visual Basic Entwickler<\/strong>:<\/span>
\nZur Bestellung ...<\/a><\/span>
\nDanach greifen Sie sofort auf alle rund 200 Artikel<\/strong> unseres Angebots zu - auch auf diesen hier!<\/span>
\nOder haben Sie bereits Zugangsdaten? Dann loggen Sie sich gleich hier ein:<\/span><\/p>\n<\/div>\n\n\t\n\t