(SQL Server) Demonstrate the XML NewChildInt2 Method

Demonstrates the XML NewChildInt2 method.

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

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)
    -- Note: This example requires Chilkat v9.5.0.64 or later.

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

    EXEC sp_OASetProperty @xml, 'Tag', 'animal'

    DECLARE @i int
    SELECT @i = 0
    WHILE @i < 10
      BEGIN
        -- The first call (in the 1st loop iteration) automatically
        -- creates the children in the path.
        -- Each subsequent call finds the inner nodes in the path
        -- already exist, but always adds a new child at the leaf,
        -- even if it is a duplicate.
        EXEC sp_OAMethod @xml, 'NewChildInt2', NULL, 'bird|flightless|penguin|number', @i
        SELECT @i = @i + 1
      END

    EXEC sp_OAMethod @xml, 'GetXml', @sTmp0 OUT
    PRINT @sTmp0

    -- Output:

    -- 	<?xml version="1.0" encoding="utf-8" ?>
    -- 	<animal>
    -- 	    <bird>
    -- 	        <flightless>
    -- 	            <penguin>
    -- 	                <number>0</number>
    -- 	                <number>1</number>
    -- 	                <number>2</number>
    -- 	                <number>3</number>
    -- 	                <number>4</number>
    -- 	                <number>5</number>
    -- 	                <number>6</number>
    -- 	                <number>7</number>
    -- 	                <number>8</number>
    -- 	                <number>9</number>
    -- 	            </penguin>
    -- 	        </flightless>
    -- 	    </bird>
    -- 	</animal>
    -- 

    EXEC @hr = sp_OADestroy @xml


END
GO