ник: osmor
или если через рекордсет
открываете адо рекордсет по таблице и сохраняете его как 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