Пытаюсь упаковать тaблицу:

Код

var TblDesc: CRTbldesc; TempDBHandle: HDBIDb; begin FillChar(TblDesc, SizeOf(TblDesc), 0); with TblDesc do  begin   StrPCopy(szTblName, DataBaseN);   StrCopy(szTblType, szPARADOX);   bPack:=True;  end; try  Check(dbiOpenDatabase(PChar(DataBaseN), nil, dbiREADWRITE, dbiOpenExcl, nil, 0, nil, nil, TempDBHandle));  try   Check(dbiDoRestructure(TempDBHandle, 1, @TblDesc, nil, nil, nil, False));  finally   dbiCloseDatabase(TempDBHandle);  end; finally  ShowMessage('Done'); end; end;

На что эта зараза отвечает:

Цитата

An error occurred while attempting to initialize the Borland Database Engine (error $2A06)

Что мне с этим делать, вроде все остальные операции с базой работают...

P. S.
Работаю из Delphi 7

Это сообщение отредактировал(а) Pakshin A. S. - 6.5.2004, 21:05

Возможно таблица открыта не эксклюзивно.
попробуй так.

P.S. На оптимальный вариант не претендую.

procedure tform1.PackTable(Table: TTable);
var Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
begin
table.Exclusive:=true;
table.Active:=true;
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 else errata(4);
end;

Впринцепе похоже, но надо попробовать...

1)Выбираешь справку Delphi Tools....
2)Ищешь DbiPackTable....
3)Берешь Example...
4)Перетряхиваешь указанный пример (русские сообщения и тп)...
5)Вставляешь в прогу свою...
6)Пользуешься...

Спасибо, попробую и это...

Код из Help'а требует эксклюзивного открытия таблицы... А что это такое?

Код

Table1.Exclusive := TRUE

(перед открытием)

WOW! Всё так просто! Спасибо...

Pakshin A. S., с Днём Победы

Разовьём тему:
Начальный вес таблицы (добавлял, удалял и т. п. эксперименты несколько дней назад..): 6,144 Кб
Довавил новую запись: 6,144 Кб
Удалил её: 6,144 Кб
Выполнил паковку: 6,144 Кб
Несколько раз...: 6,144 Кб

Pakshin A. S., не морочьте людям голову.

только что сделал таблицу, забил около 10 тысяч случайных записей.
размер - 1.23 МБ (1 296 384 байт)

несколько тысяч записей из середины удалил.
размер - 1.23 МБ (1 296 384 байт)

сделал реструктуризацию с паковкой.
размер - 0.99 МБ (1 038 336 байт)


вы размер в статусной строке эксплорера смотрите?

Размер смотрю из свойств файла...

Просто добавление, удаление одной записи не влияет на размер, как я понял, а вот уже десяток влияет...

Pakshin A. S., я тоже так думаю. большинство субд увеличивают размер файла блоками, так гораздо быстрее происходит вставка кучи записей одновременно.

Ухты, как всё сложно устроено!