SQL Server

Demonstrate XML SearchForTag2

Demonstrates how to use SearchForTag2. SQL Server

--
CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @iTmp0 int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @success int
    SELECT @success = 0

    DECLARE @xml int
    EXEC @hr = sp_OACreate 'Chilkat.Xml', @xml OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    --  Load the following XML:

    --  	<Test>
    --  	    <testchild1>
    --  	        test
    --  	    </testchild1>
    --  	    <testchild1>
    --  	        test1
    --  	    </testchild1>
    --  	    <testchild1>
    --  	        test2
    --  	    </testchild1>
    --  	    <testchild1>
    --  	        test3
    --  	    </testchild1>
    --  	    <testchild1>
    --  	        test4
    --  	    </testchild1>
    --  	    <testchild1>
    --  	        test5
    --  	    </testchild1>
    --  	    <testchild1>
    --  	        test6
    --  	    </testchild1>
    --  	</Test>

    EXEC sp_OAMethod @xml, 'LoadXml', @success OUT, '<Test><testchild1>test</testchild1><testchild1>test1</testchild1><testchild1>test2</testchild1><testchild1>test3</testchild1><testchild1>test4</testchild1><testchild1>test5</testchild1><testchild1>test6</testchild1></Test>'

    DECLARE @i int
    SELECT @i = 0
    DECLARE @xmlSearch int
    EXEC sp_OAMethod @xml, 'GetRoot', @xmlSearch OUT
    DECLARE @afterPtr int
    EXEC sp_OAMethod @xml, 'GetRoot', @afterPtr OUT
    DECLARE @pTemp int

    --  Alway begin the search from the root.
    EXEC sp_OAMethod @xmlSearch, 'SearchForTag2', @iTmp0 OUT, @afterPtr, 'testchild1'
    WHILE @iTmp0
      BEGIN
        --  If successful, xmlSearch now points to the found element.
        SELECT @i = @i + 1

        --  Set afterPtr = xmlSearch (so we find the next match after the one we just found)
        --  Rest xmlSearch to the root of the XML tree to be searched.

        EXEC sp_OAGetProperty @xmlSearch, 'Content', @sTmp0 OUT
        PRINT @i + ': ' + @sTmp0
        SELECT @pTemp = @afterPtr
        SELECT @afterPtr = @xmlSearch
        EXEC sp_OAMethod @pTemp, 'GetRoot2', NULL
        SELECT @xmlSearch = @pTemp
      END

    EXEC @hr = sp_OADestroy @xmlSearch

    EXEC @hr = sp_OADestroy @afterPtr


    PRINT '----'

    --  A better way:
    DECLARE @sbState int
    EXEC @hr = sp_OACreate 'Chilkat.StringBuilder', @sbState OUT

    SELECT @i = 0
    EXEC sp_OAMethod @xml, 'NextInTraversal2', @iTmp0 OUT, @sbState
    WHILE @iTmp0 <> 0
      BEGIN
        EXEC sp_OAMethod @xml, 'TagEquals', @iTmp0 OUT, 'testchild1'
        IF @iTmp0 = 1
          BEGIN

            EXEC sp_OAGetProperty @xml, 'Content', @sTmp0 OUT
            PRINT @i + ': ' + @sTmp0
            SELECT @i = @i + 1
          END
      END
    EXEC sp_OAMethod @xml, 'GetRoot2', NULL

    EXEC @hr = sp_OADestroy @xml
    EXEC @hr = sp_OADestroy @sbState


END
GO