SQL Server

Find and Delete Object from JSON Array

See more JSON Examples

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

--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    --  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
    EXEC @hr = sp_OACreate 'Chilkat.JsonObject', @json OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    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