Z
zmxk
Unregistered / Unconfirmed
GUEST, unregistred user!
我的意图是想由程序动态建立一个数据库mdb后。进行一次压缩之后,希望它能自动对之后加入的数据进行压缩,我的流程如下:<br><br>1/新建一个crm.mdb;<br>2/压缩这个crm.mdb;(建库成功后只做一次压缩)<br>3/动态加入新的数据(自动对这些数据进行压缩,不想再次调用压缩函数进行压缩);<br><br>但发现加入新的数据并没有进行压缩。<br><br>我使用以后这个方式对数据库进行压缩,如下<br>procedure TCRM.CompactLocalDb;<br>var<br> STempFileName: String;<br> vJE: OleVariant;<br>begin<br> STempFileName := 'tempcrm.mdb';<br> try<br> ADOConnect.Connected := False;<br> vJE := CreateOleObject('JRO.JetEngine');<br> vJE.CompactDatabase(Format(SConnectionString,[FLocalCrmDB,'']),Format(SConnectionString,[STempFileName,'']));<br> CopyFile(PChar(STempFileName),PChar(FLocalCrmDB),False);<br> DeleteFile(STempFileName);<br> except<br> CmdException.WriteLogInfo('TCRM.CompactLocalDb','CompactLocalDb Error');<br> end;<br>end;<br>期望你的指点。分不是很多,先谢过了。