Копирование таблицы Абоненты

Есть база созданная в «MS Access 2002» под названием «Телефонная база», в ней имеется таблица «Абоненты». Необходимо создать новую таблицу «Абоненты2» скопировать таблицу «Абоненты», изменив порядок и состав полей на: Код, Телефон, Фамилия, Имя, Отчество.

Рис. 1. Таблица «Абоненты»

Запускаем «Дельфи 7», создаем новый проект. На главную форму приложения с закладки «ADO» добавляем компоненты: ADOConnection, ADOQuery. Затем с закладки «Data Access» перетаскиваем компонент «DataSource», а с закладки «DataControls» компонент «DBGrid». Далее настраиваем компоненты.

Также, для выполнения копирования структуры нужно перетащить кнопку на форму и в ее свойство «OnClick» разместить код.

ADOQuery1.Active:=False;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.ADD('SELECT Код, Телефон, Фамилия, Имя, Отчество');

ADOQuery1.SQL.ADD('INTO Абоненты2');

ADOQuery1.SQL.ADD('FROM Абоненты;');

ADOQuery1.ExecSQL;

ADOQuery1.SQL.Clear;

ADOQuery1.SQL.Text:='SELECT * FROM Абоненты2';

ADOQuery1.ExecSQL;

ADOQuery1.Active:=True;

Таким образом, мы поставили поле «Телефон» перед полем «Фамилия», а поле «Город» вообще не добавляли в новую таблицу «Абоненты2».

Рис. 2. Новая таблица «Абоненты2»