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

[Mercedes]

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

[飞天凤凰601]

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

//使用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;

[Mercedes]

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

[安优小青和他的程序生活]

YING GAI XING

[Mercedes]

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

[adailee]

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

[Mercedes]

谢谢了。