Создает новую таблицу с полями, содержащими описание структуры выбранной в данный момент таблицы.
Синтаксис:
COPY STRUCTURE EXTENDED TO FileName [FIELDS FieldList]
Параметры:
FileName
Задает новую таблицу, которую предстоит создать.
FIELDS FieldList
Указывает, что в записи новой таблицы будут учтены только поля, заданные в списке FieldList. Если предложение FIELDS FieldList опущено, записи в новой таблице будут создаваться для всех полей.
Комментарии:
Информация о каждом поле текущей таблицы копируется в запись новой таблицы. Структура новой таблицы имеет фиксированный формат и состоит из одиннадцати полей. В следующей таблице перечислены имена этих одиннадцати полей и их содержимое.
Поле Тип поля Содержимое FIELD_NAME Character Имена полей в выбранной таблице FIELD_TYPE Character Типы полей:C = Character Y = Currency N = Numeric F = Float I = Integer B = Double D = Date T = DateTime L = LogicalM = MemoG = General FIELD_LEN Numeric Значения ширины полей FIELD_DEC Numeric Число десятичных знаков в числовых полях FIELD_NULL Logical Наличие поддержки пустых значений полей FIELD_NOCP Logical Трансляция кодовых страниц не поддерживается(только для полей символов и memo) FIELD_DEFA Memo Значения полей по умолчанию FIELD_RULE Memo Правила проверки достоверности полей FIELD_ERR Memo Текст проверки достоверности полей TABLE_RULE Memo Правило проверки достоверности таблицы TABLE_ERR Memo Текст проверки достоверности таблицы
Вы можете модифицировать вновь созданную таблицу, а затем с помощью команды CREATE FROM создать новую таблицу с другой структурой. Команды COPY STRUCTURE и CREATE FROM позволяют программным способом изменять структуру таблицы.
Пример:
* В следующем примере выполняется отображение на экране структуры * таблицы orders, расширенное копирование ее структуры в таблицу temp, * просмотр таблицы temp, создание файла backup для таблицы temp и * отображение структуры backup. CLOSE DATABASES OPEN DATABASE (HOME( ) + 'samples\data\testdata') USE orders && Opens Orders table CLEAR DISPLAY STRUCTURE WAIT WINDOW 'Structure of the orders table' NOWAIT COPY STRUCTURE EXTENDED TO temp USE temp WAIT WINDOW 'The temp table - 1 row per field in orders' NOWAIT BROWSE CREATE backup FROM temp USE backup DISPLAY STRUCTURE WAIT WINDOW 'Backup.dbf has the same structure as orders' NOWAIT USE DELETE FILE temp.dbf DELETE FILE backup.dbf