(Visual Basic 6.0) WooCommerce Delete a Product

See more WooCommerce Examples

Demonstrates how to delete a product from WooCommerce.

For more information, see https://woocommerce.github.io/woocommerce-rest-api-docs/#delete-a-product

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

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

Dim http As New ChilkatHttp
Dim success As Long

' Implements the following CURL command:

' curl -X DELETE https://example.com/wp-json/wc/v3/products/794?force=true \
'     -u consumer_key:consumer_secret

' Use the following online tool to generate HTTP code from a CURL command
' Convert a cURL Command to HTTP Source Code

http.BasicAuth = 1
http.Login = "consumer_key"
http.Password = "consumer_secret"

Dim resp As ChilkatHttpResponse
Set resp = http.QuickRequest("DELETE","https://example.com/wp-json/wc/v3/products/794?force=true")
If (http.LastMethodSuccess = 0) Then
    Debug.Print http.LastErrorText
    Exit Sub
End If

Dim sbResponseBody As New ChilkatStringBuilder
success = resp.GetBodySb(sbResponseBody)
Dim jResp As New ChilkatJsonObject
success = jResp.LoadSb(sbResponseBody)
jResp.EmitCompact = 0

Debug.Print "Response Body:"
Debug.Print jResp.Emit()

Dim respStatusCode As Long
respStatusCode = resp.StatusCode
Debug.Print "Response Status Code = " & respStatusCode
If (respStatusCode >= 400) Then
    Debug.Print "Response Header:"
    Debug.Print resp.Header
    Debug.Print "Failed."

    Exit Sub
End If

' Sample JSON response:
' (Sample code for parsing the JSON response is shown below)

' {
'   "id": 794,
'   "name": "Premium Quality",
'   "slug": "premium-quality-19",
'   "permalink": "https://example.com/product/premium-quality-19/",
'   "date_created": "2017-03-23T17:01:14",
'   "date_created_gmt": "2017-03-23T20:01:14",
'   "date_modified": "2017-03-23T17:01:14",
'   "date_modified_gmt": "2017-03-23T20:01:14",
'   "type": "simple",
'   "status": "publish",
'   "featured": false,
'   "catalog_visibility": "visible",
'   "description": "<p>Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas. Vestibulum tortor quam, feugiat vitae, ultricies eget, tempor sit amet, ante. Donec eu libero sit amet quam egestas semper. Aenean ultricies mi vitae est. Mauris placerat eleifend leo.</p>\n",
'   "short_description": "<p>Pellentesque habitant morbi tristique senectus et netus et malesuada fames ac turpis egestas.</p>\n",
'   "sku": "",
'   "price": "24.54",
'   "regular_price": "24.54",
'   "sale_price": "",
'   "date_on_sale_from": null,
'   "date_on_sale_from_gmt": null,
'   "date_on_sale_to": null,
'   "date_on_sale_to_gmt": null,
'   "price_html": "<span class=\"woocommerce-Price-amount amount\"><span class=\"woocommerce-Price-currencySymbol\">&#36;</span>24.54</span>",
'   "on_sale": false,
'   "purchasable": true,
'   "total_sales": 0,
'   "virtual": false,
'   "downloadable": false,
'   "downloads": [
'   ],
'   "download_limit": -1,
'   "download_expiry": -1,
'   "external_url": "",
'   "button_text": "",
'   "tax_status": "taxable",
'   "tax_class": "",
'   "manage_stock": false,
'   "stock_quantity": null,
'   "stock_status": "instock",
'   "backorders": "no",
'   "backorders_allowed": false,
'   "backordered": false,
'   "sold_individually": false,
'   "weight": "",
'   "dimensions": {
'     "length": "",
'     "width": "",
'     "height": ""
'   },
'   "shipping_required": true,
'   "shipping_taxable": true,
'   "shipping_class": "",
'   "shipping_class_id": 0,
'   "reviews_allowed": true,
'   "average_rating": "0.00",
'   "rating_count": 0,
'   "related_ids": [
'     479,
'     387,
'     22,
'     463,
'     396
'   ],
'   "upsell_ids": [
'   ],
'   "cross_sell_ids": [
'   ],
'   "parent_id": 0,
'   "purchase_note": "",
'   "categories": [
'     {
'       "id": 9,
'       "name": "Clothing",
'       "slug": "clothing"
'     },
'     {
'       "id": 14,
'       "name": "T-shirts",
'       "slug": "t-shirts"
'     }
'   ],
'   "tags": [
'   ],
'   "images": [
'     {
'       "id": 792,
'       "date_created": "2017-03-23T14:01:13",
'       "date_created_gmt": "2017-03-23T20:01:13",
'       "date_modified": "2017-03-23T14:01:13",
'       "date_modified_gmt": "2017-03-23T20:01:13",
'       "src": "https://example.com/wp-content/uploads/2017/03/T_2_front-4.jpg",
'       "name": "",
'       "alt": ""
'     },
'     {
'       "id": 793,
'       "date_created": "2017-03-23T14:01:14",
'       "date_created_gmt": "2017-03-23T20:01:14",
'       "date_modified": "2017-03-23T14:01:14",
'       "date_modified_gmt": "2017-03-23T20:01:14",
'       "src": "https://example.com/wp-content/uploads/2017/03/T_2_back-2.jpg",
'       "name": "",
'       "alt": ""
'     }
'   ],
'   "attributes": [
'   ],
'   "default_attributes": [
'   ],
'   "variations": [
'   ],
'   "grouped_products": [
'   ],
'   "menu_order": 0,
'   "meta_data": [
'   ],
'   "_links": {
'     "self": [
'       {
'         "href": "https://example.com/wp-json/wc/v3/products/794"
'       }
'     ],
'     "collection": [
'       {
'         "href": "https://example.com/wp-json/wc/v3/products"
'       }
'     ]
'   }
' }

