(SQL Server) Load a JsonArray

Demonstrates how to load a JsonArray.

Note: This example requires Chilkat v9.5.0.64 or greater.

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 requires Chilkat v9.5.0.64 or greater.

    -- Loading into a new JSON array is simple and straightforward.
    DECLARE @a int
    -- Use "Chilkat_9_5_0.JsonArray" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.JsonArray', @a OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int
    EXEC sp_OAMethod @a, 'Load', @success OUT, '[ 1,2,3,4 ]'

    -- Output:  [1,2,3,4]
    EXEC sp_OAMethod @a, 'Emit', @sTmp0 OUT
    PRINT @sTmp0

    PRINT '--------'

    -- The JsonArray's Load and LoadSb methods have a peculiar behavior when
    -- it is already part of a JSON document.  In this case, the JsonArray
    -- becomes detached, and the original document remains unchanged.
    -- This is intentional due to the nature of the internal implementation.
    -- For example:

    DECLARE @json int
    -- Use "Chilkat_9_5_0.JsonObject" for versions of Chilkat < 10.0.0
    EXEC @hr = sp_OACreate 'Chilkat.JsonObject', @json OUT

    EXEC sp_OAMethod @json, 'Load', @success OUT, '{ "abc": [ 1,2,3,4 ] }'

    -- Output:  (json) {"abc":[1,2,3,4]}

    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    PRINT '(json) ' + @sTmp0

    PRINT '--------'

    DECLARE @abc int
    EXEC sp_OAMethod @json, 'ArrayOf', @abc OUT, 'abc'
    -- When Load is called, abc becomes it's own document, and the original is not modified.
    EXEC sp_OAMethod @abc, 'Load', @success OUT, '[ 5,6,7,8 ]'

    -- Output: (abc) [5,6,7,8]

    EXEC sp_OAMethod @abc, 'Emit', @sTmp0 OUT
    PRINT '(abc) ' + @sTmp0

    PRINT '--------'

    -- Output: (json) {"abc":[1,2,3,4]}

    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    PRINT '(json) ' + @sTmp0

    PRINT '--------'
    EXEC @hr = sp_OADestroy @abc


    EXEC @hr = sp_OADestroy @a
    EXEC @hr = sp_OADestroy @json


END
GO