ник: Мюллер
Доброго всем. Помогите разобраться
Делаю следующую вестчь:
Set xmlParser = CreateObject("Msxml2.DOMDocument")
'Создание объявления XML
xmlParser.appendChild (xmlParser.createProcessingInstruction("xml", "version='1.0' encoding='windows-1251'"))
'Создание комментария
xmlParser.appendChild (xmlParser.createComment("Текст комментария"))
'Создание корневого элемента
Set rootNode = xmlParser.appendChild(xmlParser.createElement("ROOT"))
'Создание вложенных элементов
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT * from plan", CurrentProject.Connection
rst.MoveFirst
While Not rst.EOF
Set subNode = rootNode.appendChild(xmlParser.createElement("post_code"))
Set subNode = subNode.appendChild(xmlParser.createElement("plan_date"))
subNode.Text = rst.Fields("plan_date").Value
Set subNode1 = subNode.appendChild(xmlParser.createElement("st_code"))
subNode1.Text = rst.Fields("st_code").Value
rst.MoveNext
Wend
xmlParser.Save ("C:\Test.xml")
|
В результате имею следующее:
<?xml version="1.0" encoding="windows-1251"?>
<ROOT>
<post_code>
<plan_date>01.02.2008
<st_code>2224</st_code>
</plan_date>
</post_code>
<post_code>
<plan_date>01.02.2008
<st_code>2230</st_code>
</plan_date>
</post_code>
</ROOT>
|
А мну нужно получить такой результат:
<?xml version="1.0" encoding="windows-1251"?>
<ROOT>
<post_code>
<plan_date>01.02.2008</plan_date>
<st_code>2224</st_code>
</post_code>
<post_code>
<plan_date>01.02.2008</plan_date>
<st_code>2230</st_code>
</post_code>
</ROOT>
|
Что я не так делаю с SubNode?