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="2004 0105: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.XmlD ocument
N = oXML.CreateElem ent(NodeName)
N.InnerText = Content

This adds an attrbite to the Node represented by N
Dim i As XmlAttribute
i = lXML.CreateAttr ibute(Attribute Name)
i.Value = AttributeText
N.Attributes.Se tNamedItem(i)

"Guoqi Zheng" <[e-mail] > wrote in message
news:eE******** ******@TK2MSFTN GP11.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="2004 0105: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=vitamin cart; User ID=em; Password=pass"
Dim objconnection as New SqlConnection(s trConnection)
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("Catalo g")
objAdapter.fill (objDataset, "Product")
Dim filename As String =
"E:\virtual_hos ts\vitaminstore \vitaminstore.n l\home\html\td\ product.xml"
' Create the FileStream to write with.
Dim myFileStream As New System.IO.FileS tream _
(filename, System.IO.FileM ode.Create)
' Write to the file with the WriteXml method.
objDataSet.Writ eXml(myFileStre am, DiffGram)
myFileStream.Cl ose()

"netnews.comcas t.net" <Ma**@InterData Soft.com> wrote in message
news:ulzMb.3386 8$8H.75288@attb i_s03...

This adds a root node to an XML object

Dim N As XmlNode
Dim oXML As New System.Xml.XmlD ocument
N = oXML.CreateElem ent(NodeName)
N.InnerText = Content

This adds an attrbite to the Node represented by N
Dim i As XmlAttribute
i = lXML.CreateAttr ibute(Attribute Name)
i.Value = AttributeText
N.Attributes.Se tNamedItem(i)

"Guoqi Zheng" <[e-mail] > wrote in message
news:eE******** ******@TK2MSFTN GP11.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="2004 0105:22:00:05">

Thanks in advanced!!!!