var
Mydb:_DBEngine;
sNewDatabase:String; {压缩后的数据库}
begin
DM.DbSource.Close;
sNewDatabase:='E:\TempCompact.mdb';
Mydb:=CoDBEngine.Create;
Mydb.CompactDatabase('E:\Sample.mdb',sNewDatabase,'',0,'');{要压缩的数据库->压缩后的数据库}
end;
Mydb:_DBEngine;
sNewDatabase:String; {压缩后的数据库}
begin
DM.DbSource.Close;
sNewDatabase:='E:\TempCompact.mdb';
Mydb:=CoDBEngine.Create;
Mydb.CompactDatabase('E:\Sample.mdb',sNewDatabase,'',0,'');{要压缩的数据库->压缩后的数据库}
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货