![\"Neues](\"..\/fileadmin\/_temp_\/2020_02\/pic_219_001.png\")
<\/p>\nIn vorangegangenen Artikeln haben wir Prozeduren erstellt, mit denen wir das Datenmodell einer Access-Datenbank einlesen und daraus ein Entity Data Model erstellen können. Zusätzlich haben wir auch noch die enthaltenen Daten ausgelesen und Code erzeugt, mit denen eine auf Basis des Entity Data Models erstellte SQL Server-Datenbank gefüllt werden kann. In diesem Artikel wollen wir einen Schritt weitergehen: Bisher haben wir den Code in die Zwischenablage kopiert, sodass der Benutzer diesen noch in die entsprechenden Module des Visual Studio-Projekts kopieren musste. Nun wollen wir direkt die passenden Module als Dateien erstellen, die nur noch in das Projekt gezogen werden müssen.<\/b><\/p>\n
Die Artikel, in denen wir das Erstellen des Entity Data Models auf Basis des Datenmodells einer Access-Datenbank beschrieben haben, heißen Von Access zu Entity Framework: Datenmodell <\/b>(www.datenbankentwickler.net\/148<\/b>), Von Access zu Entity Framework: Daten <\/b>(www.datenbankentwickler.net\/1<\/b>) und Von Access zu Entity Framework: Update 1 <\/b>(www.datenbankentwickler.net\/164<\/b>).<\/p>\n
Die hier beschriebenen Prozeduren im VBA-Projekt einer Access-Datenbank lesen die Struktur des Datenmodells der Datenbank aus, die migriert werden soll, und schreibt die ermittelten Codezeilen in die Zwischenablage. Von dort aus sollen diese dann in die betroffenen Zielmodule des Visual Studio-Projekts eingefügt werden. Das ist noch etwas unkomfortabel, sodass wir die Lösung upgraden wollen – und zwar so, dass wir im Verzeichnis der Access-Datenbank neue Dateien und Verzeichnisse erhalten, die wir direkt in den Projektmappen-Explorer von Visual Studio ziehen können.<\/p>\n
Wie soll die Lösung aussehen<\/b><\/p>\n
Der Ausgangspunkt ist wieder, dass Sie in dem Projekt mit dem zu erstellenden Entity Data Model ein neues Element des Typs ADO.NET Entity Data Model <\/b>hinzufügen (siehe Bild 1). Hier geben Sie direkt die Bezeichnung der Context-Klasse an, die wir später beim Zugriff über das Entity Data Model auf die in der Datenbank gespeicherten Daten verwenden werden – in diesem Fall RechnungsverwaltungContext<\/b>.<\/p>\n
<\/p>\n
Bild 1: Neues ADO.NET Entity Data Model-Element hinzufügen<\/span><\/b><\/p>\n Im nächsten Schritt wählen wir dann den Eintrag Leeres Code First-Modell <\/b>aus (siehe Bild 2). Damit erscheint im Projektmappen-Explorer zunächst ein neues Element mit dem Namen, den wir dem neuen ADO.NET Entity Data Model<\/b>-Element zugewiesen haben.<\/p>\n Bild 2: Die Wahl fällt auf Leeres Code First-Modell.<\/span><\/b><\/p>\n Für die Erstellung des Entity Data Models auf Basis des Datenmodells einer Access-Datenbank merken wir uns diese Bezeichnung.<\/p>\n Die Erstellung erfolgt dann durch einen einmaligen Aufruf einer Prozedur namens EDMDateienErstellen<\/b>. Diese erwartet drei Parameter:<\/p>\n Ein Beispielaufruf sieht etwa wie folgt aus:<\/p>\n Das Ergebnis finden Sie in Bild 3. Die Datei RechnungsverwaltungContext.vb <\/b>enthält die Anweisungen, die Sie auch in der vom Assistenten erstellten gleichnamigen Datei vorfinden – erweitert um die Definition der DbSet<\/b>-Auflistungen wie zum Beispiel die folgende:<\/p>\n Bild 3: Ergebnis nach dem Aufruf der Prozedur EDMDateienErstellen<\/span><\/b><\/p>\n Das Verzeichnis DataModel<\/b> enthält die Dateien aus Bild 4. Jede dieser Dateien enthält die Definition einer Entität des Entity Data Models. Die für die Tabelle tblAnreden<\/b> sieht etwa wie folgt aus:<\/p>\n Bild 4: Inhalt des Unterverzeichnisses DataModel<\/span><\/b><\/p>\n Das Ergebnis entspricht also inhaltlich dem aus den in den weiter oben referenzierten Artikeln beschriebenen Prozeduren – mit dem Unterschied, dass diese nun direkt in einem handlichen Verzeichnis liegen. Auf die gleiche Weise werden auch die übrigen Entitätsklassen in jeweils einer Datei in das Verzeichnis kopiert.<\/p>\n Dateien zum Projekt hinzufügen<\/b><\/p>\n Nun folgt der wichtigste Schritt: Wir wollen die Dateien, die wir soeben erstellt haben, zum Projekt hinzufügen. Dazu öffnen Sie das neu erstellte Verzeichnis, dass die Unterverzeichnisse DataModel <\/b>und Migrations <\/b>sowie die Datei RechnungsverwaltungContext.vb <\/b>enthält und markieren die enthaltenen Elemente. Diese ziehen Sie dann in den Projektmappen-Explorer auf das Projekt-Element. Der Projektmappen-Explorer sieht danach wie in Bild 5 aus.<\/p>\n Bild 5: Neue Elemente im Projektmappen-Explorer<\/span><\/b><\/p>\n Da der Ordner Migrations <\/b>bereits vorhanden ist, brauchen Sie in der Paket-Manager-Konsole nun nur noch zwei der sonst üblichen drei Anweisungen auszuführen, damit die Anweisungen zum Erstellen der Datenbank hinzugefügt und die Datenbank erstellt wird. Die Anweisung enable-migrations <\/b>entfällt beziehungsweise ihr Aufruf liefert nur den Hinweis, dass die Migrationen für dieses Projekt bereits aktiviert wurden.<\/p>\n Die verbleibenden Anweisungen lauten:<\/p>\n Erstere stellt die Methoden zusammen, mit denen die Datenbank gefüllt werden soll, letztere ruft diese auf und erstellt so die Datenbank.<\/p>\n Damit erhalten wir dann die Datenbank aus Bild 6.<\/p>\n Bild 6: Die angelegte Datenbank<\/span><\/b><\/p>\n Programmierung der Prozeduren zum Erstellen der Klassen<\/b><\/p>\n Die Hauptprozedur heißt EDMDateienErstellen <\/b>und erwartet die bereits weiter oben beschriebenen Parameter. Außerdem verwendet sie einige Variablen, die wie folgt deklariert werden:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>![\"Die](\"..\/fileadmin\/_temp_\/2020_02\/pic_219_002.png\")
<\/p>\n\n
EDMDateienErstellen False, \"RechnungsverwaltungContext\", \"DataModel\"<\/pre>\n
![\"Ergebnis](\"..\/fileadmin\/_temp_\/2020_02\/pic_219_003.png\")
<\/p>\nPublic <\/span>Overridable Property Anreden() As <\/span>DbSet(Of Anrede)<\/pre>\n![\"Inhalt](\"..\/fileadmin\/_temp_\/2020_02\/pic_219_004.png\")
<\/p>\nImports System.ComponentModel.DataAnnotations\r\nImports System.ComponentModel.DataAnnotations.Schema\r\n<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>\n![\"Neue](\"..\/fileadmin\/_temp_\/2020_02\/pic_219_005.png\")
<\/p>\nadd-migration init\r\nupdate-database<\/pre>\n
![\"Die](\"..\/fileadmin\/_temp_\/2020_02\/pic_219_006.png\")
<\/p>\nPublic Sub <\/span>EDMDateienErstellen(bolEineDatei As Boolean<\/span>, strContextname As String<\/span>, strUnterverzeichnisEntities As String<\/span>)\r\n Dim <\/span>strDBSets As String<\/span>\r\n Dim <\/span>strEntities() As String<\/span>\r\n Dim <\/span>strEntityNames() As String<\/span>\r\n Dim <\/span>strAllEntities As String<\/span>\r\n Dim <\/span>strContextklasse As String<\/span>\r\n Dim <\/span>strNamespacesEntity As String<\/span>\r\n Dim <\/span>colMappings As <\/span>Collection\r\n Dim <\/span>objMapping As <\/span>clsMapping\r\n Dim <\/span>strSeed As String<\/span>\r\n Dim <\/span>strAddOrUpdate As String<\/span>\r\n Dim <\/span>i As Integer<\/span>\r\n Dim <\/span>strBasispfad 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