(SQL Server) Create JSON Document

Sample code to create the following JSON document:

{
  "Title": "Pan's Labyrinth",
  "Director": "Guillermo del Toro",
  "Original_Title": "El laberinto del fauno",
  "Year_Released": 2006
}

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)
    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

    -- The only reason for failure in the following lines of code would be an out-of-memory condition..

    -- An index value of -1 is used to append at the end.
    EXEC sp_OAMethod @json, 'AddStringAt', @success OUT, -1, 'Title', 'Pan''s Labyrinth'
    EXEC sp_OAMethod @json, 'AddStringAt', @success OUT, -1, 'Director', 'Guillermo del Toro'
    EXEC sp_OAMethod @json, 'AddStringAt', @success OUT, -1, 'Original_Title', 'El laberinto del fauno'
    EXEC sp_OAMethod @json, 'AddIntAt', @success OUT, -1, 'Year_Released', 2006

    EXEC sp_OASetProperty @json, 'EmitCompact', 0
    EXEC sp_OAMethod @json, 'Emit', @sTmp0 OUT
    PRINT @sTmp0

    EXEC @hr = sp_OADestroy @json


END
GO