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. Das Entity Data Model enthält nur die reinen Eigenschaften, welche die Felder der jeweiligen Tabellen repräsentieren. Manchmal benötigen Sie allerdings mehr als nur diese Eigenschaften – dann soll zum Beispiel die Schnittstelle INotifyPropertyChanged in der Entitätsklasse implementiert sein, um Änderungen in den Eigenschaften schnell in die Anzeige der Daten übermitteln zu können. Wie Sie die Access-Prozedur zum Erstellen des Entity Data Models entsprechend erweitern, zeigen wir Ihnen in diesem Artikel.<\/b><\/p>\n
Unsere Entitätsklassen, die wir mit der Prozedur EDMDateienErstellen <\/b>erzeugen, bestehen nur aus den reinen Feldern samt Attributen:<\/p>\n Für die Implementierung der INotifyPropertyChanged<\/b>-Schnittstelle sind einige Erweiterungen notwendig, die wir in den folgenden Abschnitten hinzufügen.<\/p>\n Namespace hinzufügen<\/b><\/p>\n Um von der Form der Entitätsklasse, wie wir sie in der bisher verwendeten Prozedur erstellt haben, zu einer Form mit Implementierung der Schnittstelle IPropertyNotifyChanged <\/b>zu gelangen, müssen wir einige Elemente zur Entitätsklasse hinzufügen. Das erste ist der Namespace, in der diese Schnittstelle definiert wird. Dazu passen wir die Funktion NamespacesFuerEntitaeten <\/b>an, indem wir dieser einen Parameter namens bolINotifyPropertyChanged<\/b> hinzufügen. Diesen werten wir in der Funktion aus und fügen, wenn diese den Wert True<\/b> hat, noch die folgende Zeile hinzu:<\/p>\n In der Funktion sieht das wie folgt aus:<\/p>\n Implements-Anweisung hinzufügen<\/b><\/p>\n Als Nächstes wollen wir der Entitätsklasse die Implements<\/b>-Anweisung hinzufügen, mit der wir festlegen, dass die Klasse die Schnittstelle INotifyPropertyChanged <\/b>implementiert. Dieser Teil erfolgt in der Funktion EntityDataModelZusammenstellen<\/b>, die wir von der Hauptprozedur EDMDateienErstellen <\/b>aus aufrufen. Dazu fügen wir dem Aufruf die Übergabe des Parameters bolINotifyPropertyChanged <\/b>hinzu:<\/p>\n In der Funktion EntityDataModelZusammenstellen <\/b>nehmen wir diesen Parameter im Funktionskopf entgegen und prüfen dann wieder per If…Then<\/b>-Bedingung, ob bolINotifyPropertyChanged <\/b>den Wert True <\/b>hat. In diesem Fall fügen wir der Definition der Klasse in der Variablen strEntities(i) <\/b>die Zeile Implements INotifyPropertyChanged <\/b>hinzu:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><Table(\"Anreden\")>\r\nPublic <\/span>Partial Class Anrede\r\n Public <\/span>Property ID As <\/span>System.Int32\r\n <Index(IsUnique:=true)>\r\n <StringLength(255)>\r\n <Required>\r\n Public <\/span>Property Name As <\/span>System.String\r\nEnd Class<\/span><\/pre>\nImports System.ComponentModel<\/pre>\n
Public Function <\/span>NamespacesFuerEntitaetenZusammenstellen(Optional<\/span> bolINotifyPropertyChanged As Boolean<\/span>) As String<\/span>\r\n Dim <\/span>strNamespaces As String<\/span>\r\n If <\/span>bolINotifyPropertyChanged Then<\/span>\r\n strNamespaces = strNamespaces & \"Imports System.ComponentModel\" & vbCrLf<\/span>\r\n End If<\/span>\r\n ...\r\n NamespacesFuerEntitaetenZusammenstellen = strNamespaces\r\nEnd Function<\/span><\/pre>\nPublic Sub <\/span>EDMDateienErstellen(bolEineDatei As Boolean<\/span>, strContextname As String<\/span>, _\r\n strUnterverzeichnisEntities As String<\/span>, Optional<\/span> bolINotifyPropertyChanged As Boolean<\/span>)\r\n ...\r\n Set<\/span> colMappings = EntityDataModelZusammenstellen(strDBSets, strEntities, strEntityNames, bolINotifyPropertyChanged)\r\n ...\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> bolINotifyPropertyChanged As Boolean<\/span>) As <\/span>Collection\r\n ...\r\n For Each objMapping In colMappings\r\n With<\/span> objMapping\r\n ...\r\n strEntities(i) = \"<Table(\"\"\" & .Entities & \"\"\")>\" & vbCrLf<\/span>\r\n strEntities(i) = strEntities(i) & \"Public Partial Class \" & .Entity & vbCrLf<\/span>\r\n If <\/span>bolINotifyPropertyChanged Then<\/span>\r\n If <\/span>bolINotifyPropertyChanged Then<\/span>\r\n strEntities(i) = strEntities(i) & \" Implements INotifyPropertyChanged\" & vbCrLf<\/span>\r\n strEntities(i) = strEntities(i) & vbCrLf<\/span>\r\n strEntities(i) = strEntities(i) & \" Public Event PropertyChanged As <\/span>PropertyChangedEventHandler \" _\r\n & \"Implements INotifyPropertyChanged.PropertyChanged\" & vbCrLf<\/span>\r\n strEntities(i) = strEntities(i) & vbCrLf<\/span>\r\n strEntities(i) = strEntities(i) & \" Protected Overridable Sub OnPropertyChanged(propname As String<\/span>)\" _\r\n & vbCrLf<\/span>\r\n strEntities(i) = strEntities(i) _\r\n & \" RaiseEvent PropertyChanged(Me, New<\/span> PropertyChangedEventArgs(propname))\" & vbCrLf<\/span>\r\n strEntities(i) = strEntities(i) & \" End Sub\" & vbCrLf<\/span>\r\n strEntities(i) = strEntities(i) & vbCrLf<\/span>\r\n End If<\/span>\r\n ...\r\nEnd Function<\/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