Перевод из MDB в XML

[artemavd]

Доброе утро! Решил сделать возможность перевода из файла MDB в XML. Но, не знаю как подступиться к решению. Есть два скрина. На одном - поля таблицы, на втором - желаемая конечная структура XML файла. Вопрос: как можно организовать создание такого дерева?

[Sparkman]

ADOQuery1.SQL.Text:='select * from export';
ADOQuery1.SaveToFile('имя файла xml', pfXML);

[artemavd]

Запрос в данный момент нет времени проверить. Что будет результатом его работы и как он буде выглядеть?

[Sparkman]

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

Запрос в данный момент нет времени проверить. Что будет результатом его работы и как он буде выглядеть?

Результатом запроса будут все записи таблицы export.
Этот результат будет храниться в оперативной памяти в переменной ADOQuery1.
После выполнения команды ADOQuery1.SaveToFile('File.xml', pfXML) содержимое переменной ADOQuery1 сохранится на жесткий диск в XML файл File.xml.

[artemavd]

pfXML

- что это значит? Первый раз такой вижу в SaveToFile. Дерево в XML автоматически будет создано?

[Sparkman]

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

Дерево в XML автоматически будет создано?

да, дерево в XML автоматически будет создано.
ну или можно в текстовик все самому написать http://forum.sources.ru/index.php?showtopic=24209

[artemavd]

Не, надо именно в XML. Красиво получилось )). Скажи, а как можно самому задавать имена полям? И можно ли задать что отобраджать, а что нет? Чтобы у меня дерево получалось как на моем скрине). Было бы вообще шоколадно)

[Sparkman]

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

Не, надо именно в XML. Красиво получилось )). Скажи, а как можно самому задавать имена полям? И можно ли задать что отобраджать, а что нет? Чтобы у меня дерево получалось как на моем скрине). Было бы вообще шоколадно)

Задавать имена полям можно через команду Alter:
1) создать столбец с нужным наименованием;
2) скопировать (update) все данные из старого столбца в новый;
3) удалить (drop) старый столбец.

На счет задать, что отображать, а что нет - это все зависит от того в каком контроле (TControls) ты информацию выводишь

[artemavd]

Вывожу информацию в DBGridEh.

Задавать имена полям можно через команду Alter:
1) создать столбец с нужным наименованием;
2) скопировать (update) все данные из старого столбца в новый;
3) удалить (drop) старый столбец.

где это все прописывать-то?

[Sparkman]

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

Вывожу информацию в DBGridEh.

где это все прописывать-то?

ADOQuery1.SQL.Text:= 'Alter table название_таблицы column add имя_столбца тип_столбца прочие_параметры';
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:='update имя_таблицы set имя_нового_столбца=имя_старого_столбца';
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:='Alter table название_таблицы drop column имя_старого_столбца';
ADOQuery1.ExecSQL;
ADOQuery1.SQL.Text:='Commit';
ADOQuery1.ExecSQL;

Точно не помню, можешь поискать справку по команде Alter, языка SQL