Thursday, November 29, 2007

Writing all data from Dataset to XML (with null value too).

Imports Microsoft.VisualBasic

Imports System.Data


Imports
System.Data.OracleClient


Public Class DatasetToXML

Inherits
System.Web.UI.Page


Dim con As New
OracleConnection(" DATA SOURCE=ORACLE;PERSIST
SECURITY INFO=TRUE;USER ID=DF_TRUCK;PASSWORD=DF_TRUCK;UNICODE=TRUE "
)



Public Function DS2XML(ByVal
ds As DataSet) As
Boolean

Dim xs As New
System.Xml.XmlWriterSettings

xs.Indent = True

Dim xw As System.Xml.XmlWriter =
System.Xml.XmlWriter.Create(Server.MapPath("~/IEData/abc.xml"),
xs)

xw.WriteStartElement("DF_TRUCK") 'Name
of schema

For Each dt As DataTable In ds.Tables

For
Each dr As
DataRow In ds.Tables(dt.TableName).Rows

xw.WriteStartElement(ds.Tables(dt.TableName).TableName)

For
i As Integer =
0 To ds.Tables(dt.TableName).Columns.Count - 1

xw.WriteElementString(ds.Tables(dt.TableName).Columns(i).ColumnName,
IIf(IsDBNull(dr.Item(i)), String.Empty,
dr.Item(i)))

Next

xw.WriteEndElement()

Next

Next

xw.WriteEndElement()

xw.Flush()

xw.Close()

End Function



End Class