(VB.NET) Shopify Create a new unpublished product

Create a new unpublished product

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim rest As New Chilkat.Rest
Dim success As Boolean

rest.SetAuthBasic("SHOPIFY_PRIVATE_API_KEY","SHOPIFY_PRIVATE_API_KEY")

success = rest.Connect("chilkat.myshopify.com",443,True,True)
If (success <> True) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If



' The following code creates the JSON request body.
' The JSON created by this code is shown below.
Dim jsonReq As New Chilkat.JsonObject
jsonReq.UpdateString("product.title","Burton Custom Freestyle 151")
jsonReq.UpdateString("product.body_html","<strong>Good snowboard!</strong>")
jsonReq.UpdateString("product.vendor","Burton")
jsonReq.UpdateString("product.product_type","Snowboard")
jsonReq.UpdateBool("product.published",False)

' The JSON request body created by the above code:

' {
'   "product": {
'     "title": "Burton Custom Freestyle 151",
'     "body_html": "<strong>Good snowboard!<\/strong>",
'     "vendor": "Burton",
'     "product_type": "Snowboard",
'     "published": false
'   }
' }

Dim sbReq As New Chilkat.StringBuilder
jsonReq.EmitSb(sbReq)

rest.AddHeader("Content-Type","application/json")

Dim sbJson As New Chilkat.StringBuilder
success = rest.FullRequestSb("POST","/admin/products.json ",sbReq,sbJson)
If (success <> True) Then
    Debug.WriteLine(rest.LastErrorText)
    Exit Sub
End If


If (rest.ResponseStatusCode <> 201) Then
    Debug.WriteLine("Received error response code: " & rest.ResponseStatusCode)
    Debug.WriteLine("Response body:")
    Debug.WriteLine(sbJson.GetAsString())
    Exit Sub
End If


Dim json As New Chilkat.JsonObject
json.LoadSb(sbJson)

' The following code parses the JSON response.
' A sample JSON response is shown below the sample code.
Dim productId As Integer
Dim productTitle As String
Dim productBody_html As String
Dim productVendor As String
Dim productProduct_type As String
Dim productCreated_at As String
Dim productHandle As String
Dim productUpdated_at As String
Dim productPublished_at As Boolean
Dim productTemplate_suffix As Boolean
Dim productPublished_scope As String
Dim productTags As String
Dim productImage As Boolean
Dim i As Integer
Dim count_i As Integer
Dim id As Integer
Dim product_id As Integer
Dim title As String
Dim price As String
Dim sku As String
Dim position As Integer
Dim grams As Integer
Dim inventory_policy As String
Dim compare_at_price As Boolean
Dim fulfillment_service As String
Dim inventory_management As Boolean
Dim option1 As String
Dim option2 As Boolean
Dim option3 As Boolean
Dim created_at As String
Dim updated_at As String
Dim taxable As Boolean
Dim barcode As Boolean
Dim image_id As Boolean
Dim inventory_quantity As Integer
Dim weight As Integer
Dim weight_unit As String
Dim old_inventory_quantity As Integer
Dim requires_shipping As Boolean
Dim name As String
Dim j As Integer
Dim count_j As Integer
Dim strVal As String

productId = json.IntOf("product.id")
productTitle = json.StringOf("product.title")
productBody_html = json.StringOf("product.body_html")
productVendor = json.StringOf("product.vendor")
productProduct_type = json.StringOf("product.product_type")
productCreated_at = json.StringOf("product.created_at")
productHandle = json.StringOf("product.handle")
productUpdated_at = json.StringOf("product.updated_at")
productPublished_at = json.IsNullOf("product.published_at")
productTemplate_suffix = json.IsNullOf("product.template_suffix")
productPublished_scope = json.StringOf("product.published_scope")
productTags = json.StringOf("product.tags")
productImage = json.IsNullOf("product.image")
i = 0
count_i = json.SizeOfArray("product.variants")
While i < count_i
    json.I = i
    id = json.IntOf("product.variants[i].id")
    product_id = json.IntOf("product.variants[i].product_id")
    title = json.StringOf("product.variants[i].title")
    price = json.StringOf("product.variants[i].price")
    sku = json.StringOf("product.variants[i].sku")
    position = json.IntOf("product.variants[i].position")
    grams = json.IntOf("product.variants[i].grams")
    inventory_policy = json.StringOf("product.variants[i].inventory_policy")
    compare_at_price = json.IsNullOf("product.variants[i].compare_at_price")
    fulfillment_service = json.StringOf("product.variants[i].fulfillment_service")
    inventory_management = json.IsNullOf("product.variants[i].inventory_management")
    option1 = json.StringOf("product.variants[i].option1")
    option2 = json.IsNullOf("product.variants[i].option2")
    option3 = json.IsNullOf("product.variants[i].option3")
    created_at = json.StringOf("product.variants[i].created_at")
    updated_at = json.StringOf("product.variants[i].updated_at")
    taxable = json.BoolOf("product.variants[i].taxable")
    barcode = json.IsNullOf("product.variants[i].barcode")
    image_id = json.IsNullOf("product.variants[i].image_id")
    inventory_quantity = json.IntOf("product.variants[i].inventory_quantity")
    weight = json.IntOf("product.variants[i].weight")
    weight_unit = json.StringOf("product.variants[i].weight_unit")
    old_inventory_quantity = json.IntOf("product.variants[i].old_inventory_quantity")
    requires_shipping = json.BoolOf("product.variants[i].requires_shipping")
    i = i + 1
End While
i = 0
count_i = json.SizeOfArray("product.options")
While i < count_i
    json.I = i
    id = json.IntOf("product.options[i].id")
    product_id = json.IntOf("product.options[i].product_id")
    name = json.StringOf("product.options[i].name")
    position = json.IntOf("product.options[i].position")
    j = 0
    count_j = json.SizeOfArray("product.options[i].values")
    While j < count_j
        json.J = j
        strVal = json.StringOf("product.options[i].values[j]")
        j = j + 1
    End While
    i = i + 1
End While
i = 0
count_i = json.SizeOfArray("product.images")
While i < count_i
    json.I = i
    i = i + 1
End While

' A sample JSON response body that is parsed by the above code:

' {
'   "product": {
'     "id": 1071559753,
'     "title": "Burton Custom Freestyle 151",
'     "body_html": "<strong>Good snowboard!<\/strong>",
'     "vendor": "Burton",
'     "product_type": "Snowboard",
'     "created_at": "2017-09-22T14:48:52-04:00",
'     "handle": "burton-custom-freestyle-151",
'     "updated_at": "2017-09-22T14:48:52-04:00",
'     "published_at": null,
'     "template_suffix": null,
'     "published_scope": "global",
'     "tags": "",
'     "variants": [
'       {
'         "id": 1070325224,
'         "product_id": 1071559753,
'         "title": "Default Title",
'         "price": "0.00",
'         "sku": "",
'         "position": 1,
'         "grams": 0,
'         "inventory_policy": "deny",
'         "compare_at_price": null,
'         "fulfillment_service": "manual",
'         "inventory_management": null,
'         "option1": "Default Title",
'         "option2": null,
'         "option3": null,
'         "created_at": "2017-09-22T14:48:52-04:00",
'         "updated_at": "2017-09-22T14:48:52-04:00",
'         "taxable": true,
'         "barcode": null,
'         "image_id": null,
'         "inventory_quantity": 1,
'         "weight": 0.0,
'         "weight_unit": "lb",
'         "old_inventory_quantity": 1,
'         "requires_shipping": true
'       }
'     ],
'     "options": [
'       {
'         "id": 1022828912,
'         "product_id": 1071559753,
'         "name": "Title",
'         "position": 1,
'         "values": [
'           "Default Title"
'         ]
'       }
'     ],
'     "images": [
'     ],
'     "image": null
'   }
' }

Debug.WriteLine("Example Completed.")