powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Изменить структуру
2 сообщений из 2, страница 1 из 1
Изменить структуру
    #33559427
AlexanderKR
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Подскажите пожалуйста, можно ли в Fox Pro 2.6 (MS-DOS)
программно изменить структуру таблицы,
т.е. изменить ширину полей и тип данных.
Есть, к примеру, файл table1.dbf, имеющий
поля kod(c,10) и predp (c,50),
а нужен - с полями kod(n,10,2) и predp (c,60).
Команда modify structure только вызывает
конструктор, в кот. все это делается вручную.
Спасибо.
...
Рейтинг: 0 / 0
Изменить структуру
    #33559467
Проходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
1 способ:
Копируешь структуру файла в другой файл

Код: plaintext
copy structure extended to dbfstru

Меняешь параметры нужных полей

Код: plaintext
1.
replace all field_type with 'n', field_len with  10 , field_dec with  2  for field_name = 'kod'
replace all field_len with  60  for filed_name = 'predpr'

Создаешь новый пустой файл с новой структурой

Код: plaintext
create newdbf from dbfstru

И, наконец, организуешь перенос данных с использованием функции VAL() для конвертации значения поля kod. Например:

Код: plaintext
1.
2.
3.
select YourTable
scan
   insert into NewDbf (kod, predpr) values (val(YourTable.kod), YourTable.predpr)
endscan

2 способ:

Код: plaintext
1.
SELECT  00000000 . 00  as kod, SPACE( 60 ) as predpr from YourTable where .f.  ;
union select val(kod) as kod, prepdr from YourTable into table NewDbf

Переименование файлов по вкусу до или после перекачки данных.
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Изменить структуру
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]