Chilkat HOME Android™ Classic ASP C C++ C# Mono C# .NET Core C# C# UWP/WinRT DataFlex Delphi ActiveX Delphi DLL Visual FoxPro Java Lianja MFC Objective-C Perl PHP ActiveX PHP Extension PowerBuilder PowerShell PureBasic CkPython Chilkat2-Python Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ Visual Basic 6.0 VB.NET VB.NET UWP/WinRT VBScript Xojo Plugin Node.js Excel Go
(Excel) Shopify Create New ProductCreate a new product
Dim rest As Chilkat.Rest Set rest = Chilkat.NewRest success = rest.SetAuthBasic("SHOPIFY_PRIVATE_API_KEY","SHOPIFY_PRIVATE_API_SECRET_KEY") success = rest.Connect("chilkat.myshopify.com",443,True,True) If (success <> True) 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 Chilkat.JsonObject Set jsonReq = Chilkat.NewJsonObject 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.images[0].attachment","R0lGODlhAQABAIAAAAAAAAAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw==") ' 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", ' "images": [ ' { ' "attachment": "R0lGODlhAQABAIAAAAAAAAAAACH5BAEAAAAALAAAAAABAAEAAAICRAEAOw==" ' } ' ] ' } ' } Dim sbReq As Chilkat.StringBuilder Set sbReq = Chilkat.NewStringBuilder success = jsonReq.EmitSb(sbReq) success = rest.AddHeader("Content-Type","application/json") Dim sbJson As Chilkat.StringBuilder Set sbJson = Chilkat.NewStringBuilder success = rest.FullRequestSb("POST","/admin/products.json",sbReq,sbJson) If (success <> True) 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 Chilkat.JsonObject Set json = Chilkat.NewJsonObject success = json.LoadSb(sbJson) ' The following code parses the JSON response. ' A sample JSON response is shown below the sample code. 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") productImageId = json.IntOf("product.image.id") productImageProduct_id = json.IntOf("product.image.product_id") productImagePosition = json.IntOf("product.image.position") productImageCreated_at = json.StringOf("product.image.created_at") productImageUpdated_at = json.StringOf("product.image.updated_at") productImageWidth = json.IntOf("product.image.width") productImageHeight = json.IntOf("product.image.height") productImageSrc = json.StringOf("product.image.src") 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 id = json.IntOf("product.images[i].id") product_id = json.IntOf("product.images[i].product_id") position = json.IntOf("product.images[i].position") created_at = json.StringOf("product.images[i].created_at") updated_at = json.StringOf("product.images[i].updated_at") width = json.IntOf("product.images[i].width") height = json.IntOf("product.images[i].height") src = json.StringOf("product.images[i].src") j = 0 count_j = json.SizeOfArray("product.images[i].variant_ids") Do While j < count_j json.J = j j = j + 1 Loop i = i + 1 Loop i = 0 count_i = json.SizeOfArray("image.product.variant_ids") 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": 1071559747, ' "title": "Burton Custom Freestyle 151", ' "body_html": "<strong>Good snowboard!<\/strong>", ' "vendor": "Burton", ' "product_type": "Snowboard", ' "created_at": "2017-09-22T14:48:43-04:00", ' "handle": "burton-custom-freestyle-151", ' "updated_at": "2017-09-22T14:48:44-04:00", ' "published_at": "2017-09-22T14:48:43-04:00", ' "template_suffix": null, ' "published_scope": "global", ' "tags": "", ' "variants": [ ' { ' "id": 1070325218, ' "product_id": 1071559747, ' "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:44-04:00", ' "updated_at": "2017-09-22T14:48:44-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": 1022828903, ' "product_id": 1071559747, ' "name": "Title", ' "position": 1, ' "values": [ ' "Default Title" ' ] ' } ' ], ' "images": [ ' { ' "id": 1001473945, ' "product_id": 1071559747, ' "position": 1, ' "created_at": "2017-09-22T14:48:43-04:00", ' "updated_at": "2017-09-22T14:48:43-04:00", ' "width": 1, ' "height": 1, ' "src": "https:\/\/cdn.shopify.com\/s\/files\/1\/0006\/9093\/3842\/products\/df3e567d6f16d040326c7a0ea29a4f41.gif?v=1506106123", ' "variant_ids": [ ' ] ' } ' ], ' "image": { ' "id": 1001473945, ' "product_id": 1071559747, ' "position": 1, ' "created_at": "2017-09-22T14:48:43-04:00", ' "updated_at": "2017-09-22T14:48:43-04:00", ' "width": 1, ' "height": 1, ' "src": "https:\/\/cdn.shopify.com\/s\/files\/1\/0006\/9093\/3842\/products\/df3e567d6f16d040326c7a0ea29a4f41.gif?v=1506106123", ' "variant_ids": [ ' ] ' } ' } ' } Debug.Print "Example Completed." |
© 2000-2022 Chilkat Software, Inc. All Rights Reserved.