Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.09.08;
Скачать: CL | DM;

Вниз

Паковка dbf   Найти похожие ветки 

 
ViJen   (2003-08-18 12:53) [0]

Народ помогите разобраться - почему паковка не работает?
Кусок кода:
tblVeks.Close;
tblVeks.Exclusive:=true;
tblVeks.Open;
dbiPackTable(TblVeks.Database.Handle, TblVeks.Handle, nil, szDBASE, true);
tblVeks.Close;
tblVeks.Exclusive:=false;
tblVeks.Open;
Все же верно? чего ж тогда не хватает?


 
KoluChi ©   (2003-08-18 14:54) [1]

Example 1: Pack a Paradox or dBASE table.

This example will pack a Paradox or dBASE table therfore removing already deleted rows in a table. This function will also regenerate all out-of-date indexes (maintained indexes). This example uses the following input:

PackTable(Table1)

The function is defined as follows:

// Pack a Paradox or dBASE table
// The table must be opened execlusively before calling this function...
procedure PackTable(Table: TTable);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
begin
// Make sure the table is open exclusively so we can get the db handle...
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");

// Get the table properties to determine table type...
Check(DbiGetCursorProps(Table.Handle, Props));

// If the table is a Paradox table, you must call DbiDoRestructure...
if Props.szTableType = szPARADOX then begin
// Blank out the structure...
FillChar(TableDesc, sizeof(TableDesc), 0);
// Get the database handle from the table"s cursor handle...

Check(DbiGetObjFromObj(hDBIObj(Table.Handle), objDATABASE, hDBIObj(hDb)));
// Put the table name in the table descriptor...
StrPCopy(TableDesc.szTblName, Table.TableName);
// Put the table type in the table descriptor...
StrPCopy(TableDesc.szTblType, Props.szTableType);
// Set the Pack option in the table descriptor to TRUE...
TableDesc.bPack := True;
// Close the table so the restructure can complete...
Table.Close;
// Call DbiDoRestructure...

Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));
end
else
// If the table is a dBASE table, simply call DbiPackTable...
if (Props.szTableType = szDBASE) then
Check(DbiPackTable(Table.DBHandle, Table.Handle, nil, szDBASE, True))
else
// Pack only works on PAradox or dBASE; nothing else...
raise EDatabaseError.Create("Table must be either of Paradox or dBASE " +

"type to pack");

Table.Open;

end;

Осталось сравнить


 
VAleksey ©   (2003-08-18 15:11) [2]

У тебя есть вычисляемые или лукап поля?
Если да, то работать не будет.

PS
Впредь, желательно приводить текст ошибки.



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

Текущий архив: 2003.09.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.021 c
14-24695
ossa
2003-08-19 15:30
2003.09.08
Страница(банерная) интернет эксплоэр сама загружаеться и мешает


3-24313
Buka
2003-08-14 22:52
2003.09.08
Locate в ADO? Работает ли?


7-24725
Сергей Енин
2003-06-21 15:04
2003.09.08
Состояние файла...


9-24292
Карлсон
2002-12-15 14:53
2003.09.08
GLScene


3-24297
off
2003-08-19 12:25
2003.09.08
Первая запись через ХП (на FB)&