Форум: "Начинающим";
Текущий архив: 2005.12.18;
Скачать: [xml.tar.bz2];
ВнизУпаковка dbf Найти похожие ветки
← →
veres (2005-12-05 16:33) [0]Добрый день! Помогите, пожалуйста разобраться с упаковкой dbf-таблиц. В справке нашел DbiPackTable, но не могу понять, как ее использовать. Если можно, напишите, пожалуйста пример если не сложно.
Спасибо.
← →
veres (2005-12-05 16:42) [1]Я понимаю, любой может ответить, что с той справке и есть пример. Но в том то и дело, не могу с тем примером разобраться, помогите на конкретной одной Table1, пожалуйста.
← →
ANB © (2005-12-05 16:45) [2]
> veres (05.12.05 16:42) [1]
dbf таблицы не рекомендуется упаковывать командой PACK.
1. Рисковая операция (можно потерять данные)
2. Не упаковываются мемо файлы
Решение - паковать копированием и не парится.
← →
veres (2005-12-05 16:55) [3]
> ANB © (05.12.05 16:45) [2]
> Решение - паковать копированием и не парится.
Поясни, пожалуйста...
← →
Anatoly Podgoretsky © (2005-12-05 16:57) [4]veres (05.12.05 16:42) [1]
Так оно и есть и пример рабочий.
← →
veres (2005-12-05 16:59) [5]
> Anatoly Podgoretsky © (05.12.05 16:57) [4]
Да, спасибо, но я не пойму куда и как использовать
procedure PackTable(Table: TTable);
← →
veres (2005-12-05 17:02) [6]Вот уж действительно парюсь, ну что поделаешь, если новичок... не могу еще с пониманием читать справку.
Может все таки с копированием проще...
← →
veres (2005-12-05 17:20) [7]
> veres (05.12.05 17:02) [6]
Вот тебе выжимка для Dbase:procedure PackTable(Table: TTable);
var
Props: CURProps;
ta,te: Boolean;
begin
ta := Table.Active;
te := Table.Exclusive;
Table.Close;
Table.Exclusive := True;
Table.Open;
try
Check(DbiGetCursorProps(Table.Handle, Props));
if (Props.szTableType = szDBASE) then
Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True))
else
raise EDatabaseError.Create("Table must be dBASE type to pack");
finally
Table.Close;
Table.Exclusive := te;
Table.Active := ta;
end;
end;
← →
veres (2005-12-05 17:31) [8]Спасибо!
Типа сам себе ответил?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2005.12.18;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.014 c