I have extracted into XML formatted file a Recordset from an SQL DB and I would like to change the <tags> in this xml file. Any ideas?!

Regards,
Theodore.

Use MSXML2 DOM objects to access each nodes. I believe you can change the field names. Don't know the exact objects to do this, but look at both the node and element objects in the SDK.

Brian

Hi Theodore,

I assume this is a continuation of your posts yesterday regarding how to get XML out of SQL Server?

If you want different tag names I see 4 options:
1. use XSLT to transform your current XML into the format you want
2. do as Brian says and use the DOM object to go through the XML one node at a time creating a new DOM object as you go with the tag names you want
3. change your SQL query to a FOR XML query and use field aliases to get the tag names you want
4. use a "standard" SQL query but instead of using the rs.Save method, go through the recordset one row at a time and use a new XML DOM to create XML from the recordset with the tag names you need

Personally I would go with 1 or 3 depending on what XML you have and what XML you need...

hth
Phil

Thanks Brian,
The use of MSXML2 objects solved the problem. The code follows:


Dim XmlXSLTFile
Dim XmlSrcFile
Dim XmlOutFile

' file names
XmlXSLTFile = "F:\thodoris\Work\books.xsl"
XmlSrcFile = "F:\thodoris\Work\books.xml"
XmlOutFile = "F:\thodoris\Work\\booksOUT.xml"

' load XSLT (in memory)
Dim XmlXSLT
Set XmlXSLT = CreateObject("MSXML2.DOMDocument.4.0")
XmlXSLT.Load (XmlXSLTFile)

' load source XML document file (in memory)
Dim XmlDoc
Set XmlDoc = CreateObject("MSXML2.DOMDocument.4.0")
XmlDoc.Load (XmlSrcFile)

' create new empty output (in memory) document
Dim XmlOut
Set XmlOut = CreateObject("MSXML2.DOMDocument.4.0")

' transform source document to output document according to
' given XSLT
XmlDoc.transformNodeToObject XmlXSLT, XmlOut

' save output XML document to file
XmlOut.save (XmlOutFile)


Regards,
Theodore.

Thanks Phil,
Between 1 & 3 I went for 3 because in case I change my SQL query to a FOR XML query the xml formatted file I am getting from the "rsTitles.Save szFile, 1 'adPersistXML" does not appear to be in an acceptable xml format.

Regards,
Theodore.