(SQL Server) Find Direct Child with Specific Tag

Demonstrates how to find a direct child having a specific tag.

The input XML, available at http://www.chilkatsoft.com/data/fruit.xml, is this:

<root>
    <fruit color="red">apple</fruit>
    <fruit color="green">pear</fruit>
    <veg color="orange">carrot</veg>
    <meat animal="cow">beef</meat>
    <xyz>
        <fruit color="blue">blueberry</fruit>
        <veg color="green">broccoli</veg>
    </xyz>
    <fruit color="purple">grape</fruit>
    <cheese color="yellow">cheddar</cheese>
</root>

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
    DECLARE @iTmp0 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

    -- The sample input XML is available at http://www.chilkatsoft.com/data/fruit.xml
    DECLARE @success int
    EXEC sp_OAMethod @xml, 'LoadXmlFile', @success OUT, 'qa_data/xml/fruit.xml'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @xml, 'LastErrorText', @sTmp0 OUT
        PRINT @sTmp0
        EXEC @hr = sp_OADestroy @xml
        RETURN
      END

    -- Find the direct child node having the tag "meat", and 
    -- return a new instance of the XML object referencing the
    -- child node, if found.
    DECLARE @child int
    EXEC sp_OAMethod @xml, 'FindChild', @child OUT, 'meat'
    EXEC sp_OAGetProperty @xml, 'LastMethodSuccess', @iTmp0 OUT
    IF @iTmp0 = 0
      BEGIN

        PRINT 'No direct child having the tag "meat" was found.'
      END
    ELSE
      BEGIN

        EXEC sp_OAGetProperty @child, 'Content', @sTmp0 OUT
        PRINT 'Content = ' + @sTmp0
        EXEC @hr = sp_OADestroy @child

      END

    -- The same can be accomplished without creating a new 
    -- XML object instance.  Instead, the FindChild2 method updates
    -- the caller's internal reference to the found child, if successful.
    EXEC sp_OAMethod @xml, 'FindChild2', @success OUT, 'meat'
    IF @success = 1
      BEGIN
        -- Success!  The xml object now references the found child.

        EXEC sp_OAGetProperty @xml, 'Content', @sTmp0 OUT
        PRINT 'Content = ' + @sTmp0
        -- Restore the reference back to the parent.
        EXEC sp_OAMethod @xml, 'GetParent2', @success OUT
      END
    ELSE
      BEGIN

        PRINT 'No direct child having the tag "meat" was found.'
      END

    EXEC @hr = sp_OADestroy @xml


END
GO