writexml with root tag

[Guoqi Zheng]

Dear sir,

I am trying to create to writeXml to create a xml file every day.

The WriteXml method of dataset is very nice and easy to use, however, how
can I add the following to my xml file?

<?xml version="1.0" encoding="UTF-8"?>
<productFeed version="0" timestamp="20040105:22:00:05">

Thanks in advanced!!!!

[netnews.comcast.net]

This adds a root node to an XML object

Dim N As XmlNode
Dim oXML As New System.Xml.XmlDocument
N = oXML.CreateElement(NodeName)
N.InnerText = Content

This adds an attrbite to the Node represented by N
Dim i As XmlAttribute
i = lXML.CreateAttribute(AttributeName)
i.Value = AttributeText
N.Attributes.SetNamedItem(i)

"Guoqi Zheng" <[e-mail]> wrote in message
news:eE**************@TK2MSFTNGP11.phx.gbl...

Dear sir,

I am trying to create to writeXml to create a xml file every day.

The WriteXml method of dataset is very nice and easy to use, however, how
can I add the following to my xml file?

<?xml version="1.0" encoding="UTF-8"?>
<productFeed version="0" timestamp="20040105:22:00:05">

Thanks in advanced!!!!

[Guoqi Zheng]

Thanks a lot for your quick reply. Here is my code. where can I put your
code? Sorry, I am very new to .net.
Dim strConnection as String = "Data source=xxx.xxx.xx.xx; Initial
Catalog=vitamincart; User ID=em; Password=pass"
Dim objconnection as New SqlConnection(strConnection)
Dim strSql as String = "SELECT * FROM tblKelkoo"

'Dataadapter setup
Dim objAdapter as New SqlDataAdapter(strSql, objConnection)

'dataset, adapter and table.
Dim objDataSet as New Dataset("Catalog")
objAdapter.fill(objDataset, "Product")
Dim filename As String =
"E:\virtual_hosts\vitaminstore\vitaminstore.nl\hom e\html\td\product.xml"
' Create the FileStream to write with.
Dim myFileStream As New System.IO.FileStream _
(filename, System.IO.FileMode.Create)
' Write to the file with the WriteXml method.
objDataSet.WriteXml(myFileStream, DiffGram)
myFileStream.Close()

"netnews.comcast.net" <Ma**@InterDataSoft.com> wrote in message
news:ulzMb.33868$8H.75288@attbi_s03...

This adds a root node to an XML object

Dim N As XmlNode
Dim oXML As New System.Xml.XmlDocument
N = oXML.CreateElement(NodeName)
N.InnerText = Content

This adds an attrbite to the Node represented by N
Dim i As XmlAttribute
i = lXML.CreateAttribute(AttributeName)
i.Value = AttributeText
N.Attributes.SetNamedItem(i)

"Guoqi Zheng" <[e-mail]> wrote in message
news:eE**************@TK2MSFTNGP11.phx.gbl...

Dear sir,

I am trying to create to writeXml to create a xml file every day.

The WriteXml method of dataset is very nice and easy to use, however, how can I add the following to my xml file?

<?xml version="1.0" encoding="UTF-8"?>
<productFeed version="0" timestamp="20040105:22:00:05">

Thanks in advanced!!!!