load fragment into xmldocument without sqlxml

[Joe Gass]

Hi
I have a query that uses for xml auto
I'd like to load this into an xmldocument with an xmlreader
e.g.
Dim xr As XmlReader
xmlDoc = New XmlDocument
xr = oCom.ExecuteXmlReader

If xr.Read Then
xmlDoc.Load(xr)
End If

This fails as there is not root node.
I've seen that a SqlXmlCommand can be use to specify a root to a fragment
Is there another way to do this without the need of sqlxml?
Cheers

[Derek Harmon]

"Joe Gass" <jo*****@online.nospam> wrote in message news:uN**************@tk2msftngp13.phx.gbl...

xr = oCom.ExecuteXmlReader : : This fails as there is not root node.
I've seen that a SqlXmlCommand can be use to specify a root to a fragment
Is there another way to do this without the need of sqlxml?

Joe,

Create a document element in the XmlDocument manually to act as the
root. Then append child nodes to it that you get from the XmlReader
returned from ExecuteXmlReader using ReadNode( ). Something like
the following (untested) code,

' Set-up
Dim root As XmlElement
root = xmlDoc.CreateElement( "root")
xmlDoc.AppendChild( root)
xr.MoveToContent( )

' Repeat for each node until XmlReader is exhausted
Dim node As XmlNode
node = xmlDoc.ReadNode( xr)
root.AppendChild( node)
Derek Harmon

[Joe Gass]

"Derek Harmon" <lo*******@msn.com> wrote in message
news:%2****************@TK2MSFTNGP12.phx.gbl...

"Joe Gass" <jo*****@online.nospam> wrote in message
news:uN**************@tk2msftngp13.phx.gbl...

xr = oCom.ExecuteXmlReader

: :

This fails as there is not root node.
I've seen that a SqlXmlCommand can be use to specify a root to a fragment
Is there another way to do this without the need of sqlxml?

Joe,

Create a document element in the XmlDocument manually to act as the
root. Then append child nodes to it that you get from the XmlReader
returned from ExecuteXmlReader using ReadNode( ). Something like
the following (untested) code,

' Set-up
Dim root As XmlElement
root = xmlDoc.CreateElement( "root")
xmlDoc.AppendChild( root)
xr.MoveToContent( )

' Repeat for each node until XmlReader is exhausted
Dim node As XmlNode
node = xmlDoc.ReadNode( xr)
root.AppendChild( node)
Derek Harmon

Thanks Derek

Works a treat, I found a work-around but resulting xml wasn't quite as
expected
sb = New StringBuilder
sb.Append("<listings>")
Do While xr.Read
sb.Append(xr.ReadOuterXml)
Loop
sb.Append("</listings>")

Your method works a treat, thanks for taking the time to answer me
Cheers