Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Удаление большого числа записей из БД [D5, Paradox]

АСУ-Антон © (2002-08-01 11:27:00)
Мастера, помогите!!!
Срочно нужно научиться программно(пусть по нажатию кнопки) собирать мусор и удалять его (не используя InterBase Server Manager) после удаления большого числа записей из БД PARADOX, отобранных по определённому признаку. (После удаления методом Table1.DELETE(SQL использовать нельзя) размер базы не уменьшается).

Асу-Антон (2002-08-02 15:36:00) [1]
Все заработало
Всем спасибо.

Val (2002-08-02 13:00:00) [2]
Крапиляция - это ж надо так :))
Это не исправлять надо, а следовать сказанному - таблица для упаковки должна бвть открыта в эксклюзивном режиме: .Exclusive := True; После упаковки можно вернуть ее в прежнее состояние.

Асу-Антон (2002-08-02 12:56:00) [3]
Добавление:
1) Не забыть включить в uses ....,dbiProcs;

Вопрос:
Крапиляция проходит, но при попытке очистки выдаёт предусмотренное сообщение:
"Table must be opened exclusivelyto
pack");
Как это исправить?

Асу-Антон (2002-08-02 10:55:00) [4]
Понял:). Просто раньше дела с этим не имел.

procedure PackTable(Table: TTable);var Props: CURProps; hDb:
hDBIDb;
TableDesc: CRTblDesc;begin 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
else if (Props.szTableType = szDBASE) then
Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE,
True))
else
raise EDatabaseError.Create("Table must be either of Paradox or
dBASE " +
"type to pack"); Table.Open;end;

Val (2002-08-02 10:50:00) [5]
Насколько я понял, InterBase SM предназначен...
ну..допустим :) но вы-то работаете с парадоксом? эдак можно и оракловских и MSSQL-ских утилит нахватать и ими тесто месить? ;)

Асу-Антон (2002-08-02 10:44:00) [6]
В книге по программированию БД и справке Delphi5 я искал ответ.
Насколько я понял, InterBase SM предназначен, в частности, для удаления мусора.
(у него ещё много функций).
Мне посоветовали использовать функцию PackTable из пакета RxLib.

Mike_Goblin (2002-08-02 09:50:00) [7]
Присоединяюсь к предыдущему автору по поводу упаковки
PS а какое отношение имеет InterBase Server Manager к Paradox?

Val (2002-08-01 11:46:00) [8]
нужно паковать таблицы, вопрос довольно частый, должен быть в факе или поиск по форуму.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »