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

Вниз

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

 
pilot ©   (2002-04-30 13:06) [0]

Здраствуйте
Как испоьзовать PackTable?
PackTable(Table1) не воспринимает , может как-то по другому?
Мне нужно запаковать таблицы.Нелп я прочитал но по английскому
у меня плохо хотелось бы поподробнее.когда ставлю как в примере ругается почти на каждую строку что незарегестированный индентификатор.Помогите!!!
Pilot


 
DenNNis   (2002-04-30 14:19) [1]

Работает для *.dbf таблиц:


var res:DbiResult;


Table4.Active:=FALSE;
Table4.Exclusive:=TRUE;
Table4.Active:=TRUE;

res:=DbiPackTable(Table4.DbHandle,Table4.Handle, nil, szFoxPro, True);


 
DenNNis   (2002-04-30 14:22) [2]

да, еще надо использовать модуль bde


 
Erlend ©   (2002-04-30 21:10) [3]


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;



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

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

Наверх




Память: 0.47 MB
Время: 0.01 c
1-88443
Дмитрий757567
2002-05-17 13:59
2002.05.27
HALT - НЕ НОРМАЛЬНЫЙ


3-88372
mik
2002-04-30 12:00
2002.05.27
Почему у меня создаются файлы Del1.MB и _QSLQ000.DBF


4-88670
JIX
2002-03-26 14:21
2002.05.27
Цвета экрана


1-88527
allrussia
2002-05-15 13:01
2002.05.27
Д.д. Напомните, как сделать, чтобы INT64 работала в D3?


14-88596
Саша
2002-04-18 10:03
2002.05.27
База данных