XmlDataDocument to XDocument[Answered] RSS

3 replies

Last post Jan 22, 2014 08:38 PM by aspnetdev2000

‹ Previous Thread|Next Thread ›

Shortcuts

- Reply
aspnetdev200...
Member

212 Points

165 Posts
XmlDataDocument to XDocument

Jan 22, 2014 04:49 AM|aspnetdev2000|LINK
Hi,

The follwing procedure to export a dataset to excel is working fine in a web app except for a warning that XMLDataDocument class will be removed in a future release.

The subroutine stores the dataset ds into an xml file xdDoc and then uses a predefined xslt (XResult.xslt) and its transform method to format the xml file into an Excel .xls output file.

Can anybody help editing the procedure that would use XDocument and xslt style sheet instead of XMLDataDocument and xslt?

I think I am lazy enough not to explore the XDocument class and seeking help for such a trivial matter.

But nothing like getting a little bit of help from you all and giving a point or two in return

Please feel free to edit the code below. Links are welcome but appreciate if a functional vb code using XDocument is given too.

Thanks in advance.
```
Private Sub ExportToExcel(ByVal context As HttpContext, ByVal ds As DataSet, flname As String)
        Dim xtw As XmlTextWriter
        Dim xdDoc As XmlDataDocument = New XmlDataDocument(ds)
        Dim xslTran As XslCompiledTransform = New XslCompiledTransform()
        xslTran.Load(context.Server.MapPath("XResult.xslt"))
        Dim flNameXLS As String
        flNameXLS = flname + ".xls"
        xtw = New XmlTextWriter(context.Server.MapPath(flNameXLS), System.Text.Encoding.UTF8)
        xtw.Formatting = Formatting.Indented
        xtw.Indentation = 3
        xslTran.Transform(xdDoc, Nothing, xtw)

        xtw.Close()

        context.Response.Redirect(flNameXLS)
        context.Response.End()
    End Sub
```
Regards,
xdocument xmldatadocument dataset excel
aspnetdev2000
- Reply
Slewey
Participant

914 Points

177 Posts
Re: XmlDataDocument to XDocument

Jan 22, 2014 05:37 AM|Slewey|LINK
You can replace the XmlDataDocument with XmlDocument very easily without changing the rest of your code;
```
Dim xmlDoc = New XmlDocument()
xmlDoc.LoadXml(ds.GetXml())
```
Or if you specifically need a XDocument;
```
Dim doc As New XDocument()
Using xw As XmlWriter = doc.CreateWriter()
	ds.WriteXml(xw)
	xw.Close()
End Using
```
xdocument xmldatadocument dataset excel
http://www.vanheije.nl/blog

aspnetdev200...

Member

212 Points

165 Posts

Re: XmlDataDocument to XDocument

Jan 22, 2014 10:14 AM|aspnetdev2000|LINK

Hi Slewey,

I guess you are asking me do this:

Private Sub ExportToExcel(ByVal context As HttpContext, ByVal ds As DataSet, flname As String)
        Dim xtw As XmlTextWriter

        '''''Dim xdDoc As XmlDataDocument = New XmlDataDocument(ds)

         Dim doc As New XDocument()
         Using xw As XmlWriter = doc.CreateWriter()
	ds.WriteXml(xw)
	xw.Close()
         End Using

        Dim xslTran As XslCompiledTransform = New XslCompiledTransform()
        xslTran.Load(context.Server.MapPath("XResult.xslt"))
        Dim flNameXLS As String
        flNameXLS = flname + ".xls"
        xtw = New XmlTextWriter(context.Server.MapPath(flNameXLS), System.Text.Encoding.UTF8)
        xtw.Formatting = Formatting.Indented
        xtw.Indentation = 3
        xslTran.Transform(doc, Nothing, xtw)

        xtw.Close()

        context.Response.Redirect(flNameXLS)
        context.Response.End()
    End Sub

However, it is throwing an error becacuase the trasform method won't take a XDocument for a XmlDataDocument ...!!!

aspnetdev2000