QBE

Client.cs: GetPilotsQBE
01private static void GetPilotsQBE() 02 { 03 Console.WriteLine("Retrieving Pilot objects: QBE"); 04 IObjectContainer oc = Db4oFactory.OpenClient("localhost", 0xdb40, "db4o", "db4o"); 05 try 06 { 07 IObjectSet result = oc.Get(new Pilot(null, 0)); 08 ListResult(result); 09 } 10 finally 11 { 12 oc.Close(); 13 } 14 }
 

Client.vb: GetPilotsQBE
01Private Shared Sub GetPilotsQBE() 02 Console.WriteLine("Retrieving Pilot objects: QBE") 03 Dim oc As IObjectContainer = Db4oFactory.OpenClient("localhost", &HDB40, "db4o", "db4o") 04 Try 05 Dim result As IObjectSet = oc.Get(New Pilot(Nothing, 0)) 06 ListResult(result) 07 Finally 08 oc.Close() 09 End Try 10 End Sub