Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Пакование таблиц Paradox и dBASE

Delphi , Базы данных , Таблицы

Пакование таблиц Paradox и dBASE

Автор: Mike Orriss

Возвожно ли перестраивать и паковать таблицы Paradox из программ, написанных на Delphi, если да то как и где найти документацию по этому вопросу?

Попробуйте приведенную ниже функцию, она пакует таблицы Paradox и dBase (требуется компонент TDatabase, указывающий на ту же директорию, где хранятся таблицы):


uses DBIProcs, DBITypes, DBIErrs;

function PackTable(tbl: TTable; db: TDatabase): DBIResult;
var
  crtd: CRTblDesc;
begin
  Result := DBIERR_NA;
  with tbl do
    if Active then
      Active := False;
  with db do
    if not Connected then
      Connected := True;
  FillChar(crtd, SizeOf(CRTblDesc), 0);
  StrPCopy(crtd.szTblName, tbl.TableName);
  crtd.bPack := True;
  Result := DbiDoRestructure(db.Handle, 1, @crtd, nil, nil, nil, FALSE);
end;

Пример использования:


procedure TForm1.Button1Click(Sender: TObject);
begin
  if PackTable(Table1,DataBase1) = DBIERR_NONE then 
    .....
  else 
    MessageBeep(0);
end;

Статья Пакование таблиц Paradox и dBASE раздела Базы данных Таблицы может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Таблицы ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
17.01.2021 21:13:42/0.022116184234619/0