VB.NET

eBay -- Create or Replace Inventory Item

See more eBay Examples

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.

VB.NET

Dim success As Boolean = False

' 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 Chilkat.JsonObject
json.EmitCompact = False

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

' Show the JSON to be sent:
Debug.WriteLine(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 = "EBAY_ACCESS_TOKEN"

Dim http As New Chilkat.Http

' 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 = "https://api.sandbox.ebay.com/sell/inventory/v1/inventory_item/GP-Cam-01"
json.EmitCompact = True

' 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 Chilkat.StringBuilder
sbAuth.Append("Bearer ")
sbAuth.Append(accessToken)
http.SetRequestHeader("Authorization",sbAuth.GetAsString())

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

Dim resp As New Chilkat.HttpResponse
success = http.HttpStr("PUT",url,json.Emit(),"utf-8","application/json",resp)
If (success = False) Then
    Debug.WriteLine(http.LastErrorText)
    Exit Sub
End If


Debug.WriteLine("Response status code = " & resp.StatusCode)

If (http.LastStatus <> 204) Then
    Debug.WriteLine(resp.BodyStr)
    Debug.WriteLine("Failed")
    Exit Sub
End If


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