Need help with XML format in vb.net

[abaker.junk]

I have the following code:

Dim ds As New Data.DataSet("inventory")
Dim dt As New Data.DataTable("desk")

'dt.TableName = "desk"
With dt
.Columns.Add("item")
.Columns.Add("qty")
End With
dt.Rows.Add(New Object() {"Paper Clip", 100})
dt.Rows.Add(New Object() {"Stapler", 1})
dt.Rows.Add(New Object() {"Tape", 2})
ds.Tables.Add(dt)


At this point, ds.GetXml will produces the following XML:

<inventory>
<desk>
<item>Paper Clip</item>
<qty>100</qty>
</desk>
<desk>
<item>Stapler</item>
<qty>1</qty>
</desk>
<desk>
<item>Tape</item>
<qty>2</qty>
</desk>
</inventory>

What is the best way with VB.net to make the XML look like this
instead:

<inventory>
<desk>
<item qty='100'>Paper Clip</item>
<item qty='1'>Stapler</item>
<item qty='2'>Tape</item>
</desk>
</inventory>

 

[sloan]

1. Don't use a dataset. Its element based. Use XmlDocument instead (or
XmlWriter or other)
2. Transform it.
http://sholliday.spaces.live.com/Blog/cns!A68482B9628A842A!148.entry

 

[abaker.junk]

1.  Don't use a dataset.  Its element based.  Use XmlDocument instead (or
XmlWriter or other)
2.  Transform it.http://sholliday.spaces.live.com/Blog/cns!A68482B9628A842A!148.entry












- Show quoted text -

Can someone give me an xslt file that I can use to convert the first
example to the second example?

 

[abaker.junk]

Can someone give me an xslt file that I can use to convert the first
example to the second example?- Hide quoted text -

- Show quoted text -

I got the answer in another thread:

<xsl:stylesheet
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
version="1.0">


<xsl:strip-space elements="*"/>
<xslutput method="xml" indent="yes"/>


<xsl:template match="inventory">
<xsl:copy>
<desk>
<xsl:apply-templates select="desk/item"/>
</desk>
</xsl:copy>
</xsl:template>


<xsl:template match="item">
<item qty="{following-sibling::qty}">
<xsl:apply-templates/>
</item>
</xsl:template>


</xsl:stylesheet>