Форум: "Базы";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
ВнизКак упаковать таблицу?? Найти похожие ветки
← →
ALFA (2002-03-26 17:34) [3]Упаковка Локальной DBASE
Uses ....Db, DBTables, StdCtrls, Grids, DBGrids, ExtCtrls,BDE,...;
Table1.Close;
//открыть таблицу в монопольном режиме
Table1.Exclusive:=True;
Table1.Open;
//упаковать таблицу
Check(DBIPackTable(Table1.DBHandle,Table1.Handle,nil,nil,True));
//оменить монопольный режим
Table1.Close;
Table1.Exclusive:=False
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2002.04.18;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c