Filling The Database

ListDeletingExample.cs: FillUpDb
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 }

ListDeletingExample.vb: FillUpDb
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