«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»