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