Реиндексация таблиц базы данных

Реиндексация таблиц базы данных. Удобно тем, что не нужно реиндексировать каждую таблицу.

Реиндексация таблиц базы данных

CLOSE TABLES
FOR i = 1 to ADBOBJECTS(laTables, "Table")
IF !EMPTY(laTables[i])
IF !USED(laTables[i])
USE (laTables[i]) IN 0 EXCL
SELECT (laTables[i])
WAIT WINDOW NOWAIT REINDEXING_LOC + ;

UPPER(ALLTRIM(laTables[i])) + ".DBF"

REINDEX
ENDIF
ENDIF
ENDFOR
CLOSE TABLES
WAIT WINDOW NOWAIT DONE_LOC
#DEFINE OUTFILE "valdbc.txt"
CLOSE TABLES

IF FILE(OUTFILE)
DELETE FILE OUTFILE
ENDIF

this.WaitMode(.T.)
WAIT WINDOW NOWAIT VALIDATING_LOC
VALIDATE DATABASE TO FILE OUTFILE NOCONSOLE
WAIT CLEAR
this.WaitMode(.F.)

MODIFY FILE OUTFILE NOMODIFY NOMENU

DELETE FILE OUTFILE

A.Пинигин, СБОРНИК прибамбасов для VFP по материалам конференций, литературы и собственных разработок. г. Рига E-mail: apinigin@olainfarm.lv

Автор: A.Пинигин

Автор публикации

не в сети 1 месяц

Joys

2
Комментарии: 4Публикации: 227Регистрация: 25-06-2000
0
Оставить комментарий
Авторизация
*
*
Генерация пароля