Гость
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Экспорт в xml по шаблону 2 / 8 сообщений из 8, страница 1 из 1
20.02.2019, 18:07
    #39776894
Jumakhon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в xml по шаблону 2
Привет всем программистам!
Как экспорт из Access в xml с кодами vba? Пожалуйста помогите!!!

вот такая схема
<?xml version="1.0"?>
-<batch>
<id>0001</id>
<created_date>31-01-2019</created_date>
<foreigner/>
-<legal>
-<record>
<ein>0110024393</ein>
<INN>010100355</INN>
<short_entity_name>ЧДММ "МАРКАЗИ САЛОМАТИИ САЛВА"</short_entity_name>
-<legal_address>
<ein>0110024393</ein>
<sOther/>
<country>Республика Таджикистан </country>
</legal_address>
-<director>
<dir_inn>015734312</dir_inn>
<dir_Name>Файзулло Куканиев Нуралиевич</dir_Name>
<dir_Mobile>907-18-50-00</dir_Mobile>
<dir_Email/>
</director>
</record>
</legal>
</batch>

Пожалуйста я первые на таких проблем встречаю, жду ваш поддержки
...
Рейтинг: 0 / 0
20.02.2019, 19:14
    #39776929
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в xml по шаблону 2
Jumakhon, и что дальше? откуда экспортировать? Источник то дай, посмотреть структуру.
Код: xml
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
<?xml version="1.0"?>
<batch>
	<id>0001</id>
	<created_date>31-01-2019</created_date>
	<foreigner/>
	<legal>
		<record>
			<ein>0110024393</ein>
			<INN>010100355</INN>
			<short_entity_name>ЧДММ "МАРКАЗИ САЛОМАТИИ САЛВА"</short_entity_name>
			<legal_address>
				<ein>0110024393</ein>
				<sOther/>
				<country>Республика Таджикистан </country>
			</legal_address>
			<director>
				<dir_inn>015734312</dir_inn>
				<dir_Name>Файзулло Куканиев Нуралиевич</dir_Name>
				<dir_Mobile>907-18-50-00</dir_Mobile>
				<dir_Email/>
			</director>
		</record>
	</legal>
</batch>

...
Рейтинг: 0 / 0
20.02.2019, 21:56
    #39776993
DarkMan
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в xml по шаблону 2
ПанургJumakhon, и что дальше? откуда экспортировать? Источник то дай, посмотреть структуру.
Код: xml
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
<?xml version="1.0"?>
<batch>
	<id>0001</id>
	<created_date>31-01-2019</created_date>
	<foreigner/>
	<legal>
		<record>
			<ein>0110024393</ein>
			<INN>010100355</INN>
			<short_entity_name>ЧДММ "МАРКАЗИ САЛОМАТИИ САЛВА"</short_entity_name>
			<legal_address>
				<ein>0110024393</ein>
				<sOther/>
				<country>Республика Таджикистан </country>
			</legal_address>
			<director>
				<dir_inn>015734312</dir_inn>
				<dir_Name>Файзулло Куканиев Нуралиевич</dir_Name>
				<dir_Mobile>907-18-50-00</dir_Mobile>
				<dir_Email/>
			</director>
		</record>
	</legal>
</batch>



Если человек не коверкает язык спецом , а действительно иностранец, то если я правильно понял , ему нужно экспортировать определенные данные из базы Access в файл XML . Судя по примеру , это таблица типа User с данными.
P.S Это только мои размышления в слух. :))
...
Рейтинг: 0 / 0
21.02.2019, 03:53
    #39777072
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в xml по шаблону 2
DarkManесли я правильно понял , ему нужно экспортировать определенные данные из базы Access в файл XML .Это я и так понял, ТС вполне определённо высказался.

DarkManЕсли человек не коверкает язык спецом
JumakhonРеспублика Таджикистан
...
Рейтинг: 0 / 0
21.02.2019, 03:55
    #39777073
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в xml по шаблону 2
DarkManСудя по примеру , это таблица типа User с данными.Это типа ЕГРЮЛ, скорее всего.
...
Рейтинг: 0 / 0
21.02.2019, 17:51
    #39777472
court
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в xml по шаблону 2
JumakhonКак экспорт из Access в xml с кодами vba?Создаешь у себя в БД такую структуру.



Заполняешь её.
И дальше, или "с кодами vba" :
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub test()
    Dim objAD1 As AdditionalData
    Dim objAD2 As AdditionalData
    Dim objAD3 As AdditionalData
    Dim TempFile As String, ResultFile As String, TransformFile As String
    
    TempFile = CurrentProject.Path & "\xz.xml"
    ResultFile = CurrentProject.Path & "\Result.xml"
    TransformFile = CurrentProject.Path & "\xz.xsl"
    
    Set objAD1 = Application.CreateAdditionalData
    Set objAD2 = objAD1.Add("legal")
    Set objAD3 = objAD2.Add("record")
    objAD3.Add "legal_address"
    objAD3.Add "director"
    '
    Application.ExportXML ObjectType:=acExportTable, DataSource:="batch", _
        DataTarget:=TempFile, _
        AdditionalData:=objAD1
        
    Application.TransformXML TempFile, TransformFile, ResultFile
End Sub



Или просто : выбрать в окне БД таб.batch, и дальше Файл - Экспорт - XML - Дополнительно - в "данные для экспорта" выбрать все таблицы - Преобразования... - выбрать файл xz.xsl - OK - OK

Файл трансформации xz.xsl во вложении
...
Рейтинг: 0 / 0
22.02.2019, 05:51
    #39777679
Панург
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в xml по шаблону 2
court
Код: vbnet
1.
Application.CreateAdditionalData

court
Код: vbnet
1.
Application.ExportXML

court
Код: vbnet
1.
Application.TransformXML

А я что-то и не обратил внимание, всё по старинке DOMDocument мучаю, изредка...
Спасибо.
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
13.04.2020, 07:35
    #39946483
Jumakhon
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Экспорт в xml по шаблону 2
Сапсибо вам ребятами! Решение этого задача найдена.
...
Рейтинг: 0 / 0
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Экспорт в xml по шаблону 2 / 8 сообщений из 8, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]