关于win98下压缩一次access数据库后,没有自动对压缩后新加入的数据进行相应的压缩,win2K下没有这个问题。请高手指点。(100分)

  • 主题发起人 主题发起人 zmxk
  • 开始时间 开始时间
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> &nbsp;STempFileName: String;<br> &nbsp;vJE: OleVariant;<br>begin<br> &nbsp;STempFileName := 'tempcrm.mdb';<br> &nbsp;try<br> &nbsp; &nbsp;ADOConnect.Connected := False;<br> &nbsp; &nbsp;vJE := CreateOleObject('JRO.JetEngine');<br> &nbsp; &nbsp;vJE.CompactDatabase(Format(SConnectionString,[FLocalCrmDB,'']),Format(SConnectionString,[STempFileName,'']));<br> &nbsp; &nbsp;CopyFile(PChar(STempFileName),PChar(FLocalCrmDB),False);<br> &nbsp; &nbsp;DeleteFile(STempFileName);<br> &nbsp;except<br> &nbsp; &nbsp;CmdException.WriteLogInfo('TCRM.CompactLocalDb','CompactLocalDb Error');<br> &nbsp;end;<br>end;<br>期望你的指点。分不是很多,先谢过了。
 
Access数据库不能自动压缩
 
to easykoala<br>加入相同的数据,为何win2K下的数据量要比win98少很多。可能相当于win98下的五分之一.
 
后退
顶部