Реиндексация таблиц базы данных
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
Автор публикации
