01
 Private Shared Sub FillUpDb()Sub FillUpDb(ByVal listCount As Integer)
02
Private Shared Sub FillUpDb()Sub FillUpDb(ByVal listCount As Integer)
02 Dim dataCount As Integer = 50
03
            Dim dataCount As Integer = 50
03 Dim sw As Stopwatch = New Stopwatch
04
            Dim sw As Stopwatch = New Stopwatch
04 File.Delete(DbFile)
05
            File.Delete(DbFile)
05 Dim db As IObjectContainer = Db4oFactory.OpenFile(DbFile)
06
            Dim db As IObjectContainer = Db4oFactory.OpenFile(DbFile)
06 Try
07
            Try
07 sw.Start()
08
                sw.Start()
08 Dim i As Integer = 0
09
                Dim i As Integer = 0
09 While i < listCount
10
                While i < listCount
10 Dim lo As ListObject = New ListObject
11
                    Dim lo As ListObject = New ListObject
11 lo.Name = "list" + i.ToString("00")
12
                    lo.Name = "list" + i.ToString("00")
12 Dim j As Integer = 0
13
                    Dim j As Integer = 0
13 While j < dataCount
14
                    While j < dataCount
14 Dim dataObject As DataObject = New DataObject
15
                        Dim dataObject As DataObject = New DataObject
15 dataObject.Name = "data" + j.ToString("00000")
16
                        dataObject.Name = "data" + j.ToString("00000")
16 dataObject.Data = DateTime.Now.ToString + " ---- Data Object " + j.ToString("00000")
17
                        dataObject.Data = DateTime.Now.ToString + " ---- Data Object " + j.ToString("00000")
17 lo.Data.Add(dataObject)
18
                        lo.Data.Add(dataObject)
18 System.Math.Min(System.Threading.Interlocked.Increment(j), j - 1)
19
                        System.Math.Min(System.Threading.Interlocked.Increment(j), j - 1)
19 End While
20
                    End While
20 db.Set(lo)
21
                    db.Set(lo)
21 System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
22
                    System.Math.Min(System.Threading.Interlocked.Increment(i), i - 1)
22 End While
23
                End While
23 sw.Stop()
24
                sw.Stop()
24 Finally
25
            Finally
25 db.Close()
26
                db.Close()
26 End Try
27
            End Try
27 Console.WriteLine("Completed {0} lists of {1} objects each.", listCount, dataCount)
28
            Console.WriteLine("Completed {0} lists of {1} objects each.", listCount, dataCount)
28 Console.WriteLine("Elapsed time: {0}", sw.Elapsed.ToString)
29
            Console.WriteLine("Elapsed time: {0}", sw.Elapsed.ToString)
29 End Sub
        End Sub