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
}
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