Перегнать из MDF в XML

Допустим есть некая база данных «Завод ЖБИ.mdf», созданная в СУБД «MS SQL Server 2005». В ее составе есть таблица «Единицы измерения». Нужно перегнать данные из таблицы «Единицы измерения» в XML-файл с помощью приложения, написанного на «Дельфи».

Запускаем «Дельфи 7», создаем новое приложение, на главную форму перетаскиваем необходимые компоненты: ADOConnection, ADOTable, DataSetProvider, ClientDataSet, Button.

Потом настраиваем компоненты между собой.

Компонент	Свойство, значение
ADOConnection1	ConnectionString = … LoginPromt = False
ADOTable1	Connection = ADOConnection1 TableName = Единицы измерения
DataSetProvider1	DataSet = ADOTable1
ClientDataSet1	ProviderName = DataSetProvider1

На кнопке размещаем следующий код:

Procedure TForm1.Button1Click(Sender: TObject);

Begin

ADOTable1.Active:=True;

ClientDataSet1.Active:=True;

ClientDataSet1.SaveToFile('Единицы измерения.xml');

End;

Запускаем приложение, жмем кнопку, получаем результат. Полученный XML-файл можно просмотреть в обозревателе «Opera», в принципе можно было бы и в других обозревателях, но поскольку в названии поля таблицы есть пробел, это не всем нравится и они начинают слегка поругиваться.

Рис. Файл «Единицы измерения.xml» в обозревателе «Opera»

Рис. 1. Файл «Единицы измерения.xml» в обозревателе «Opera»