怎样用程序压缩ACCESS的数据库
在ACCESS中可以压缩数据库,用程序怎样压缩? 问题点数：0、回复次数：1Top
1 楼edisonwong（快乐开发者）回复于 2003-12-02 14:19:51 得分 0
我以前的Delphi 程序
CompactAccess:=CreateOleObject('JRO.JetEngine');
StrOldFileName:=FrmConnect.LocalDB;
StrNewFileName:=Copy(StrOldFileName,1,Length(StrOldFileName)-3)+'tmp';
CnnLocal.Close;
CompactAccess.CompactDatabase('Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+StrOldFileName,
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+StrNewFileName+
';Jet OLEDB:Encrypt Database=True');
CompactAccess:=Unassigned;
DeleteFile(StrOldFileName);
Top
