Форум: "Базы";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Вниз

Как упаковать таблицу   Найти похожие ветки 

← →
disprosis   (2002-02-08 16:46) [4]

uses
dbiProcs

procedure TForm1.PackTable(Value: TTable);
begin
Value.Close;
Value.Exclusive := True;
try
Value.Open;
Check(DbiPackTable (Value.DBHandle,Value.Handle,PChar(Value.TableName),PChar(szDBASE),True));
except end;
Value.Close;
Value.Exclusive := False;
end;

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.004 c