Реиндексация таблиц базы данных. Удобно тем, что не нужно реиндексировать каждую таблицу.
Реиндексация таблиц базы данных
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 |
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.Пинигин