AddressesByStreetKey

'NOTE: A Service Reference to the web service must be added to use this sample code.
Private Sub AddressesByStreetKey(ByVal licence As AddressCaptureLicence, ByVal streetKey As String, ByVal building As String)
    'Declare the required options.
    'Invoke the web service method.
    Dim proxy As AddressCaptureSoapClient = New AddressCaptureSoapClient()
    Dim results As PartialAddressOutput = proxy.AddressesByStreetKey("your-username", "your-password", licence, streetKey, building, New [Option](-1) {})
    'Check that the call succeeded, and show the error message if there was a problem.
    If (results.Status.Success = false) Then
        MessageBox.Show(("Error: " + results.Status.ErrorMessage))
    Else
        'TODO: Process method results here.
        'Results can be extracted from the following fields:
        'result.Results
        '  Contains an array of addresses that match the query. Each address is returned with a `Description`, which contains a partial, human-readable version of the address, and an `ID` which can be supplied to the [`FetchAddress`](../fetchaddress/) method to get the full details of the address
    End If
End Sub

Public Sub AddressesByStreetKey(licence As String, streetKey As String, building As String)
  Dim rs As ADODB.Recordset
  Set rs = New ADODB.Recordset
  rs.Open "https://webservices.data-8.co.uk/recordset.ashx?service=AddressCapture&method=AddressesByStreetKeySimple" &
    "&username=your-username" &
    "&password=your-password" &
    "&licence=" & licence &
    "&streetKey=" & streetKey &
    "&building=" & building
  If rs.MoveFirst Then
    If rs.Fields(0).Name = "Success" And rs.Fields(0).Value = false Then
      MsgBox "Error: " & rs.Fields(1)
    Else
      'TODO: Process method results here.
      'Each result is available in a different row in the recordset.
      'Results can be extracted from the following fields:
      'ID
      'Description
    End If
  End If
End Sub