nav[aria-label="Primary Navigation"] { padding: 0; & ul { list-style: none; width: 100%; display: flex; flex-direction: row; justify-content: start; align-items: start; gap: 30px; padding: 0; & li { margin: 0; } & ul li { list-style: none; } } }

VB.NET Display multiple Geosearch results

Corbinde_Bruin

I've written a GeocodeAddress method which is a modified version of the SDK vb.net FindAddress sample. I'm using a local address locator and I can't understand how to make it return multiple results. It is only returning the first result.

If I use the same locator in ArcMap's native Find tool, it pulls up a bunch of records.

All help is appreciated,
Corbin de Bruin

 Private Sub GeocodeAddress()         locatorManager = TryCast(obj, ILocatorManager2)         locatorWorkspace = locatorManager.GetLocatorWorkspaceFromPath(gLocatorWorkspace)          Dim locator As ILocator = locatorWorkspace.GetLocator("Street_Addresses_US")          ' Set up the address properties         Dim addressInputs As IAddressInputs = TryCast(locator, IAddressInputs)         Dim addressFields As IFields = addressInputs.AddressFields         Dim addressProperties As IPropertySet = New PropertySetClass()         addressProperties.SetProperty(addressFields.Field(0).Name, txtAddress.Text)         addressProperties.SetProperty(addressFields.Field(1).Name, txtCity.Text)         addressProperties.SetProperty(addressFields.Field(2).Name, txtState.Text)         addressProperties.SetProperty(addressFields.Field(3).Name, txtZIP.Text)          ' Match the Address         Dim addressGeocoding As IAddressGeocoding = TryCast(locator, IAddressGeocoding)         Dim resultSet As IPropertySet = addressGeocoding.MatchAddress(addressProperties)          'Write results to DataGridView         Dim names, values As Object ' Not sure how these ever really get populated. They produce a warning where a null reference exception could be produced         resultSet.GetAllProperties(names, values)         Dim namesArray() As String = TryCast(names, String())         Dim valuesArray() As Object = TryCast(values, Object())         Dim length As Integer = namesArray.Length ' Not terribly sure what this line does.         Dim addressPoint As IPoint = Nothing         dgvAddrResults.Rows.Add() ' Create DataGridRow to hold result         For i As Integer = 0 To length - 1             Select Case namesArray(i) ' Case Statement to write proper fields to DataGrid Columns                 Case "Status"                     If valuesArray(i).ToString() = "U" Then                         lblAddressPrompt.Text = "***Address was not found."                         lblAddressPrompt.Visible = True                         Exit Sub                     End If                 Case "Shape"                     addressPoint = TryCast(valuesArray(i), IPoint)                     If addressPoint IsNot Nothing AndAlso (Not addressPoint.IsEmpty) Then                         dgvAddrResults.Item("Coordinates", 0).Value = addressPoint.X.ToString & ", " & addressPoint.Y.ToString                     Else                         dgvAddrResults.Item("Coordinates", 0).Value = "No geographic point available"                     End If                 Case "Score"                     dgvAddrResults.Item("Score", 0).Value = valuesArray(i).ToString()                 Case "Match_addr"                     dgvAddrResults.Item("Address", 0).Value = valuesArray(i).ToString()                 Case "Addr_type"                     dgvAddrResults.Item("Type", 0).Value = valuesArray(i).ToString()             End Select          Next i      End Sub

Find more posts tagged with

Accepted answers

NeilClemmons_GISinc

It's been a really, really long time since I've worked with address locators and I may be wrong but I don't think your code is doing what you think it's doing. I believe the MatchAddress method is simply returning a property set that contains the geocoded address that you're trying to match. In other words, you're passing in the address you want to match ("search for" might be a better description) in pieces and it puts them together into the standardized format defined by the locator you're using. If you want the actual results of the search then I think you need to be using the IAddressCandidates interface and calling the FindAddressCandidates method.

All comments

Corbinde_Bruin

