01private static void FillUpDb(int listCount) 02
{ 03
int dataCount = 50; 04
Stopwatch sw = new Stopwatch(); 05
File.Delete(Db4oFileName); 06
IObjectContainer db = Db4oFactory.OpenFile(Db4oFileName); 07
try 08
{ 09
sw.Start(); 10
11
for (int i = 0; i < listCount; i++) 12
{ 13
ListObject lo = new ListObject(); 14
lo.Name = "list" + i.ToString("00"); 15
for (int j = 0; j < dataCount; j++) 16
{ 17
DataObject dataObject = new DataObject(); 18
dataObject.Name = "data" + j.ToString("00000"); 19
dataObject.Data = DateTime.Now.ToString() + " ---- Data Object " + j.ToString("00000"); 20
lo.Data.Add(dataObject); 21
} 22
db.Set(lo); 23
} 24
sw.Stop(); 25
} 26
finally 27
{ 28
db.Close(); 29
} 30
Console.WriteLine("Completed {0} lists of {1} objects each.", listCount, dataCount); 31
Console.WriteLine("Elapsed time: {0}", sw.Elapsed.ToString()); 32
}
01Private Shared Sub FillUpDb(ByVal listCount As Integer) 02
Dim dataCount As Integer = 50 03
Dim sw As Stopwatch = New Stopwatch 04
File.Delete(Db4oFileName) 05
Dim db As IObjectContainer = Db4oFactory.OpenFile(Db4oFileName) 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