Текущий архив: 2003.02.17;
Скачать: CL | DM;

Вниз

Как почистить файл db   Найти похожие ветки 

← →
Романов Р.В. ©   (2003-01-30 08:34) [0]

При тестировании базы и добавлении в таблицу 10000 записей файл *.db увеличился до 1,7 Mb. После удаления всех записей размер файла не изменился. Какими средствами можно выкинуть из этого файла все удаленные записи.

---

← →
Соловьев ©   (2003-01-30 09:32) [1]

упаковать

---

← →
Романов Р.В. ©   (2003-01-30 09:39) [2]

Чем? Как?

---

← →
chudaks ©   (2003-01-30 09:53) [3]

DbiPackTable

---

← →
Соловьев ©   (2003-01-30 09:53) [4]

Ручками, своих функций у BDE нет.
Код приблизительно такой:

procedure PackPdoxTable(Table: TTable);
var
TableDesc:CRTTblDesc;
WasActive: Boolean;
hDataBase: hDbiDB;
begin
WasActive := Table.Active;
try
if not WasActive then Table.Open;
hDataBase := Table.DBhandle;

Table.Close;

FillChar(TableDesc, SizeOff(CRTblDesc),0);

with TableDesc do
begin
StrPCopy(SzTblName, Table.TableName);
StrPCopy(SzTblType, szParadox);
bPack := true;
end;

if hDataBase <> nil then
Check(DBIDoRestructure(hDatabase,1, @TableDesc, nil, nil, nil, False))
finally
if WasActive then Table.Open;
end;
end;

---

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

Текущий архив: 2003.02.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.037 c