Упаковка файлов DBF

← →
borg (2003-05-13 09:03) [0]

Подскажите есть ли в DELPHI аналог команды pack из FOXPRO, то есть необходимо доконца удалять данные, а не помечатьт их как удалённые как это делается table1.delete.

← →
VAleksey © (2003-05-13 09:11) [1]

uses bde;
dbipacktable...
описание в bde32.hlp

← →
evg28 (2003-05-13 09:17) [2]

try
TableServ.Close;
TableServ.Exclusive:= true;
TableServ.Open;
DbiPackTable(TableServ.DBHandle, TableServ.Handle, nil, nil, TRUE ) ;
TableServ.Close;
TableServ.Exclusive:= false;
TableServ.Open;
TableServ.First;
except
end;

← →
Соловьев © (2003-05-13 09:26) [3]

Удалено модератором
Примечание: Задай вопрос в СВОЕЙ ветке

← →
Stray (2003-05-13 12:50) [4]

Проблема легко решается если используешь BDE. А если нет? Я предпочитаю ADO. Пробовал решить проблему вот так:
...
dbfConnect: TADOConnection;
cmdPackTbl: TADOCommand;
...
dbfConnect.Connected := false; // обязательно необходимо
dbfConnect.Connected := true; // переконектиться
cmdPackTbl.CommandText := "pack total";
cmdPackTbl.execute;

в 2000 винде действует, а вот в 98 вроде как нет. К сожалению искать причину небыло времени. Так как особой надобности в упаковке не имел.
DSN Driver = Microsoft Visual Foxpro

← →
Melnyk (2003-05-14 11:57) [5]

Удалено модератором
Примечание: Задай вопрос в СВОЕЙ ветке

← →
MikeS (2003-05-15 08:42) [6]

С древних времен известен универсальный способ упаковки:
1. Создаем таблицу2 с аналогичной структурой
2. Проход циклом по упаковываемой таблице с копированием записей в таблицу2
3. Удаляем таблицу1
4. Переименовываем таблицу2 в таблицу1

Упаковка файлов DBF Найти похожие ветки