Sample code for 30+ languages & platforms
SQL Server

JSON AddArrayCopyAt Example

Demonstrates the AddArrayCopyAt function.

Note: This example requires Chilkat v9.5.0.82 or above.

Chilkat SQL Server Downloads

SQL Server
-- 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)
    DECLARE @json int
    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, 'Load', @success OUT, '{ "name": "John", "marbles": 100 }'

    DECLARE @jarr int
    EXEC @hr = sp_OACreate 'Chilkat.JsonArray', @jarr OUT

    EXEC sp_OAMethod @jarr, 'Load', @success OUT, '[ 1, 2, 3, "apple", "orange", [ 10, 20, 30 ], { "name": "Luther"} ]'

    -- Copy the contents of jar to a new array member named "stuff".
    -- Insert the array at the 2nd position
    EXEC sp_OAMethod @json, 'AddArrayCopyAt', @success OUT, 1, 'stuff', @jarr

    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    PRINT @sTmp0
    -- Expected output is:  {"name":"John","stuff":[1,2,3,"apple","orange",[10,20,30],{"name":"Luther"}],"marbles":100}

    -- Note: The contents of the array were copied.
    -- If we modify the contents of jarr, it does not modify the array contained within "json" because it is a separate copy.
    -- For example:
    EXEC sp_OAMethod @jarr, 'AddIntAt', @success OUT, -1, 2020
    EXEC sp_OAMethod @jarr, 'Emit', @sTmp0 OUT
    PRINT @sTmp0
    -- Expected output: [1,2,3,"apple","orange",[10,20,30],{"name":"Luther"},2020]

    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    PRINT @sTmp0
    -- Remains unchanged: {"name":"John","stuff":[1,2,3,"apple","orange",[10,20,30],{"name":"Luther"}],"marbles":100}

    EXEC @hr = sp_OADestroy @json
    EXEC @hr = sp_OADestroy @jarr


END
GO