' Sample code for parsing the JSON response...
' Use the following online tool to generate parsing code from sample JSON:
' Generate Parsing Code from JSON

Dim date_created As New DtObj
Dim date_created_gmt As New DtObj
Dim date_modified As New DtObj
Dim date_modified_gmt As New DtObj
Dim date_on_sale_from As New DtObj
Dim date_on_sale_from_gmt As New DtObj
Dim date_on_sale_to As New DtObj
Dim date_on_sale_to_gmt As New DtObj
Dim intVal As Long
Dim src As String
Dim alt As String
Dim href As String

Dim id As Long
id = jResp.IntOf("id")
Dim name As String
name = jResp.StringOf("name")
Dim slug As String
slug = jResp.StringOf("slug")
Dim permalink As String
permalink = jResp.StringOf("permalink")
success = jResp.DtOf("date_created",0,date_created)
success = jResp.DtOf("date_created_gmt",0,date_created_gmt)
success = jResp.DtOf("date_modified",0,date_modified)
success = jResp.DtOf("date_modified_gmt",0,date_modified_gmt)
Dim v_type As String
v_type = jResp.StringOf("type")
Dim status As String
status = jResp.StringOf("status")
Dim featured As Long
featured = jResp.BoolOf("featured")
Dim catalog_visibility As String
catalog_visibility = jResp.StringOf("catalog_visibility")
Dim description As String
description = jResp.StringOf("description")
Dim short_description As String
short_description = jResp.StringOf("short_description")
Dim sku As String
sku = jResp.StringOf("sku")
Dim price As String
price = jResp.StringOf("price")
Dim regular_price As String
regular_price = jResp.StringOf("regular_price")
Dim sale_price As String
sale_price = jResp.StringOf("sale_price")
success = jResp.DtOf("date_on_sale_from",0,date_on_sale_from)
success = jResp.DtOf("date_on_sale_from_gmt",0,date_on_sale_from_gmt)
success = jResp.DtOf("date_on_sale_to",0,date_on_sale_to)
success = jResp.DtOf("date_on_sale_to_gmt",0,date_on_sale_to_gmt)
Dim price_html As String
price_html = jResp.StringOf("price_html")
Dim on_sale As Long
on_sale = jResp.BoolOf("on_sale")
Dim purchasable As Long
purchasable = jResp.BoolOf("purchasable")
Dim total_sales As Long
total_sales = jResp.IntOf("total_sales")
Dim virtual As Long
virtual = jResp.BoolOf("virtual")
Dim downloadable As Long
downloadable = jResp.BoolOf("downloadable")
Dim download_limit As Long
download_limit = jResp.IntOf("download_limit")
Dim download_expiry As Long
download_expiry = jResp.IntOf("download_expiry")
Dim external_url As String
external_url = jResp.StringOf("external_url")
Dim button_text As String
button_text = jResp.StringOf("button_text")
Dim tax_status As String
tax_status = jResp.StringOf("tax_status")
Dim tax_class As String
tax_class = jResp.StringOf("tax_class")
Dim manage_stock As Long
manage_stock = jResp.BoolOf("manage_stock")
Dim stock_quantity As String
stock_quantity = jResp.StringOf("stock_quantity")
Dim stock_status As String
stock_status = jResp.StringOf("stock_status")
Dim backorders As String
backorders = jResp.StringOf("backorders")
Dim backorders_allowed As Long
backorders_allowed = jResp.BoolOf("backorders_allowed")
Dim backordered As Long
backordered = jResp.BoolOf("backordered")
Dim sold_individually As Long
sold_individually = jResp.BoolOf("sold_individually")
Dim weight As String
weight = jResp.StringOf("weight")
Dim dimensionsLength As String
dimensionsLength = jResp.StringOf("dimensions.length")
Dim dimensionsWidth As String
dimensionsWidth = jResp.StringOf("dimensions.width")
Dim dimensionsHeight As String
dimensionsHeight = jResp.StringOf("dimensions.height")
Dim shipping_required As Long
shipping_required = jResp.BoolOf("shipping_required")
Dim shipping_taxable As Long
shipping_taxable = jResp.BoolOf("shipping_taxable")
Dim shipping_class As String
shipping_class = jResp.StringOf("shipping_class")
Dim shipping_class_id As Long
shipping_class_id = jResp.IntOf("shipping_class_id")
Dim reviews_allowed As Long
reviews_allowed = jResp.BoolOf("reviews_allowed")
Dim average_rating As String
average_rating = jResp.StringOf("average_rating")
Dim rating_count As Long
rating_count = jResp.IntOf("rating_count")
Dim parent_id As Long
parent_id = jResp.IntOf("parent_id")
Dim purchase_note As String
purchase_note = jResp.StringOf("purchase_note")
Dim menu_order As Long
menu_order = jResp.IntOf("menu_order")
Dim i As Long
i = 0
Dim count_i As Long
count_i = jResp.SizeOfArray("downloads")
Do While i < count_i
    jResp.I = i
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("related_ids")
Do While i < count_i
    jResp.I = i
    intVal = jResp.IntOf("related_ids[i]")
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("upsell_ids")
Do While i < count_i
    jResp.I = i
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("cross_sell_ids")
Do While i < count_i
    jResp.I = i
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("categories")
Do While i < count_i
    jResp.I = i
    id = jResp.IntOf("categories[i].id")
    name = jResp.StringOf("categories[i].name")
    slug = jResp.StringOf("categories[i].slug")
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("tags")
Do While i < count_i
    jResp.I = i
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("images")
Do While i < count_i
    jResp.I = i
    id = jResp.IntOf("images[i].id")
    success = jResp.DtOf("images[i].date_created",0,date_created)
    success = jResp.DtOf("images[i].date_created_gmt",0,date_created_gmt)
    success = jResp.DtOf("images[i].date_modified",0,date_modified)
    success = jResp.DtOf("images[i].date_modified_gmt",0,date_modified_gmt)
    src = jResp.StringOf("images[i].src")
    name = jResp.StringOf("images[i].name")
    alt = jResp.StringOf("images[i].alt")
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("attributes")
Do While i < count_i
    jResp.I = i
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("default_attributes")
Do While i < count_i
    jResp.I = i
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("variations")
Do While i < count_i
    jResp.I = i
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("grouped_products")
Do While i < count_i
    jResp.I = i
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("meta_data")
Do While i < count_i
    jResp.I = i
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("_links.self")
Do While i < count_i
    jResp.I = i
    href = jResp.StringOf("_links.self[i].href")
    i = i + 1
Loop
i = 0
count_i = jResp.SizeOfArray("_links.collection")
Do While i < count_i
    jResp.I = i
    href = jResp.StringOf("_links.collection[i].href")
    i = i + 1
Loop