Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.02.21;
Скачать: CL | DM;

Вниз

Упаковка БД   Найти похожие ветки 

 
Dinara ©   (2002-01-25 11:49) [0]

Когда стираешь записи методом Delete, размер базы остается прежним. Как упакватьбазу, чтобы новые записи "задвинули" старые?


 
fnatali ©   (2002-01-25 11:50) [1]

dbiPackTable


 
Dinara ©   (2002-01-29 17:31) [2]

Решение найдено.

procedure PackTable(Table: TTable);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
begin
Table.Exclusive := True;
Table.Active := True;

if not Table.Active then
raise EDatabaseError.Create("Table must be opened to pack");
if not Table.Exclusive then
raise EDatabaseError.Create("Table must be opened exclusively to pack");

Check(DbiGetCursorProps(Table.Handle, Props));

if Props.szTableType = szPARADOX then begin
FillChar(TableDesc, sizeof(TableDesc), 0);

Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
StrPCopy(TableDesc.szTblName, Table.TableName);
StrPCopy(TableDesc.szTblType, Props.szTableType);
TableDesc.bPack := True;
Table.Close;
Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));
end;

end;


 
Anatoly Podgoretsky ©   (2002-01-29 22:28) [3]

fnatali © (25.01.02 11:50)

Ты посмотрел хелп по этой функции



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
3-66456
JEff
2002-01-25 18:50
2002.02.21
РЕБЯТА!!!! Выручите новичка!!!


1-66593
VSDesign
2002-02-06 08:11
2002.02.21
Потоки. Очередной вопрос.


6-66635
SemFLY
2001-12-03 23:08
2002.02.21
Мастера, подскажите, как шифровать траффик между Клиент Сервер


1-66610
foxbad
2002-02-06 12:47
2002.02.21
Help !!! Как использовать TADO в своей DLL !!!


1-66514
vic_774N
2002-02-03 05:14
2002.02.21
DDE Client - кто знает подскажите