I have it working to suit my needs.
Here's my success with it so far and comments indicating my best guess at what's going on:

    Sub GeosearchAddress()
        ' Uses IAddressCandidates interface to geosearch locator for addresses. Returns multiple results
        
        locatorManager = TryCast(obj, ILocatorManager2)
        locatorWorkspace = locatorManager.GetLocatorWorkspaceFromPath(gLocatorWorkspace)
        Dim locator As ILocator = locatorWorkspace.GetLocator("Street_Addresses_US") ' Dimension the relative name of the locator

        Dim addressCandidates As IAddressCandidates2 = locator ' Like an Array of Addresses
        Dim addressPoint As IPoint = New Point

        ' Find the address candidates
        Dim addressProperties As IPropertySet2 = New PropertySetClass()
        With addressProperties ' Setting properties from textboxes
            .SetProperty("Street", txtAddress.Text)
            .SetProperty("City", txtCity.Text)
            .SetProperty("State", txtState.Text)
            .SetProperty("Zip", txtZIP.Text)
        End With

        ' Use the FindAddressCandidates method find candidates for an address
        Dim resultsArray As IArray = addressCandidates.FindAddressCandidates(addressProperties) ' Create array based on addressCandidates array filtered by addressProperties array

        ' Use the CandidateFields property to display the properties of each candidate
        Dim candidateFields As IFields = addressCandidates.CandidateFields ' Like an Array of fields based on addessProperties and addressCandidates
        Dim candidatePropertySet As IPropertySet2
        Dim addressField As IField
        Dim addressFieldVal As Object ' Object to hold field data. Created as object to be able to hold geographic field data. ToString method used to see text fields
        For candidateIndex As Integer = 0 To 10 ' Loop through 10 geosearch results
            candidatePropertySet = resultsArray.Element(candidateIndex)
            dgvAddrResults.Rows.Add() ' Create DataGridRow to hold result
            For fieldIndex As Integer = 0 To candidateFields.FieldCount - 1 ' Loop through all fields/properties of geosearch address candidates
                addressField = candidateFields.Field(fieldIndex)
                addressFieldVal = candidatePropertySet.GetProperty(addressField.Name) ' Variable set to hold field objects
                Select Case addressField.Name ' Case Statement to write fields to correct data grid columns
                    Case "Shape"
                        Try
                            addressPoint = CType(addressFieldVal, IPoint)
                        Catch ex As Exception
                            Debug.Print("Failed to convert to ESRI Point object")
                        End Try
                        If addressPoint IsNot Nothing AndAlso (Not addressPoint.IsEmpty) Then
                            dgvAddrResults.Item("Coordinates", candidateIndex).Value = addressPoint.X.ToString & ", " & addressPoint.Y.ToString
                        Else
                            dgvAddrResults.Item("Coordinates", candidateIndex).Value = "No geographic point available"
                        End If
                    Case "Score"
                        dgvAddrResults.Item("Score", candidateIndex).Value = addressFieldVal.ToString()
                    Case "Match_addr"
                        dgvAddrResults.Item("Address", candidateIndex).Value = addressFieldVal.ToString()
                    Case "Addr_type"
                        dgvAddrResults.Item("Type", candidateIndex).Value = addressFieldVal.ToString()
                End Select
            Next

        Next

    End Sub

Thank you everyone for your help,
Corbin de Bruin

Corbinde_Bruin

Neil,

You may be right. Following that thought track through the documentation I was led to this page:

http://127.0.0.1:47873/help/3-6196/?method=page&id=b57a4e69-207d-4aa2-bf93-4d5f834a44aa&product=vs&productversion=100&locale=en-us

I'll post again if I'm able to fully work this out.

Thank you for you help,
Corbin de Bruin

Edit:
Thank you Mike, we were both led to the same link. Mine is just through the 10.1 help.

mvolz47

Try going to this URL for more information.

http://help.arcgis.com/en/sdk/10.0/arcobjects_net/conceptualhelp/index.html#/d/00010000038r000000.htm

I believe this is the method that Neil might be referring to.

NeilClemmons_GISinc

Corbinde_Bruin

I have complied it. It does not return multiple results. It's only available to be used as a starting point, and it doesn't take you very far.

mvolz47

Have you tried compiling ESRI's sample to see if it returns multiple results?

