В начало

Перегнать из 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»