(SQL Server) Xml.ChildContent Example #2

Another Xml.UpdateChildContent example...

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 @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', 'abc'

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

    DECLARE @i int
    SELECT @i = 0
    WHILE @i < 10
      BEGIN
        EXEC sp_OASetProperty @xml, 'I', @i
        EXEC sp_OAMethod @sbValue, 'Clear', NULL
        DECLARE @success int
        EXEC sp_OAMethod @sbValue, 'AppendInt', @success OUT, @i
        EXEC sp_OAMethod @sbValue, 'GetAsString', @sTmp0 OUT
        EXEC sp_OAMethod @xml, 'UpdateChildContent', NULL, 'xyz|test[i]', @sTmp0
        SELECT @i = @i + 1
      END

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

    -- Output is:

    -- 	<?xml version="1.0" encoding="utf-8" ?>
    -- 	<abc>
    -- 	    <xyz>
    -- 	        <test>0</test>
    -- 	        <test>1</test>
    -- 	        <test>2</test>
    -- 	        <test>3</test>
    -- 	        <test>4</test>
    -- 	        <test>5</test>
    -- 	        <test>6</test>
    -- 	        <test>7</test>
    -- 	        <test>8</test>
    -- 	        <test>9</test>
    -- 	    </xyz>
    -- 	</abc>

    EXEC @hr = sp_OADestroy @xml
    EXEC @hr = sp_OADestroy @sbValue


END
GO