Скачать: CL | DM;

Упаковка файлов DBF   Найти похожие ветки 

← →
borg   (2003-05-13 09:03) [0]

Подскажите есть ли в DELPHI аналог команды pack из FOXPRO, то есть необходимо доконца удалять данные, а не помечатьт их как удалённые как это делается table1.delete.

---

← →
VAleksey ©   (2003-05-13 09:11) [1]

uses bde;
dbipacktable...
описание в bde32.hlp

---

← →
evg28   (2003-05-13 09:17) [2]

try
TableServ.Close;
TableServ.Exclusive:= true;
TableServ.Open;
DbiPackTable(TableServ.DBHandle, TableServ.Handle, nil, nil, TRUE ) ;
TableServ.Close;
TableServ.Exclusive:= false;
TableServ.Open;
TableServ.First;
except
end;

---

← →
Соловьев ©   (2003-05-13 09:26) [3]

Удалено модератором
Примечание: Задай вопрос в СВОЕЙ ветке

---

← →
Stray   (2003-05-13 12:50) [4]

Проблема легко решается если используешь BDE. А если нет? Я предпочитаю ADO. Пробовал решить проблему вот так:
...
dbfConnect: TADOConnection;
cmdPackTbl: TADOCommand;
...
dbfConnect.Connected := false; // обязательно необходимо
dbfConnect.Connected := true; // переконектиться
cmdPackTbl.CommandText := "pack total";
cmdPackTbl.execute;

в 2000 винде действует, а вот в 98 вроде как нет. К сожалению искать причину небыло времени. Так как особой надобности в упаковке не имел.
DSN Driver = Microsoft Visual Foxpro

---

← →
Melnyk   (2003-05-14 11:57) [5]

Удалено модератором
Примечание: Задай вопрос в СВОЕЙ ветке

---

← →
MikeS   (2003-05-15 08:42) [6]

С древних времен известен универсальный способ упаковки:
1. Создаем таблицу2 с аналогичной структурой
2. Проход циклом по упаковываемой таблице с копированием записей в таблицу2
3. Удаляем таблицу1
4. Переименовываем таблицу2 в таблицу1

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.015 c