(SQL Server) Find and Delete Object from JSON Array

Demonstrates how to find an delete an object from a JSON array of objects.

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

-- Important: See this note about string length limitations for strings returned by sp_OAMethod calls.
--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    -- Important: Do not use nvarchar(max).  See the warning about using nvarchar(max).
    DECLARE @sTmp0 nvarchar(4000)
    -- This example will delete the "Pasta" category object from Menu B.

    -- {
    --   "menus": [
    --     {
    --       "name": "Menu A",
    --       "categories": [
    -- 			{
    -- 			"name": "Kebabs",
    -- 			"description": "blah blah blah"
    -- 			},
    -- 			{
    -- 			"name": "Burgers",
    -- 			"description": "blah blah blah"
    -- 			},
    -- 			{
    -- 			"name": "Pasta",
    -- 			"description": "blah blah blah"
    -- 			},
    -- 			{
    -- 			"name": "Appetizers",
    -- 			"description": "blah blah blah"
    -- 			}
    -- 		]
    -- 	},
    --     {
    --       "name": "Menu B",
    --       "categories": [
    -- 			{
    -- 			"name": "Kebabs",
    -- 			"description": "blah blah blah"
    -- 			},
    -- 			{
    -- 			"name": "Burgers",
    -- 			"description": "blah blah blah"
    -- 			},
    -- 			{
    -- 			"name": "Pasta",
    -- 			"description": "blah blah blah"
    -- 			},
    -- 			{
    -- 			"name": "Appetizers",
    -- 			"description": "blah blah blah"
    -- 			}
    -- 		]
    -- 	  }
    -- 	]
    -- }

    DECLARE @json int
    -- Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.JsonObject', @json OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int
    EXEC sp_OAMethod @json, 'LoadFile', @success OUT, 'qa_data/json/menus.json'
    IF @success = 0
      BEGIN
        EXEC sp_OAGetProperty @json, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @json
        RETURN
      END

    -- Find Menu B.
    DECLARE @menu int
    EXEC sp_OAMethod @json, 'FindRecord', @menu OUT, 'menus', 'name', 'Menu B', 1
    -- assume menu is found..

    -- Get the categories array, and then find the index of the "Pasta" menu category.
    DECLARE @catArr int
    EXEC sp_OAMethod @menu, 'ArrayOf', @catArr OUT, 'categories'
    -- Assume it is found..

    -- Find the object where the name of the JSON member is "name", and the value is "Pasta"
    DECLARE @index int
    EXEC sp_OAMethod @catArr, 'FindObject', @index OUT, 'name', 'Pasta', 1
    IF @index < 0
      BEGIN

        PRINT 'Pasta not found.'
      END
    ELSE
      BEGIN

        -- Delete the "Pasta" category record from Menu B
        EXEC sp_OAMethod @catArr, 'DeleteAt', @success OUT, @index
        -- Assume OK..
      END

    -- Examine the JSON to see if it worked as expected..
    EXEC sp_OASetProperty @json, 'EmitCompact', 0
    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    PRINT @sTmp0

    EXEC @hr = sp_OADestroy @catArr

    EXEC @hr = sp_OADestroy @menu


    EXEC @hr = sp_OADestroy @json


END
GO