В начало

«MDB» в «XML»

 

            Чтобы перенести данные из таблицы «Вопросы» базы данных «Дисконтные карты.mdb», созданной в СУБД «MS Access 2002» при помощи своего приложения на «Дельфи 7», понадобится ряд компонентов. Для подключения к самой базе данных будут нужны: ADOConnection, ADOTable. А для пересохранения в XML-формате: DataSetProvider, ClientDataSet.

Рис. 1. Таблица «Вопросы» БД «Дисконтные карты»

 

            Переносим компоненты на главную форму приложения, настраиваем их.

п/п

Компонент

Настройка, значение

1

ADOConnection1

ConnectionString = «Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\ACCESS\Дисконтные карты.mdb;Persist Security Info=False»

LoginPrompt = False

2

ADOTable1

Connection = ADOConnection1

TableName = Вопросы

3

DataSetProvider1

DataSet = ADOTable1

4

ClientDataSet1

ProviderName = DataSetProvider1

           

Затем размещаем на форме приложения кнопку типа «Button» и размещаем в ней код.

Procedure TForm1.Button1Click(Sender: TObject);

Begin

   ClientDataSet1.Active:=True;

   ClientDataSet1.SaveToFile('C:\XML\Вопросы.xml');

End;

           

Далее запускаем приложение и проверяем выполнение. В результате будет создан XML-файл с данными из таблицы «Вопросы». Его можно просмотреть через текстовый редактор, но лучше через обозреватель «Opera».

Рис. 2. Файл «Вопросы.xml» в обозревателе «Opera»

Рис. 2. Файл «Вопросы.xml» в обозревателе «Opera»