Visual Basic 6.0
Visual Basic 6.0
WooCommerce Delete a Product
See more WooCommerce Examples
Demonstrates how to delete a product from WooCommerce.Chilkat Visual Basic 6.0 Downloads
Dim success As Long
success = 0
' This example assumes the Chilkat API to have been previously unlocked.
' See Global Unlock Sample for sample code.
Dim http As New ChilkatHttp
' 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 New ChilkatHttpResponse
success = http.HttpNoBody("DELETE","https://example.com/wp-json/wc/v3/products/794?force=true",resp)
If (success = 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\">$</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