В начало

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

 

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

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

Рис. 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»


Картинки базы данных автозапчастей TECDOC 2017
Картинки базы данных автозапчастей TECDOC 2017


Код для Учет амортизации автотранспорта по МОЛ.mdb
Код для Учет амортизации автотранспорта по МОЛ.mdb


New Base July 2008 for Allsubmiter 4.7
New Base July 2008 for Allsubmiter 4.7