(Visual Basic 6.0) Shopify Retrieve the item's inventory levels

After you have the inventory item ID, you can use it with the InventoryLevel resource to find the levels and locations for the inventory item:

For more information, see https://shopify.dev/tutorials/manage-product-inventory-with-admin-api#retrieve-the-inventory-levels-for-a-product-variant

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

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

Dim http As New ChilkatHttp

http.Login = "SHOPIFY_PRIVATE_API_KEY"
http.Password = "SHOPIFY_PRIVATE_API_KEY"

http.Accept = "application/json"

' How to get the inventory item ID

Dim resp As ChilkatHttpResponse
Set resp = http.QuickRequest("GET","https://{shop}.myshopify.com/admin/api/2020-04/inventory_levels.json?inventory_item_ids={inventory_item_id}")
If (http.LastMethodSuccess <> 1) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Debug.Print "Response Status Code: " & resp.StatusCode

Dim jsonResponse As New ChilkatJsonObject
success = jsonResponse.Load(resp.BodyStr)
jsonResponse.EmitCompact = 0
Debug.Print jsonResponse.Emit()

If (resp.StatusCode <> 200) Then
    Debug.Print "Failed."

    Exit Sub
End If

' Sample output...
' (See the parsing code below..)
' 
' Use the this online tool to generate parsing code from sample JSON: 
' Generate Parsing Code from JSON

' {
'   "inventory_levels": [
'     {
'       "inventory_item_id": 12250274365496,
'       "location_id": 6884556842,
'       "available": 8,
'       "updated_at": "2018-06-18T11:49:50-04:00",
'       "admin_graphql_api_id": "gid://shopify/InventoryLevel/6485147690?inventory_item_id=12250274365496"
'     },
'     {
'       "inventory_item_id": 12250274365496,
'       "location_id": 13968834616,
'       "available": 50,
'       "updated_at": "2018-06-26T14:44:30-04:00",
'       "admin_graphql_api_id": "gid://shopify/InventoryLevel/13570506808?inventory_item_id=12250274365496"
'     },
'     {
'       "inventory_item_id": 12250274365496,
'       "location_id": 13968867384,
'       "available": 100,
'       "updated_at": "2018-06-26T14:44:30-04:00",
'       "admin_graphql_api_id": "gid://shopify/InventoryLevel/13570539576?inventory_item_id=12250274365496"
'     }
'   ]
' }
' 

Dim inventory_item_id As Long
Dim location_id As Long
Dim available As Long
Dim updated_at As String
Dim admin_graphql_api_id As String

Dim i As Long
i = 0
Dim count_i As Long
count_i = jsonResponse.SizeOfArray("inventory_levels")
Do While i < count_i
    jsonResponse.I = i
    inventory_item_id = jsonResponse.IntOf("inventory_levels[i].inventory_item_id")
    location_id = jsonResponse.IntOf("inventory_levels[i].location_id")
    available = jsonResponse.IntOf("inventory_levels[i].available")
    updated_at = jsonResponse.StringOf("inventory_levels[i].updated_at")
    admin_graphql_api_id = jsonResponse.StringOf("inventory_levels[i].admin_graphql_api_id")
    i = i + 1
Loop