I ended up doing this and it works... Private Function GeocodeSOAP(ByVal Inputadd As String) As String
Dim geocodeservice As Parcels_GeocodeServer = New Parcels_GeocodeServer()
geocodeservice.Url = "http://myarcgisserver/arcgisserver/services/Parcels/GeocodeServer"
' Define address inputs
'had to qualify properyset because of ambiguous references
Dim geocodePropSet As serverparcellocator.PropertySet = New serverparcellocator.PropertySet()
Dim propArray(1) As PropertySetProperty
Dim geocodeProp As PropertySetProperty = New PropertySetProperty()
geocodeProp.Key = "Street"
' Intersection
'geocodeProp.Value = "Magnolia & Central";
' Address
geocodeProp.Value = InputAPN
propArray(0) = geocodeProp
Dim geocodeProp1 As PropertySetProperty = New PropertySetProperty()
geocodeProp1.Key = "Zone"
geocodeProp1.Value = ""
propArray(1) = geocodeProp1
geocodePropSet.PropertyArray = propArray
'Geocode address
Dim results As wateragsparcellocator.PropertySet = geocodeservice.GeocodeAddress(geocodePropSet, Nothing)
Dim resultsArray() As PropertySetProperty = results.PropertyArray
Dim geocodePoint As PointN = Nothing
Dim result As PropertySetProperty
For Each result In resultsArray
Dim val As String = result.Key.ToString()
If result.Key = "Shape" Then
geocodePoint = CType(result.Value, PointN)
Dim x As Double = geocodePoint.X
Dim y As Double = geocodePoint.Y
End If
Next
Return CStr(geocodePoint.X) & " " & CStr(geocodePoint.Y)
End Function
Choose soap over http request because It seems easier to deal with the results after finding this example....
