在D5中如何执行VFP的PACK命令？

Mercedes 2001-07-20 08:58:57

删除倒是可以了，可是不能PACK。。。

...全文

148 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

Mercedes 2001-07-31

打赏
举报

谢谢了。

adailee 2001-07-31

打赏
举报

如果你使用的是vfp就可以使用AdoCommand来实现pack方法。
正确设置连接之后，
Adocommand1.commandText:='pack tablename'
然后execute就可以了。
注意，dBase不支持在adocommand中使用 Pack.

Mercedes 2001-07-23

打赏
举报

但是ADO里面已经没有dbiPackTable这类函数了。

安优小青和他的程序生活 2001-07-21

打赏
举报

YING GAI XING

Mercedes 2001-07-21

打赏
举报

但是我用的是ADO，不知能行否？

飞天凤凰601 2001-07-20

打赏
举报

独占方式打开下才可用做到

//使用BDE API函数
uses
BDE;
var
CompressTable:TTable;
begin
CompressTable:=TTable.Create(nil);
Screen.Cursor:=crHourGlass;
Path:=ExtractFileDir(FileName);
DBFileName:=ExtractFileName(FileName);
CompressTable.DatabaseName:=Path;
CompressTable.TableName:=DBFileName;
CompressTable.Exclusive :=true;
CompressTable.Open;
dbiPackTable(CompressTable.DBHandle,CompressTable.Handle,nil,szDBASE,true);
CompressTable.Free;
Screen.Cursor:=crDefault;