| |
|
|
| | Подскажите как экспортировать 3 таблицы в один xml-файл ? | |
| |
| |
| |
|
|
| | А вы как выгружаете?
если встроенной утилитой, то она там для каждой строки указывает таблицу, т.е. можно просто взять и в тело XML между <dataroot> добавить XML других таблиц
<?xml version="1.0" encoding="UTF-8"?>
<dataroot xmlns:od="urn:schemas-microsoft-com:officedata" generated="2008-09-30T15:31:42">
<Таблица191>
<Код>1</Код>
<pass>m**m**m</pass>
</Таблица191>
<Таблица191>
<Код>2</Код>
<pass>23213213</pass>
</Таблица191>
<Таблица191>
<Код>3</Код>
<pass>*222**</pass>
</Таблица191>
<Таблица192>
<Код>1</Код>
<pass>m**m**m</pass>
</Таблица192>
<Таблица192>
<Код>2</Код>
<pass>23213213</pass>
</Таблица192>
<Таблица192>
<Код>3</Код>
<pass>*222**</pass>
</Таблица192>
</dataroot>
|
| |
| |
| |
| |
|
|
| | или если через рекордсет
открываете адо рекордсет по таблице и сохраняете его как XML
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset
rst.Open "SELECT * from tbl1", CurrentProject.Connection, adOpenDynamic, adLockOptimistic, adCmdText
rst.Save "c:\tbl1.xml", adPersistXML
|
и так со всеми таблицами
далее создаете и открываете для записи тестовый файл (хоть через FSO хоть через Open )
в него пишите примерно следующее
<?xml version = "1.0" encoding="windows-1251" standalone="no"?>
<!DOCTYPE BASE [
<!ENTITY dataTable1 SYSTEM "tbl1.xml">
<!ENTITY dataTable2 SYSTEM "tbl2.xml">
]>
<BASE>
<NameBase>
ИМЯБАЗЫ
</NameBase>
<Table>
&dataTable1;
</Table>
<Table>
&dataTable2;
</Table>
</BASE>
|
в <!ENTITY dataTabl .......
перечисляете все свои xml файлы которые получились из таблиц с указанием пути если они лежат в других папках
сохраняете файл с расширением XML | |
| |
| |
