(Visual Basic 6.0) eBay -- Create or Replace Inventory Item

This example shows how to create a new inventory item record or update an existing inventory item record.

See Create or Replace Inventory Item for more REST API details.

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

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

' This example sends the following sample PUT request to create (or replace) a new inventory item.

' PUT https://api.ebay.com/sell/inventory/v1/inventory_item/GP-Cam-01
' { 
' "availability":
'     { 
'     "shipToLocationAvailability":
'         { 
'         "quantity": 50
'         }
'     },
' "condition": "NEW",
' "product":
'     { 
'     "title": "GoPro Hero4 Helmet Cam",
'     "description": "New GoPro Hero4 Helmet Cam. Unopened box.",
'     "aspects": {
'         "Brand" :["GoPro"],
'         "Type" : ["Helmet/Action"],
'         "Storage Type" : ["Removable"],
'         "Recording Definition" : ["High Definition"],
'         "Media Format" : ["Flash Drive (SSD)"],
'         "Optical Zoom" : ["10x"]
'       },
'     "imageUrls": [
'         "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1000.jpg",
'         "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1001.jpg",
'         "http://i.ebayimg.com/images/i/182196556219-0-1/s-l1002.jpg"
'       ]
'     }
' }

' First, generate the JSON using this code:
Dim json As New ChilkatJsonObject
json.EmitCompact = 0

success = json.UpdateNumber("availability.shipToLocationAvailability.quantity","50")
success = json.UpdateString("condition","NEW")
success = json.UpdateString("product.title","GoPro Hero4 Helmet Cam")
success = json.UpdateString("product.description","New GoPro Hero4 Helmet Cam. Unopened box.")
success = json.UpdateString("product.aspects.Brand[0]","GoPro")
success = json.UpdateString("product.aspects.Type[0]","Helmet/Action")
success = json.UpdateString("product.aspects.""Storage Type""[0]","Removable")
success = json.UpdateString("product.aspects.""Recording Definition""[0]","High Definition")
success = json.UpdateString("product.aspects.""Media Format""[0]","Flash Drive (SSD)")
success = json.UpdateString("product.aspects.""Optical Zoom""[0]","10x")
success = json.UpdateString("product.imageUrls[0]","http://i.ebayimg.com/images/i/182196556219-0-1/s-l1000.jpg")
success = json.UpdateString("product.imageUrls[1]","http://i.ebayimg.com/images/i/182196556219-0-1/s-l1001.jpg")
success = json.UpdateString("product.imageUrls[2]","http://i.ebayimg.com/images/i/182196556219-0-1/s-l1002.jpg")

' Show the JSON to be sent:
Debug.Print json.Emit()

' Use a previously obtained user token.  The token should look something like this:
' "v^1.1#i^1#r^0#p^3#I^3#f^0#t^H4sIAAAAAAAAAOVXa2wUVRTu9k ... 89xuCWYREAAA=="
Dim accessToken As String
accessToken = "EBAY_ACCESS_TOKEN"

Dim http As New ChilkatHttp

' This example uses the sandbox.  
' Change "api.sandbox.ebay.com" to "api.ebay.com" to use the production system.
' Note: The last part of the url is the SKU.  In this URL, the SKU is "GP-Cam-01".
Dim url As String
url = "https://api.sandbox.ebay.com/sell/inventory/v1/inventory_item/GP-Cam-01"
json.EmitCompact = 1

' Set your Content-Language to whatever is desired.
http.SetRequestHeader "Content-Language","en-US"

' Add our access token to the request, which is a header
' having the following format:
' Authorization: Bearer <userAccessToken>
Dim sbAuth As New ChilkatStringBuilder
success = sbAuth.Append("Bearer ")
success = sbAuth.Append(accessToken)
http.SetRequestHeader "Authorization",sbAuth.GetAsString()

http.Accept = "application/json"
http.AllowGzip = 0

Dim strResponse As String
strResponse = http.PutText(url,json.Emit(),"utf-8","application/json",0,0)
If (http.LastMethodSuccess <> 1) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print "Response status code = " & http.LastStatus

If (http.LastStatus <> 204) Then
    Debug.Print strResponse
    Debug.Print "Failed"
    Exit Sub
End If

' On success (status code = 204), there is no output payload (strResponse will be empty).
Debug.Print "Inventory item successfully created."