topic Re: VB.NET Display multiple Geosearch results in ArcObjects SDK Questions

VB.NET Display multiple Geosearch results

Corbinde_Bruin — Tue, 08 Jan 2013 14:46:14 GMT

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

Re: VB.NET Display multiple Geosearch results

MichaelVolz — Tue, 08 Jan 2013 16:36:48 GMT

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

Re: VB.NET Display multiple Geosearch results

Corbinde_Bruin — Tue, 08 Jan 2013 16:45:20 GMT

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.

Re: VB.NET Display multiple Geosearch results

MichaelVolz — Tue, 08 Jan 2013 16:54:58 GMT

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.

Re: VB.NET Display multiple Geosearch results

Corbinde_Bruin — Tue, 08 Jan 2013 17:11:21 GMT

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

Re: VB.NET Display multiple Geosearch results

MichaelVolz — Tue, 08 Jan 2013 17:27:09 GMT

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?

Re: VB.NET Display multiple Geosearch results

Corbinde_Bruin — Sat, 11 Dec 2021 19:45:46 GMT

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

Re: VB.NET Display multiple Geosearch results

MichaelVolz — Tue, 08 Jan 2013 17:50:21 GMT

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

Re: VB.NET Display multiple Geosearch results

Corbinde_Bruin — Tue, 08 Jan 2013 17:58:17 GMT

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.

Re: VB.NET Display multiple Geosearch results

NeilClemmons — Tue, 08 Jan 2013 18:03:20 GMT

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.

Re: VB.NET Display multiple Geosearch results

MichaelVolz — Tue, 08 Jan 2013 18:21:59 GMT

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.

Re: VB.NET Display multiple Geosearch results

Corbinde_Bruin — Tue, 08 Jan 2013 18:22:10 GMT

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.

Re: VB.NET Display multiple Geosearch results

Corbinde_Bruin — Sat, 11 Dec 2021 19:45:49 GMT

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