В начало

Перегонка из Interbase в XML

 

            Есть таблица «Chitateli» в базе данных «Biblioteka», написанная в СУБД «Interbase 6.5». Нужно перегнать эту таблицу в XML-файл средствами «Дельфи 7».

            Запускаем «Дельфи 7», создаем новее приложение. На главную форму приложения помещаем следующие компоненты:

IBDataBase,

IBTransAction,

IBTable,

­– DataSetProvider,

­– ClientDataSet,

– Button.

            Затем настраиваем их.

Компонент

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

Примечание

IBDataBase

DataBaseName = «C:\INTERBASE\BIBLIOTEKA.GDB»

DefaultTransAction = IBTransAction1

LoginPrompt = False

Params:

    user_name=SYSDBA

    password=masterkey

 

IBTransAction1

 

Можно ничего не настраивать, но без него никак

IBTable1

DataBase = IBDataBase1

TransAction = IBTransAction1

TableName = «CHITATELI»

 

DataSetProvider1

DataSet = IBTable1

 

ClientDataSet1

ProviderName = DataSetProvider1

 

Button1

Procedure TForm1.Button1Click(Sender: TObject);

Begin

   IBTable1.Active:=True;

   ClientDataSet1.Active:=True;

   ClientDataSet1.SaveToFile('C:\XML\Chitateli.xml');

End;

 

 

            После всех настроек компилируем, запускаем приложение, жмем единственную кнопку, получаем ожидаемый результат – файл «Chitateli.xml».

            Его можно просмотреть в любом текстовом редакторе, но лучше в обозревателе «Opera».

Рис. 1. Документ «Chitateli.xml», открытый в обозревателе «Opera»

Рис. 1. Документ «Chitateli.xml», открытый в обозревателе «Opera»