AddAttribute - Insert New Attribute in XML Node

Demonstrates adding an name=value attribute to an XML tag.

This example uses the XML sample file sample1.xml. The sample1.xml file contains this content:

Download Chilkat XML ActiveX

CREATE PROCEDURE ChilkatSample
AS
BEGIN
    DECLARE @hr int
    DECLARE @sTmp0 nvarchar(4000)
    DECLARE @xml int
    EXEC @hr = sp_OACreate 'Chilkat.Xml', @xml OUT
    IF @hr <> 0
    BEGIN
        PRINT 'Failed to create ActiveX component'
        RETURN
    END

    DECLARE @success int

    EXEC sp_OAMethod @xml, 'LoadXmlFile', @success OUT, 'sample1.xml'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @xml, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        RETURN
      END

    --  Navigate to the "books" node:
    DECLARE @bFound int

    EXEC sp_OAMethod @xml, 'FindChild2', @bFound OUT, 'books'
    IF @bFound = 0
      BEGIN

        PRINT 'No books child found!'
        RETURN
      END

    DECLARE @numChildren int

    EXEC sp_OAGetProperty @xml, 'NumChildren', @numChildren OUT

    DECLARE @i int

    SELECT @i = 0
    WHILE @i <= @numChildren - 1
      BEGIN

        --  Navigate to the Nth book (we'll assume success...)
        EXEC sp_OAMethod @xml, 'GetChild2', @bFound OUT, @i

        --  Display the book title:
        EXEC sp_OAMethod @xml, 'GetAttrValue', @sTmp0 OUT, 'title'
        PRINT @sTmp0

        --  Add a new integer attribute:
        --  Should never fail..
        EXEC sp_OAMethod @xml, 'AddAttributeInt', @success OUT, 'bookId', @i

        --  Add a new unread="yes" attribute:
        EXEC sp_OAMethod @xml, 'AddAttribute', @success OUT, 'unread', 'yes'

        --  Navigate back up to the parent:
        EXEC sp_OAMethod @xml, 'GetParent2', @success OUT

        SELECT @i = @i + 1
      END

    --  Navigate back to the document root:
    EXEC sp_OAMethod @xml, 'GetRoot2', NULL

    --  Save the updated document:
    EXEC sp_OAMethod @xml, 'SaveXml', @success OUT, 'modified.xml'
    IF @success <> 1
      BEGIN
        EXEC sp_OAGetProperty @xml, 'LastErrorText', @sTmp0 OUT

        PRINT @sTmp0
        RETURN
      END
END
GO