Выгрузка данных из таблицы в XML файл по схеме

@naa700 · Регистрация: 08.02.2019

Студворк — интернет-сервис помощи студентам

Доброго времени суток.

Друзья, помогите с решением... имеется таблица в БД Access с данными и необходимо чтобы из нее выгружались данные в XML файл с именем 38_EPA_ГГГГММДДЧЧММСС.xml.

Пример таблицы с данными прилагается, а так же какой на основании данных с примера должен получаться XML файл. Спасибо большое!

@Панург · 25.04.2023, 06:42

Сообщение от StasCher

Здравствуйте, Панург!

и тебе не хворать!
решение в примере
для развития кругозора:
Метод Application.TransformXML (Access)
XSLT

@StasCher · 25.04.2023, 08:31

Панург, Панург! Дружище огромное спасибо! Сейчас изучаю метод на который скинули ссылку.

@Панург · 25.04.2023, 10:11

Сообщение от StasCher

Дружище огромное спасибо!

да ладно.
сам файл xsl для преобразования можно немного покороче сделать

Кликните здесь для просмотра всего текста

XML
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
    <xsl:output method="xml" version="1.0" indent="yes" standalone="yes" encoding="Windows-1251"/>
    <xsl:template match="@*|node()">
        <xsl:element name="{local-name()}">
            <xsl:apply-templates select="@*|node()"/>
        </xsl:element>
    </xsl:template>
    <xsl:template match="text()">
        <xsl:copy/>
    </xsl:template>
    <xsl:template match="dataroot">
        <check>
            <xsl:apply-templates select="tovar"/>
        </check>
    </xsl:template>
</xsl:stylesheet>

Далее. У тебя в примере указана кодировка Windows-1251. В примере файл преобразуется в кодировке UTF-16, можно выводить в кодировке UTF-8 (нужно у метода Application.TransformXML параметр WellFormedXMLOutput указать явно True, см. справку). Если же тебе нужна принципиально кодировка Windows-1251, то следует воспользоваться следующим кодом

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub TransformXML(strInFileName As String, strOutFileName As String, strXSLTFileName As String)
Dim objXMLDoc As Object, objXSLDoc As Object, objXMLDocOut As Object
 
Set objXMLDoc = CreateObject("MSXML2.DOMDocument")
objXMLDoc.async = False
objXMLDoc.Load strInFileName
Set objXSLDoc = CreateObject("MSXML2.DOMDocument")
objXSLDoc.async = False
objXSLDoc.Load strXSLTFileName
Set objXMLDocOut = CreateObject("MSXML2.DOMDocument")
objXMLDoc.transformNodeToObject objXSLDoc, objXMLDocOut
objXMLDocOut.Save strOutFileName
 
Set objXMLDoc = Nothing
Set objXSLDoc = Nothing
Set objXMLDocOut = Nothing
End Sub

процедуру следует поместить в коде модуля формы (возможны и другие варианты) и использовать вместо Application.TransformXML

@StasCher · 25.04.2023, 11:50

Панург, Спасибо за ответ! Выбрал вариант в кодировке Windows-1251, скопировал процедуру в модуль формы Заказ, все получилось! Единственно остался еще один вопрос, если смотреть присланный мне фирмой образец выходного файл xml у него есть еще одна строка с данными:

<?xml version = "1.0" encoding="Windows-1251" standalone="yes"?>

в моем же случае этой строки в выходном xml файле нет, хотя я ее вижу в файле схемы xsl, а выгружает xml так

XML
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
<check>
<tovar>
<tov_name>Пицца Пеперони 35 см</tov_name>
<tov_cen>590</tov_cen>
<tov_kol>1</tov_kol>
<tov_tipnds>4</tov_tipnds>
<tov_tiptov>1</tov_tiptov>
</tovar>
<tovar>
<tov_name>Пицца Сырный Цыпленок с грибами 35 см</tov_name>
<tov_cen>530</tov_cen>
<tov_kol>1</tov_kol>
<tov_tipnds>4</tov_tipnds>
<tov_tiptov>1</tov_tiptov>
</tovar>
</check>

