Rambler's Top100
Форум: MS ACCESSVBVBA MS OfficeMS SQL server
Новые сообщения: 0000

Форум: MS ACCESS

Вопросы связанные с MS ACCESS

Обновить визитку
Участники «Online»
Все участники

 
 

Доброго времени суток, Посетитель!

вид форума:
Линейный форум Структурный форум

тема: XML
 
 автор: Мюллер   (29.01.2009 в 16:18)   личное сообщение
 
 

Доброго всем. Помогите разобраться
Делаю следующую вестчь:


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?

  Ответить  
 
 автор: osmor   (29.01.2009 в 16:34)   личное сообщение
 
 


....
Set subNode = rootNode.appendChild(xmlParser.createElement("post_code"))

Set subNode1 = 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
...


вероятно так

  Ответить  
 
 автор: Мюллер   (29.01.2009 в 16:39)   личное сообщение
 
 

Спасиб огромный!!!!

  Ответить  
 
 автор: Мюллер   (30.01.2009 в 11:36)   личное сообщение
 
 

Истчо один вопрос:
У меня есть XSLT файл с шаблоном для вывода данных . Есть запрос-источник данных. Хочу получить отчет в экселе. В XSLT сделаны настройки для вывода в эксель. Можно ли сделать вывод в эксель на основании этого шаблона из акса? ( В дот нете это возможно ) И ткните, плз, ссылки где это можно почитать.
Заранее спасиб.

  Ответить  
 
 автор: osmor   (30.01.2009 в 11:38)   личное сообщение
 
 

В XSLT сделаны настройки для вывода в эксель


Покажите?
с XSLT вообще работать не умею

  Ответить  
 
 автор: Мюллер   (30.01.2009 в 11:57)   личное сообщение
2 Кб.
 
 

Вот простой пример, который формирует шапку из двух колонок и выводит содержимое запроса

Преимущества XML + XSLT - экселевский файл с двумя листами по 62 тыс записей на каждом листе формируется и открывается за 10 - 12 сек.

  Ответить  
 
 автор: osmor   (30.01.2009 в 11:59)   личное сообщение
 
 

э-э-э... и что с этим делать?

  Ответить  
 
 автор: Мюллер   (30.01.2009 в 12:00)   личное сообщение
2 Кб.
 
 

Еще раз сбрасываю, а то в том листе повставлял поясняющие комментарии, и он у меня отказывается открываться

  Ответить  
 
 автор: osmor   (30.01.2009 в 12:09)   личное сообщение
 
 

не ну как XMS я его увидел, что сделать что бы получить таблицу...

  Ответить  
 
 автор: Мюллер   (30.01.2009 в 12:09)   личное сообщение
1 Кб.
 
 

Заархивировал. Там с комментариями- можно просмотреть в блокноте.

  Ответить  
 
 автор: Мюллер   (30.01.2009 в 14:00)   личное сообщение
 
 

Что никто ничего про енто не слышал? и не встречал каких-нибудь статей про ентого зверя?

  Ответить  
HiProg.com - Технологии программирования
Rambler's Top100 TopList