How to get geocodes using bing maps?

See more:

VB

forms

I downloaded a code snippet which uses the bing maps to retrive geo codes from an address. The first line of the simply gets a key from the configuration manager. However, when the code executes this line does not retrieve anything. So the rest of the function does not work properly. Here is the code snippet:

Private Sub MakeGeocodeRequest(Byval Address As string)

        Try
            ' Set a Bing Maps key before making a request
            Dim key As String = System.Configuration.ConfigurationManager.AppSettings("BingMapsAPIKey")
            Dim geocodeRequest As New bing.geocode.GeocodeRequest
            Dim SearchAddress As String = Address
           If SearchAddress.Contains("UK") = False Then
                SearchAddress += ", UK"
            End If

            ' Set the credentials using a valid Bing Maps Key
            geocodeRequest.Credentials = New bing.geocode.Credentials()
            geocodeRequest.Credentials.ApplicationId = key

            ' Set the full address query
            geocodeRequest.Query = SearchAddress

            ' Set the options to only return high confidence results
            Dim filters As bing.geocode.ConfidenceFilter() = New bing.geocode.ConfidenceFilter(0) {}
            filters(0) = New bing.geocode.ConfidenceFilter()
            filters(0).MinimumConfidence = bing.geocode.Confidence.High

            Dim geocodeOptions As New bing.geocode.GeocodeOptions()
            geocodeOptions.Filters = filters

            geocodeRequest.Options = geocodeOptions

            ' Make the geocode request
            Dim geocodeService__1 As New bing.geocode.GeocodeService

            'If there's a proxy set in the appsettings of the web.config then use it
            If Not String.IsNullOrEmpty(System.Configuration.ConfigurationManager.AppSettings("Proxy")) Then
                geocodeService__1.Proxy = New System.Net.WebProxy(System.Configuration.ConfigurationManager.AppSettings("Proxy"))
            End If

            Dim geocodeResponse As bing.geocode.GeocodeResponse = geocodeService__1.Geocode(geocodeRequest)

            If geocodeResponse.Results.Count > 0 AndAlso geocodeResponse.Results(0).Locations.Count > 0 Then
                debug.print("Lat:" & geocodeResponse.Results(0).Locations(0).Latitude)
                debug.print("Long:" & geocodeResponse.Results(0).Locations(0).Longitude)
            End If

        Catch ex As Exception
            Debug.Print(ex.Message)
        End Try
    End Sub

I've added bing maps as a web reference. But still it doesn't work. Please help!!!

I get an error saying that my program can't connect to the bing server. Also the first line where they function get the bing map api key, it returns nothing.