Форум: "Базы";
Текущий архив: 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