сверху еще есть и предупреждение
This XML file does not appear to have any style information associated with it. The document tree is shown below.

Как я понимаю, выгруженный файл соответствует тому, что необходимо будет переслать, но без вышеуказанной строки в образце xml файла пересланный файл загрузится?

Добавлено через 13 минут
Панург, Панург! Все разобрался! Все выводится правильно! Когда открываю блокнотом, там и первая строка то что нужно! Спасибо еще раз, очень помогли! Крепкого Вам здоровья и успехов в работе! Всех благ!

@Eugene-LS · 28.09.2023, 16:48

Панург, применил ваш код у себя (подправив пару буковок) ...
Это гениально!!!
Фантастика!

Работает! - Вы гений!
... как всё просто, на самом деле (когда решение подсказали).

@Michael_B · 28.09.2023, 22:12

Сообщение от Eugene-LS

... как всё просто, на самом деле (когда решение подсказали)

А я пока не могу разобраться. Слишком всё ново и непонятно, для меня (((

@Michael_B · 29.09.2023, 10:46

Сообщение от Панург

решение в примере

Уважаемый Панург, пытаюсь разобраться в вашем примере, чтобы потом переделать его под свою ситуацию. Но у меня этот пример не работает. При нажатии кнопки "Вывести XML чек", выдаёт ошибку

"Run-time error '31532':
Приложению Microsoft Access не удалось экспортировать данные."

и подсвечивает жёлтым в коде VBA строку

Application.ExportXML acExportQuery, "tovar", strFileName

@Панург · 29.09.2023, 17:34

Сообщение от Michael_B

выдаёт ошибку

попробуй этот вариант

@Michael_B · 30.09.2023, 12:14

Сообщение от Панург

попробуй этот вариант

Этот вариант работает!
Спасибо!!!
Буду пытаться адаптировать его под свои нужды...

Добавлено через 28 минут

Сообщение от Панург

попробуй этот вариант

Ну, вот... столкнулся с тем, что пример со схемой XSL, а для моих задач используется XSD
Я пока в тупике

@Панург · 30.09.2023, 17:32

Сообщение от Michael_B

пример со схемой XSL, а для моих задач используется XSD

первое это преобразование документа, второе описание структуры...

Новые блоги и статьи Все статьи Все блоги /
Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .	Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .	Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))
Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул anaschu 23.05.2026 Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .	Диалоги с ИИ zorxor 23.05.2026 Насколько я понимаю - Вы - Искусственный Интеллект. Это так? Да, всё верно. Я — искусственный интеллект. Я представляю собой большую языковую модель, созданную для помощи в самых разных задачах. . . .	Модель здравосохранения 14. Собираем всю модель вместе. anaschu 22.05.2026 Модель собрана. В будущих постах на видео я покажу, как она работает. В этом посте запускаем её, проверяем результаты и разбираем что можно с ней делать дальше. Перед запуском проверяем. . .	Модель здравоохранения 13. Добавление самой системы здравоохранения. anaschu 22.05.2026 В предыдущем посте мы настроили болезни. Теперь добавим события, которые управляют здоровьем всего коллектива, а также настроим рабочий график и расчёт финансов. В Main создаём четыре события. . . .

@StasCher 4 / 4 / 0 Регистрация: 07.05.2019 Сообщений: 17
	25.04.2023, 08:31
	Панург, Панург! Дружище огромное спасибо! Сейчас изучаю метод на который скинули ссылку. 0

@Eugene-LS 13227 / 5912 / 1519 Регистрация: 05.10.2016 Сообщений: 16,557
	28.09.2023, 16:48
	Панург, применил ваш код у себя (подправив пару буковок) ... Это гениально!!! Фантастика! Работает! - Вы гений! ... как всё просто, на самом деле (когда решение подсказали). 0

Выгрузка данных из таблицы в XML файл по схеме

Решение