VPF::Программная упаковка таблиц Paradox

МирВал

Дата 6.12.2006, 09:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 6.12.2006
Где: Украина, г.Свердл овск

Репутация: нет
Всего: нет

Есть таблица PARADOX 8/0. Иногда появляется проблема: запрос к таблице не отбирает записи. Лечится это реструктуризацией таблицы, но обязательно с функцией pack. Собственно вопрос: Как програмно это сделать? Спасибо.

Akella

Дата 28.4.2007, 08:35 (ссылка)

(нет голосов)

Загрузка ...

Творец

Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: нет
Всего: 329

не уверен, но может это?

Код


Procedure TfmMain.PackTable(tLog:TTable);
var
  TblDesc: CRTblDesc;
//  rslt: DBIResult;
  Dir: string; //имеется в виду huge string т.е. {$H+}
  hDb: hDbiDb;
begin
  if tLog.Active then tLog.Active := False; //деактивиpуем TTable
  if not tLog.Exclusive then tLog.Exclusive:=True;
  SetLength(Dir, dbiMaxNameLen + 1);
  DbiGetDirectory(tLog.DBHandle, False, PChar(Dir));
  SetLength(Dir, StrLen(PChar(Dir)));
  DbiOpenDatabase(nil, nil, dbiReadWrite, dbiOpenExcl, nil, 0, nil, nil, hDb);
  DbiSetDirectory(hDb, PChar(Dir));
  FillChar(TblDesc, sizeof(CRTblDesc), 0);
  StrPCopy(TblDesc.szTblName, vDBPath+tLog.TableName);
  StrCopy(TblDesc.szTblType, szParadox);//BTW тут может и szDBase стоять
  TblDesc.bPack := TRUE;
  DbiDoRestructure(hDb, 1, @TblDesc, nil, nil, nil, False);
  DbiCloseDatabase(hDb);
end;

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Другие СУБД \| Следующая тема »