(Visual Basic 6.0) Shopify Create a new product with multiple product variants

Create a new product with multiple product variants

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

Dim rest As New ChilkatRest
Dim success As Long

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

success = rest.Connect("chilkat.myshopify.com",443,1,1)
If (success <> 1) Then
    Debug.Print 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 ChilkatJsonObject
success = jsonReq.UpdateString("product.title","Burton Custom Freestyle 151")
success = jsonReq.UpdateString("product.body_html","<strong>Good snowboard!</strong>")
success = jsonReq.UpdateString("product.vendor","Burton")
success = jsonReq.UpdateString("product.product_type","Snowboard")
success = jsonReq.UpdateString("product.variants[0].option1","First")
success = jsonReq.UpdateString("product.variants[0].price","10.00")
success = jsonReq.UpdateString("product.variants[0].sku","123")
success = jsonReq.UpdateString("product.variants[1].option1","Second")
success = jsonReq.UpdateString("product.variants[1].price","20.00")
success = jsonReq.UpdateString("product.variants[1].sku","123")

' 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",
'     "variants": [
'       {
'         "option1": "First",
'         "price": "10.00",
'         "sku": "123"
'       },
'       {
'         "option1": "Second",
'         "price": "20.00",
'         "sku": "123"
'       }
'     ]
'   }
' }

Dim sbReq As New ChilkatStringBuilder
success = jsonReq.EmitSb(sbReq)

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

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

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

Dim json As New ChilkatJsonObject
success = json.LoadSb(sbJson)

' The following code parses the JSON response.
' A sample JSON response is shown below the sample code.
Dim productId As Long
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 String
Dim productTemplate_suffix As Long
Dim productPublished_scope As String
Dim productTags As String
Dim productImage As Long
Dim i As Long
Dim count_i As Long
Dim id As Long
Dim product_id As Long
Dim title As String
Dim price As String
Dim sku As String
Dim position As Long
Dim grams As Long
Dim inventory_policy As String
Dim compare_at_price As Long
Dim fulfillment_service As String
Dim inventory_management As Long
Dim option1 As String
Dim option2 As Long
Dim option3 As Long
Dim created_at As String
Dim updated_at As String
Dim taxable As Long
Dim barcode As Long
Dim image_id As Long
Dim inventory_quantity As Long
Dim weight As Long
Dim weight_unit As String
Dim old_inventory_quantity As Long
Dim requires_shipping As Long
Dim name As String
Dim j As Long
Dim count_j As Long
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.StringOf("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")
Do 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
Loop
i = 0
count_i = json.SizeOfArray("product.options")
Do 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")
    Do While j < count_j
        json.J = j
        strVal = json.StringOf("product.options[i].values[j]")
        j = j + 1
    Loop
    i = i + 1
Loop
i = 0
count_i = json.SizeOfArray("product.images")
Do While i < count_i
    json.I = i
    i = i + 1
Loop

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

' {
'   "product": {
'     "id": 1071559755,
'     "title": "Burton Custom Freestyle 151",
'     "body_html": "<strong>Good snowboard!<\/strong>",
'     "vendor": "Burton",
'     "product_type": "Snowboard",
'     "created_at": "2017-09-22T14:48:54-04:00",
'     "handle": "burton-custom-freestyle-151",
'     "updated_at": "2017-09-22T14:48:55-04:00",
'     "published_at": "2017-09-22T14:48:54-04:00",
'     "template_suffix": null,
'     "published_scope": "global",
'     "tags": "",
'     "variants": [
'       {
'         "id": 1070325225,
'         "product_id": 1071559755,
'         "title": "First",
'         "price": "10.00",
'         "sku": "123",
'         "position": 1,
'         "grams": 0,
'         "inventory_policy": "deny",
'         "compare_at_price": null,
'         "fulfillment_service": "manual",
'         "inventory_management": null,
'         "option1": "First",
'         "option2": null,
'         "option3": null,
'         "created_at": "2017-09-22T14:48:54-04:00",
'         "updated_at": "2017-09-22T14:48:54-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
'       },
'       {
'         "id": 1070325226,
'         "product_id": 1071559755,
'         "title": "Second",
'         "price": "20.00",
'         "sku": "123",
'         "position": 2,
'         "grams": 0,
'         "inventory_policy": "deny",
'         "compare_at_price": null,
'         "fulfillment_service": "manual",
'         "inventory_management": null,
'         "option1": "Second",
'         "option2": null,
'         "option3": null,
'         "created_at": "2017-09-22T14:48:54-04:00",
'         "updated_at": "2017-09-22T14:48:54-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": 1022828915,
'         "product_id": 1071559755,
'         "name": "Title",
'         "position": 1,
'         "values": [
'           "First",
'           "Second"
'         ]
'       }
'     ],
'     "images": [
'     ],
'     "image": null
'   }
' }

Debug.Print "Example Completed."