Das Ergebnis finden Sie in Bild 1 vor.<\/p>\n
![\"Aktivieren](\"..\/fileadmin\/_temp_\/2018_01\/pic_121_009.png\")
<\/p>\n
Bild 1: Aktivieren der Migrationsfunktion<\/span><\/b><\/p>\n Im Projekt haben sich nun einige Änderungen ergeben, die Sie direkt im Projektmappen-Explorer ablesen können. Dort finden Sie nun nämlich einen neuen Ordner namens Migrations (siehe Bild 2). Dieser enthält eine Datei namens Configuration.vb.<\/p>\n Bild 2: Die neue Konfigurationsdatei<\/span><\/b><\/p>\n Diese Datei enthält vor allem die Seed-Methode. Dieser können Sie Anweisungen zum Schreiben von Daten in die Tabellen der Datenbank hinzufügen. Die Seed-Methode wird später beim Update des Datenbank-Backends ausgelöst. Deshalb fügen wir beispielsweise die folgenden Codezeilen zu dieser Methode in der Klasse Configuration.vb hinzu:<\/p>\n Damit wollen wir sicherstellen, dass zumindest die grundlegenden Daten der Anwendung, nämlich die Anreden, bereits in die Tabelle Anreden <\/b>geschrieben werden – hier also die Datensätze mit den Werten Herr<\/b>, Frau <\/b>und Firma <\/b>im Feld Bezeichnung<\/b>.<\/p>\n Anschließend geben Sie einen weiteren Befehl in den Bereich Paket-Manager-Konsole <\/b>ein (siehe Bild 3):<\/p>\n Bild 3: Initiale Migration<\/span><\/b><\/p>\n Dadurch wird eine weitere Datei zum Ordner Migrations <\/b>hinzugefügt, diesmal nach dem Schema 201802121707380_Initial.vb<\/b>. Diese Klasse enthält eine Methode namens Up<\/b>, die drei CreateTable<\/b>-Anweisungen enthält, mit denen die Tabellen entsprechend der Entitäten Anrede<\/b>, Adresse <\/b>und Brief <\/b>erstellt werden – hier in gekürzter Form nur mit den Anweisungen für die Tabelle Anreden<\/b>:<\/p>\n Zusätzlich enthält die Klasse noch eine Methode namens Down<\/b>, welche die bestehenden Schlüssel, Indizes und Tabellen löscht:<\/p>\n Außerdem setzen Sie im gleichen Bereich noch den folgenden Befehl ab:<\/p>\n Damit rufen Sie zunächst die Methoden der Klasse 201802121707380_Initial.vb <\/b>auf, welche die Datenbank und das Datenmodell anlegt, wenn diese noch nicht vorhanden ist, und dann mit der Seed<\/b>-Methode die initialen Daten in die Tabelle Anreden <\/b>schreibt.<\/p>\n Nun nehmen wir eine kleine Änderung am Datenmodell vor. Wohlgemerkt: Die aktuelle Version, die durch die Datei 201802121707380_Initial.vb <\/b>beschrieben wird, haben wir durch die Update-Database<\/b>-Methode in der Paket-Manager-Konsole <\/b>bereits angewendet und damit eine neue Datenbank erzeugt. Nun fügen wir der Entität Anreden <\/b>eine Eigenschaft namens Briefanrede <\/b>hinzu:<\/p>\n Nun rufen wir wieder eine neue Anweisung in der Paket-Manager-Konsole <\/b>auf:<\/p>\n Dies erstellt eine neue VB-Klasse namens 201802121730445_add_Anrede_Briefanrede.vb<\/b>, welche die Änderungen im Datenmodell seit der letzten Änderung enthält, und die wieder in Form der beiden Methoden Up <\/b>und Down <\/b>eingetragen werden. Das sieht dann so aus:<\/p>\n Möchten Sie weiterlesen? Dann lösen Sie Ihr Ticket!<\/span>![\"Die](\"..\/fileadmin\/_temp_\/2018_01\/pic_121_010.png\")
<\/p>\nNamespace Migrations\r\n Friend NotInheritable Class Configuration \r\n Inherits DbMigrationsConfiguration(Of Wordgenerator)\r\n Public <\/span>Sub New()\r\n AutomaticMigrationsEnabled = False<\/span>\r\n ContextKey = \"CodeFirst.Wordgenerator\"\r\n End Sub\r\n Protected Overrides Sub Seed(context As <\/span>Wordgenerator)\r\n Dim <\/span>anrede As <\/span>New<\/span> Anrede With<\/span> {.Bezeichnung = \"Herr\"}\r\n context.Anreden.AddOrUpdate(Function(p) p.Bezeichnung, anrede)\r\n anrede = New<\/span> Anrede With<\/span> {.Bezeichnung = \"Frau\"}\r\n context.Anreden.AddOrUpdate(Function(p) p.Bezeichnung, anrede)\r\n anrede = New<\/span> Anrede With<\/span> {.Bezeichnung = \"Firma\"}\r\n context.Anreden.AddOrUpdate(Function(p) p.Bezeichnung, anrede)\r\n End Sub\r\n End Class\r\nEnd Namespace<\/pre>\n![\"Initiale](\"..\/fileadmin\/_temp_\/2018_01\/pic_121_011.png\")
<\/p>\nPM> Add-Migration Initial<\/pre>\n
Public <\/span>Overrides Sub Up()\r\n ...\r\n CreateTable(\r\n \"dbo.Anreden\",\r\n Function(c) New<\/span> With<\/span>\r\n {\r\n .ID = c.Int(nullable := False, identity := True<\/span>),\r\n .Bezeichnung = c.String()\r\n }) _\r\n .PrimaryKey(Function(t) t.ID)\r\n ...\r\nEnd Sub<\/span><\/pre>\nPublic <\/span>Overrides Sub Down()\r\n DropForeignKey(\"dbo.Briefe\", \"Adresse_ID\", \"dbo.Adressen\")\r\n DropForeignKey(\"dbo.Adressen\", \"Anrede_ID\", \"dbo.Anreden\")\r\n DropIndex(\"dbo.Briefe\", New<\/span> String() { \"Adresse_ID\" })\r\n DropIndex(\"dbo.Adressen\", New<\/span> String() { \"Anrede_ID\" })\r\n DropTable(\"dbo.Briefe\")\r\n DropTable(\"dbo.Anreden\")\r\n DropTable(\"dbo.Adressen\")\r\nEnd Sub<\/span><\/pre>\nPM> Update-Database<\/pre>\n
Änderungen am Datenmodell<\/h2>\n
<Table(\"Anreden\")>\r\nPublic Class<\/span> Anrede\r\n Public <\/span>Property ID As Integer<\/span>\r\n Public <\/span>Property Bezeichnung As String<\/span>\r\n Public <\/span>Property Briefanrede As String<\/span>\r\n Public <\/span>Property Adressen As <\/span>ICollection(Of Adresse)\r\nEnd Class<\/span><\/pre>\nadd-migration add_Anrede_Briefanrede<\/pre>\n
Public <\/span>Partial Class add_Anrede_Briefanrede\r\n Inherits DbMigration\r\n Public <\/span>Overrides Sub Up()\r\n AddColumn(\"dbo.Anreden\", \"Briefanrede\", Function(c) c.String())\r\n End Sub\r\n Public <\/span>Overrides Sub Down()\r\n DropColumn(\"dbo.Anreden\", \"Briefanrede\")\r\n End Sub\r\nEnd Class<\/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