(Visual Basic 6.0) Amazon SP-API Sellers Get Marketplace Participations

See more Amazon SP-API Examples

Demonstrates Amazon SP-API Sellers API -- get marketplace participations.

For more information, see https://developer-docs.amazon.com/sp-api/docs/sellers-api-v1-reference#getmarketplaceparticipations

Chilkat ActiveX Downloads ActiveX for 32-bit and 64-bit Windows

' This example requires the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.

Dim authAws As New ChilkatAuthAws
authAws.AccessKey = "AWS_ACCESS_KEY"
authAws.SecretKey = "AWS_SECRET_KEY"
authAws.ServiceName = "execute-api"
' Use the region that is correct for your needs.
authAws.Region = "eu-west-1"

Dim rest As New ChilkatRest
Dim bTls As Long
bTls = 1
Dim port As Long
port = 443
Dim bAutoReconnect As Long
bAutoReconnect = 1
' Make sure to use the correct domain.
' In this example, we are using "sandbox.sellingpartnerapi-eu.amazon.com"
Dim success As Long
success = rest.Connect("sandbox.sellingpartnerapi-eu.amazon.com",port,bTls,bAutoReconnect)
If (success = 0) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

success = rest.SetAuthAws(authAws)

' Load the previously obtained LWA access token.
' See Fetch SP-API LWA Access Token
Dim jsonToken As New ChilkatJsonObject
success = jsonToken.LoadFile("qa_data/tokens/sp_api_lwa_token.json")
If (success = 0) Then
    Debug.Print "Failed to load LWA access token."
    Exit Sub
End If

' Add the x-amz-access-token request header.
Dim lwa_token As String
lwa_token = jsonToken.StringOf("access_token")
success = rest.ClearAllHeaders()
success = rest.AddHeader("x-amz-access-token",lwa_token)

' Indicate the marketplace.  Use the marketplace ID for your needs. See https://developer-docs.amazon.com/sp-api/docs/marketplace-ids
success = rest.ClearAllPathParams()
success = rest.AddPathParam("MarketplaceId","A1F83G8C2ARO7P")

Dim sbResponse As New ChilkatStringBuilder
Dim uri As String
uri = "/sellers/v1/marketplaceParticipations"
success = rest.FullRequestNoBodySb("GET",uri,sbResponse)
If (success = 0) Then
    Debug.Print rest.LastErrorText
    Exit Sub
End If

' Examine the response status.
Dim statusCode As Long
statusCode = rest.ResponseStatusCode
If (statusCode <> 200) Then
    Debug.Print "Response status text: " & rest.ResponseStatusText
    Debug.Print "Response body: "
    Debug.Print sbResponse.GetAsString()
    Debug.Print "Failed."
    Exit Sub
End If

Debug.Print sbResponse.GetAsString()

' If successful, gets a JSON response such as the following:

' {
'   "payload": [
'     {
'       "marketplace": {
'         "id": "ATVPDKIKX0DER",
'         "countryCode": "US",
'         "name": "Amazon.com",
'         "defaultCurrencyCode": "USD",
'         "defaultLanguageCode": "en_US",
'         "domainName": "www.amazon.com"
'       },
'       "participation": {
'         "isParticipating": true,
'         "hasSuspendedListings": false
'       }
'     }
'   ]
' }

' Use this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

Dim json As New ChilkatJsonObject

success = json.LoadSb(sbResponse)

Dim Id As String
Dim CountryCode As String
Dim Name As String
Dim DefaultCurrencyCode As String
Dim DefaultLanguageCode As String
Dim DomainName As String
Dim IsParticipating As Long
Dim HasSuspendedListings As Long

Dim i As Long
i = 0
Dim count_i As Long
count_i = json.SizeOfArray("payload")
Do While i < count_i
    json.I = i
    Id = json.StringOf("payload[i].marketplace.id")
    CountryCode = json.StringOf("payload[i].marketplace.countryCode")
    Name = json.StringOf("payload[i].marketplace.name")
    DefaultCurrencyCode = json.StringOf("payload[i].marketplace.defaultCurrencyCode")
    DefaultLanguageCode = json.StringOf("payload[i].marketplace.defaultLanguageCode")
    DomainName = json.StringOf("payload[i].marketplace.domainName")
    IsParticipating = json.BoolOf("payload[i].participation.isParticipating")
    HasSuspendedListings = json.BoolOf("payload[i].participation.hasSuspendedListings")
    i = i + 1
Loop

Debug.Print "Success!"