Corbinde_Bruin

Some differences are:

I'm displaying the data in a DataGridView, not a RichTextBox
I'm specifying which column to enter each field, and only the fields I want.

I found this here:
C:\Program Files (x86)\ArcGIS\DeveloperKit10.1\Samples\ArcObjectsNet\FindAddress\VBNet\FindAddress2010.sln

Private Sub GeocodeAddress()
      ' Get the locator
      Dim obj As System.Object = Activator.CreateInstance(Type.GetTypeFromProgID("esriLocation.LocatorManager"))
      Dim locatorManager As ILocatorManager2 = TryCast(obj, ILocatorManager2)
      Dim locatorWorkspace As ILocatorWorkspace = locatorManager.GetLocatorWorkspaceFromPath("C:\locators")
      Dim locator As ILocator = locatorWorkspace.GetLocator("California_city_state_zip")

      ' Set up the address properties
      Dim addressInputs As IAddressInputs = TryCast(locator, IAddressInputs)
      Dim addressFields As IFields = addressInputs.AddressFields
      Dim addressProperties As IPropertySet = New PropertySetClass()
      addressProperties.SetProperty(addressFields.Field(0).Name, Me.AddressTextBox.Text)
      addressProperties.SetProperty(addressFields.Field(1).Name, Me.CityTextBox.Text)
      addressProperties.SetProperty(addressFields.Field(2).Name, Me.StateTextBox.Text)
      addressProperties.SetProperty(addressFields.Field(3).Name, Me.ZipTextBox.Text)

      ' Match the Address
      Dim addressGeocoding As IAddressGeocoding = TryCast(locator, IAddressGeocoding)
      Dim resultSet As IPropertySet = addressGeocoding.MatchAddress(addressProperties)

      ' Print out the results
      Dim names, values As Object
      resultSet.GetAllProperties(names, values)
      Dim namesArray() As String = TryCast(names, String())
      Dim valuesArray() As Object = TryCast(values, Object())
      Dim length As Integer = namesArray.Length
      Dim point As IPoint = Nothing
      For i As Integer = 0 To length - 1
        If namesArray(i) <> "Shape" Then
          Me.ResultsTextBox.Text += namesArray(i) & ": " & valuesArray(i).ToString() & Constants.vbLf
        Else
          If point IsNot Nothing AndAlso (Not point.IsEmpty) Then
            point = TryCast(valuesArray(i), IPoint)
            Me.ResultsTextBox.Text &= "X: " & point.X + Constants.vbLf
            Me.ResultsTextBox.Text &= "Y: " & point.Y + Constants.vbLf
          End If
        End If
      Next i

      Me.ResultsTextBox.Text += Constants.vbLf
    End Sub

mvolz47

I could post the sample FindAddress code from the SDK if that would help.

Can you please post this code or provide the link to the location where the code is found?

Corbinde_Bruin

Debug.Print("resultSet.Count = " & resultSet.Count)

The count is seven which is actually the same as 'length'. I see 'resultSet' is some kind of properties item:

Dim resultSet As IPropertySet = addressGeocoding.MatchAddress(addressProperties)

It looks like 'length is just another way of saying 'resultSet.Count':

Dim length As Integer = namesArray.Length ' Not terribly sure what this line does. Probably does the same thing as resultSet.Count

mvolz47

Is the resultSet supposed to be all the records that have matched your geocode parameters? If so, can you tell what the count is for this object? Maybe something like resultSet.GetCount, but I'm not sure that is even a parameter for the resultSet object.

Corbinde_Bruin

Mike,

The 'length' variable is actually looping through the fields in the row. That's the horizontal aspect of the database which I have working correctly. I don't have the verticle aspect of the database. I don't see the capacity for it using this method either.

I could post the sample FindAddress code from the SDK if that would help.

mvolz47

Can you put in any variable trapping to see what the length variable is set to when running this code?

Join the Conversation

Signed in members can post, follow updates, and more. New here? Register a free account.

Quick Links

Community Help
Find useful guides, FAQs, and documents to help you navigate and make the most of Esri Community.