Imports System.IO
Imports com.db4o
Imports dbO = com.db4o.query
Module Module1

    Sub Main()
        File.Delete("Personen.yap")
        Dim db As ObjectContainer
        db = Db4o.OpenFile("Personen.yap")
        Try
            'hier komt onze code (niet onze code voor de subprocedures)
            'wel de aanroep voor onze subprocedure.
            VoegPersonenToe(db)
            Console.WriteLine("Alle Personen")
            AllePersonen(db)
            Console.WriteLine("Ik wil alle Bartjes displayen")
            OpVoorNaam(db)
            Console.WriteLine("Bart uit Tervuren verhuisd naar Vossem")
            UpdateBart(db)
            OpVoorNaam(db)
            Console.WriteLine("Bert zal nu worden gedelete,vaarwel Bertje")
            DeleteBert(db)
            AllePersonen(db)
        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            db.Close()
        End Try
        Console.ReadLine()
    End Sub

    Private Sub VoegPersonenToe(ByVal db As ObjectContainer)
        Dim pers1 As New Persoon(1)
        pers1.VoorNaam = "Bart"
        pers1.AchterNaam = "Peeters"
        pers1.WoonPlaats = "Tervuren"
        db.Set(pers1)

        Dim pers2 As New Persoon(2)
        pers2.VoorNaam = "Bart"
        pers2.AchterNaam = "Peeters"
        pers2.WoonPlaats = "Leuven"
        db.Set(pers2)

        Dim pers3 As New Persoon(3)
        pers3.VoorNaam = "Luc"
        pers3.AchterNaam = "Mommens"
        pers3.WoonPlaats = "Kraainem"
        db.Set(pers3)

        Dim pers4 As New Persoon(4)
        pers4.VoorNaam = "Bert"
        pers4.AchterNaam = "Van Hove"
        pers4.WoonPlaats = "Sterrebeek"
        db.Set(pers4)
    End Sub

    Private Sub AllePersonen(ByVal db As ObjectContainer)
        Dim proto As New Persoon(0)
        Dim result As ObjectSet = db.Get(proto)

        While (result.HasNext)
            Dim pers As Persoon = CType(result.Next, Persoon)
            Console.WriteLine(ControlChars.Tab & pers.ToString)
        End While

    End Sub

    Private Sub OpVoorNaam(ByVal db As ObjectContainer)
        Dim proto As New Persoon("Bart")
        Dim result As ObjectSet = db.Get(proto)

        While (result.HasNext)
            Dim pers As Persoon = CType(result.Next, Persoon)
            Console.WriteLine(ControlChars.Tab & pers.ToString & " id = " & pers.PersoonsID)
        End While

    End Sub

    Private Sub UpdateBart(ByVal db As ObjectContainer)
        Dim proto As New Persoon("Bart", 1)
        Dim result As ObjectSet = db.Get(proto)
        While (result.HasNext)
            Dim pers As Persoon = CType(result.Next, Persoon)
            pers.WoonPlaats = "Vossem"
            db.Set(pers)
        End While
    End Sub

    Private Sub DeleteBert(ByVal db As ObjectContainer)
        Dim proto As New Persoon("Bert", 4)
        Dim result As ObjectSet = db.Get(proto)
        While (result.HasNext)
            Dim pers As Persoon = CType(result.Next, Persoon)
            db.Delete(pers)
        End While
    End Sub

End Module