Free Databases in the Window Azure Marketplace: Listing 2.
Returning the available data series from the United Nations Gender data service.
'Imports System.Data.Services.Client
'The Service root Link is provided by the data feed
'In this case: https://api.datamarket.azure.com/UnitedNations/GenderInfo2007/
Dim ServiceUri = New Uri(My.Settings.ServiceURI_UNGender)
'Create the custom VB class that wraps the Service and provides data access methods
Dim UNGS = New AzureMarketplaceVB.UNGender.UNGender(ServiceUri)
UNGS.Credentials = _
New System.Net.NetworkCredential(Credentials.CustomerID, Credentials.AccessKey)
'Get the list of the Data Series available for query from the Service
Dim DataSeriesList = UNGS.GetDataSeriesList()
. . . . . .
Public Function GetDataSeriesList() As List(Of UNGenderService.DataSeries)
Dim result As New List(Of UNGenderService.DataSeries)
Dim queryResult As List(Of UNGenderService.DataSeries)
Dim PreviouslyLoaded As Integer = 0
Do
queryResult = _
(From items In context.DataSeries Select items).Skip(PreviouslyLoaded).ToList()
If (queryResult.Count > 0) Then
PreviouslyLoaded = PreviouslyLoaded + queryResult.Count
result.AddRange(queryResult)
End If
Loop While (Not IsNothing(queryResult)) AndAlso (queryResult.Count > 0)
Return result
End Function
About the Author
Joe Kunk is a Microsoft MVP in Visual Basic, three-time president of the Greater Lansing User Group for .NET, and developer for Dart Container Corporation of Mason, Michigan. He's been developing software for over 30 years and has worked in the education, government, financial and manufacturing industries. Kunk's co-authored the book "Professional DevExpress ASP.NET Controls" (Wrox Programmer to Programmer, 2009). He can be reached via email at [email protected].