Folge dem Video um zu sehen, wie unsere Website als Web-App auf dem Startbildschirm installiert werden kann.
Anmerkung: Diese Funktion ist in einigen Browsern möglicherweise nicht verfügbar.
Verbindung.Open()
Kommando.Connection = Verbindung
Dim Epis As String = Replace(My.Computer.FileSystem.GetName(AlleEpisoden(EP)), "'", "")
Kommando.CommandText = "INSERT INTO Manager (Serie, Staffel, Episode, Titel) VALUES ('" & My.Computer.FileSystem.GetName(AlleSerien(SE)) & "'," _
& "'" & My.Computer.FileSystem.GetName(AlleStaffeln(ST)) & "'," _
& "'" & EP + 1 & "'," _
& "'" & Epis & "')"
Kommando.ExecuteNonQuery()
Verbindung.Close()
Me.Text = AlleSerien(SE)
EP = EP + 1
Loop Until EP = AlleEpisoden.Count
ST += 1
Loop Until ST = AlleStaffeln.Count
SE += 1
Loop Until SE = AlleSerien.Count