Weitere Umstrukturierung

UltraStarSongPicker/Repositories/SongRepository.vb

@@ -1,16 +1,23 @@
-Imports System.Data.Common
+Imports System.ComponentModel
+Imports System.Data.Common
 Imports System.Data.SQLite
 Imports DevExpress.Text
 
 Public Class SongRepository
+    Implements System.ComponentModel.IChangeTracking
 
+    Public ReadOnly Property IsChanged As Boolean Implements IChangeTracking.IsChanged
+        Get
+            Throw New NotImplementedException()
+        End Get
+    End Property
 
-    Friend Shared Async Function GetSongs() As Task(Of List(Of Song))
+    Friend Shared Async Function GetSongs() As Task(Of BindingList(Of Song))
         Dim con = DB.getConnection
         Dim cmd As New SQLiteCommand(Nothing, con)
         Dim reader As DbDataReader
         Await con.OpenAsync
-        Dim result As New List(Of Song)
+        Dim result As New BindingList(Of Song)
         cmd.CommandText = "SELECT * FROM t_songs"
         reader = Await cmd.ExecuteReaderAsync
         result.Clear()
@@ -128,4 +135,8 @@ Public Class SongRepository
         Next
         con.Close()
     End Sub
+
+    Public Sub AcceptChanges() Implements IChangeTracking.AcceptChanges
+        Throw New NotImplementedException()
+    End Sub
 End Class