Delphi中如何做数据库Pack更好！（30分赏你）

dbpower 2001-01-03 12:01:00

怎么做表（*.db/*.dbf）的PACK更好？？

...全文

285 15 打赏收藏转发到动态举报

写回复

用AI写文章

15 条回复

切换为时间正序

请发表友善的回复…

发表回复

foxnt 2001-01-24

打赏
举报

如果用ADO的话，如何实现PACK？

dbpower 2001-01-13

打赏
举报

再次谢谢gzice()，不过，我现在还没时间去解决！我先把分奉上！

dbpower 2001-01-09

打赏
举报

谢谢gzice()；我现在不能追加分，等问题圆满解决，并追加高分后，一定给你高分！！！！！！

dbpower 2001-01-09

打赏
举报

Black_archer(暗夜的炽天使)　你不觉得你有写无聊吗？
我想知道如何将Paradox已删除的记录恢复？？？

Black_archer 2001-01-09

打赏
举报

我也赏你两儿大嘴巴。

dbpower 2001-01-09

打赏
举报

还有没有大侠知道如何RECALL？？？？？？？？？？

gzice 2001-01-08

打赏
举报

PACK 嘛，简单，源程序如下，不过请一定给我加分：
function packalltable(databasename:string):boolean;
var
i:integer;
table:ttable;
packtablelist:tstringlist;
procedure PackTable(tmpTable: TTable);
var
Props: CURProps;
hDb: hDBIDb;
TableDesc: CRTblDesc;
begin
tmpTable.active:=false;
tmpTable.exclusive:=true;
tmpTable.active:=true;
Check(DbiGetCursorProps(tmpTable.Handle, Props));
if Props.szTableType = szPARADOX then
begin
FillChar(TableDesc, sizeof(TableDesc), 0);
Check(DbiGetObjFromObj(hDBIObj(tmpTable.Handle), objDATABASE, hDBIObj(hDb)));
StrPCopy(TableDesc.szTblName, tmpTable.TableName);
StrPCopy(TableDesc.szTblType, Props.szTableType);
TableDesc.bPack := True;
tmpTable.Close;
Check(DbiDoRestructure(hDb, 1, @TableDesc, nil, nil, nil, False));
end
else
if (Props.szTableType = szDBASE) then
Check(DbiPackTable(tmpTable.DBHandle, Table.Handle, nil, szDBASE, True))
else
raise EDatabaseError.Create('表必须是 Paradox 或 dBASE 类型...');
tmpTable.active:=false;
end;
begin
try
result:=false;
packtablelist:=tstringlist.create;
packtablelist.clear;
packtablelist.add('table1');
packtablelist.add('table2');
......
packtablelist.add('tablen');
table:=ttable.create(application);
table.databasename:=databasename;
for i:=0 to packtablelist.count-1 do
begin
table.tablename:=trim(packtablelist.strings[i]);
packtable(table);
end;
packtablelist.free;
table.free;
result:=true;
except
result:=false;
end;
end;

dbpower 2001-01-08