![\"Fehler](\"..\/fileadmin\/_temp_\/2019_01\/pic_164_001.png\")
<\/p>\n<\/p>\n
Bild 1: Fehler bei Verwendung gleicher Variablennamen für Objekte und Collections<\/span><\/b><\/p>\n In Ausgabe 5\/2018 haben wir in zwei Artikeln gezeigt, wie Sie das Datenmodell und die Daten einer Access-Datenbank in ein Entity Data Model und darüber in eine SQL Server-Datenbank migrieren. Im vorliegenden Artikel finden Sie eine Optimierung der dort beschriebenen Prozeduren. Im Detail geht es darum, dass in Access-Tabellen manchmal Namen in Tabellen verwendet werden, die gleichzeitig Plural und Singular der enthaltenen Entität sind – wie zum Beispiel bei tblArtikel. Das führt bei unserer automatisierten Migration früher oder später zu Problemen. Daher erweitern wir unsere Prozeduren um die notwendigen Unterscheidungen.<\/b><\/p>\n Im Artikel Access zu WPF: Detailformulare mit Textfeldern <\/b>aus der aktuellen Ausgabe beispielsweise erstellen wir das Code behind-Modul für eine WPF-Detailansicht der Einträge der Tabelle tblKunden<\/b> beziehungsweise der Collection Kunden <\/b>und der Klasse Kunde<\/b>. Hier gelingt alles reibungslos, da wir beim Migrieren der Tabellen der Access-Tabelle in die DbSet<\/b>-Definition und die Klassendefinition mit Kunde <\/b>und Kunden <\/b>entsprechende unterschiedliche Bezeichnungen verwenden konnten. Wenn wir die dort erarbeiteten Prozeduren nutzen wollen, um eine Detailansicht auf Basis eines Formulars zu erstellen, dass die Tabelle tblArtikel <\/b>als Datensatzquelle verwendet, gelingt das nicht problemlos, da beim Migrieren des Datenmodells in das Data Entity Model aus tblArtikel <\/b>sowohl das DbSet<\/b>-Element Artikel <\/b>als auch die Klasse Artikel <\/b>generiert wurden. Das führt noch nicht zu Fehlern, aber wenn wir dann mit der Prozedur FormularNachWPF_CodeBehind <\/b>die Code behind-Klasse erzeugen und dort einfügen, erhalten wir eine Reihe von Fehlermeldungen (siehe Bild 1).<\/p>\n Bild 1: Fehler bei Verwendung gleicher Variablennamen für Objekte und Collections<\/span><\/b><\/p>\n Wie können wir das Problem lösen Eine Möglichkeit wäre, die Bezeichnungen im Code etwa der Code behind-Klasse so anzupassen, dass die verschiedenen mehrfach vorkommenden Variablen und Eigenschaftsbezeichnungen eindeutige Namen erhalten. Noch schöner wäre es allerdings, wenn wir direkt, wie auch beim Beispiel der Tabelle tblKunden<\/b>, eindeutige Namen für die Klasse und die DbSet<\/b>-Elemente hätten – in diesem Fall auch der besseren Lesbarkeit halber als Singular und Plural.<\/p>\n Und hier wollen wir ansetzen, indem wir die Prozedur EDMErstellen <\/b>des Moduls mdlEDM <\/b>aus dem Artikel Von Access zu Entity Framework: Datenmodell <\/b>entsprechend anpassen. Das sieht dann ausschnittsweise wie folgt aus:<\/p>\n Nachdem wir die Bezeichnungen für die einzelne Entität und die Mehrzahl ermittelt und in strEntity <\/b>und strEntities <\/b>gespeichert haben, vergleichen wir diese in einer If…Then<\/b>-Bedingung. Sind beide gleich, steigen wir in eine Do While<\/b>-Schleifen ein. Diese zeigt zunächst eine Meldung wie in Bild 2 an.<\/p>\n Bild 2: Meldung bei Gleichheit von Singular und Plural<\/span><\/b><\/p>\n Nach dieser Erklärung folgen zwei InputBox<\/b>-Anweisungen, mit denen die Prozedur die Singular- und die Plural-Version für die zu erstellenden Klassen und DbSet<\/b>-Elemente abfragt. Sind die beiden Werte von strEntity <\/b>und strEntities <\/b>nach dem Durchlauf der Do While<\/b>-Schleife nicht mehr gleich, wird diese verlassen und die Prozedur erstellt die Klasse und die DbSet<\/b>-Definition mit den neuen Namen.<\/p>\n Wenn wir die Prozedur nun aufrufen und die erstellten und in die Zwischenablage kopierten Code-Strukturen in das Projekt einfügen, finden wir allerdings noch einen kleinen Syntaxfehler vor: Das Fremdschlüsselfeld ArtikelID <\/b>der Tabelle tblArtikel <\/b>wird noch nicht entsprechend der neuen Benennung der Artikel<\/b>-Entitäten umbenannt. Das Feld sollte nun ProduktID <\/b>statt ArtikelID <\/b>heißen und die Eigenschaft, die das Artikel<\/b>-Objekt aufnimmt, sollte das Produkt<\/b>-Objekt aufnehmen (siehe Bild 3).<\/p>\n Bild 3: Artikel muss noch durch Produkt ersetzt werden.<\/span><\/b><\/p>\n Da wir in der Prozedur alle Tabellen in willkürlicher Reihenfolge durchlaufen, kann es sein, dass wir die Tabelle tblArtikel <\/b>erst nach der Tabelle tblBestelldetails <\/b>durchlaufen. Wir erfahren aber erst beim Durchlaufen der Tabelle tblArtikel<\/b>, dass hier eine Umbenennung notwendig ist, die sich auch schon auf Felder der Tabelle tblBestelldetails <\/b>auswirkt. Wir müssen also eine Schleife einbauen, die schon vorher prüft, ob Ersetzungen bei Tabellennamen notwendig sind, weil dieser gleichzeitig Plural und Singular ist und dann später beim zweiten Durchlauf und beim Zusammenstellen des Codes für die Entitäten und DbSet<\/b>-Elemente auf die hier gewonnenen Informationen zurückgreifen.<\/p>\n Dazu sind einige umfangreichere Umstellungen nötig. Diese beruhen im Wesentlichen darauf, dass wir die TableDef<\/b>-Objekte nicht mehr einfach in einer Schleife durchlaufen und dabei die Definitionen aller Entitäten zusammenstellen können – aus dem obigen Grund müssen wir erst einmal alle Tabellen dahingehend analysieren, ob sie Entitätsnamen hervorbringen würden, die gleichzeitig Plural und Singular sind. Also durchlaufen wir zunächst in einer Schleife alle TableDef<\/b>-Objekte und tragen die relevanten Informationen jeweils in eine Klasse ein, die entsprechende Eigenschaften aufnimmt. Die neue Klasse legen Sie im VBA-Editor mit dem Menübefehl Einfügen|Klassenmodul <\/b>an und speichern diese unter dem Namen clsMapping<\/b>. Die folgenden privaten Variablen speichern die Werte:<\/p>\n Für jeden dieser Werte gibt es je eine Property Get<\/b>– und eine Property Let<\/b>-Methode, die wie folgt aussehen – hier stellvertretend für die Eigenschaft Tabelle<\/b>:<\/p>\n Wir erstellen für jedes TableDef<\/b>-Objekt eine dieser Klassen und speichern diese in einer Collection <\/b>namens colMappings<\/b>, die wir wie folgt deklarieren und mit dem Schlüsselwort New <\/b>erstellen:<\/p>\n Dann beginnen wir, die TableDefs <\/b>zu durchlaufen. Dabei prüfen wir wieder, ob der Tabellenname nicht mit MSys <\/b>oder ~ <\/b>beginnt. Dann prüfen wir, ob die Tabelle einen Primärschlüssel aufweist. Falls nicht, landet ein entsprechender Kommentar in unserem in strCode <\/b>zusammengestellten Code für das VB-Projekt:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span><\/p>\nErstellung des Entity Data Models anpassen<\/h2>\n
Public Sub <\/span>EDMErstellen()\r\n ...\r\n For Each tdf In db.TableDefs\r\n If <\/span>Not<\/span> Left<\/span>(tdf.Name, 4) = \"MSys\" Then<\/span>\r\n strPK = \"\"\r\n If <\/span>Not<\/span> GetPrimaryKey(tdf.Name, strPK) Then<\/span>\r\n ...\r\n Else<\/span>\r\n strEntity = Replace<\/span>(strPK, \"ID\", \"\")\r\n strEntities = Replace<\/span>(tdf.Name, \"tbl\", \"\")\r\n If <\/span>strEntity = strEntities Then<\/span>\r\n Do While<\/span> strEntity = strEntities\r\n MsgBox<\/span> \"Plural und Singular der Bezeichnung der Entitäten (hier \"\"\" & strEntity _\r\n & \"\"\") im Tabellennamen scheinen gleich zu sein.\" & vbCrLf<\/span> & vbCrLf<\/span> & \"Geben Sie \" _\r\n & \"nachfolgend eine Bezeichnung für den Singular der Entität ein und eine für den Plural.\"\r\n strEntity = InputBox(\"Bezeichnung für den Singular\/den Klassennamen der Entität \"\"\" _\r\n & strEntity & \"\"\":\", \"Singular bestimmen\", strEntity)\r\n strEntities = InputBox(\"Bezeichnung für den Plural\/den Namen der Auflistung der Entität \"\"\" _\r\n & strEntities & \"\"\":\", \"Plural bestimmen\", strEntities)\r\n Loop<\/span>\r\n End If<\/span>\r\n ...\r\n End If<\/span>\r\n End If<\/span>\r\n Next<\/span> tdf\r\n ...\r\nEnd Sub<\/span><\/pre>\n![\"Meldung](\"..\/fileadmin\/_temp_\/2019_01\/pic_164_002.png\")
<\/p>\n![\"Artikel](\"..\/fileadmin\/_temp_\/2019_01\/pic_164_003.png\")
<\/p>\nPrivate <\/span>m_Tabelle As String<\/span>\r\nPrivate <\/span>m_PK As String<\/span>\r\nPrivate <\/span>m_Entity As String<\/span>\r\nPrivate <\/span>m_Entities As String<\/span>\r\nPrivate <\/span>m_ID As String<\/span>\r\nPrivate <\/span>m_Entity_Original As String<\/span>\r\nPrivate <\/span>m_Entities_Original As String<\/span><\/pre>\nPublic Property Get <\/span>Tabelle() As String<\/span>\r\n Tabelle = m_Tabelle\r\nEnd Property<\/span>\r\nPublic Property Let <\/span>Tabelle(str As String<\/span>)\r\n m_Tabelle = str\r\nEnd Property<\/span><\/pre>\nPublic Sub <\/span>EDMErstellen()\r\n Dim <\/span>db As <\/span>DAO.Database, tdf As <\/span>DAO.TableDef, fld As <\/span>DAO.Field\r\n Dim <\/span>strDbSets As String<\/span>, strPK As String<\/span>, strDatatype As String<\/span>\r\n Dim <\/span>bolArray As Boolean<\/span>, bolDatatypeExists As Boolean<\/span>\r\n Dim <\/span>strArray As String<\/span>, strFieldname As String<\/span>, strUntertyp As String<\/span>\r\n Dim <\/span>strIndex As String<\/span>, strCode As String<\/span>, colMappings As <\/span>Collection\r\n Dim <\/span>objMapping As <\/span>clsMapping\r\n Dim <\/span>objMappingFK As <\/span>clsMapping\r\n Set<\/span> db = CurrentDb\r\n Set<\/span> colMappings = New<\/span> Collection<\/pre>\n For Each tdf In db.TableDefs\r\n If <\/span>Not<\/span> Left<\/span>(tdf.Name, 4) = \"MSys\" And Not<\/span> Left<\/span>(tdf.Name, 1) = \"~\" Then<\/span>\r\n If <\/span>Not<\/span> GetPrimaryKey(tdf.Name, strPK) Then<\/span>\r\n strCode = strCode & \" ''****\" & vbCrLf<\/span>\r\n strCode = strCode & \" ''Mehrere PKs in \" & tdf.Name & \". Die Klasse wird nicht erstellt.\" & vbCrLf<\/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