delphi 压缩和修复Access 数据库

delphi 压缩和修复Access 数据库

转自(http://blog.sina.com.cn/s/blog_4a8552f801008ilq.html) MS Access 2000的数据库文件 在使用MS Access 2000的过程中，我们发现随着时间的推移，由于Access会给数据库自动保留一份副本集，这样造成了数据库占用的空间越来越大。如果在Access环境中，我们可以通过点选菜单（工具-数据库实用工具-压缩和修复数据库），来将Access数据库压缩。那么通过Delphi能不能压缩和修复 Access数据库呢？答案是肯定的。利用下面的这个函数，成功的实现了实现这个功能。代码如下： Function CompactAndRepair(sOldMDB : String; sNewMDB : String) : Boolean; const sProvider = 'Provider=Microsoft.Jet.OLEDB.4.0;'; var oJetEng : JetEngine; begin sOldMDB := sProvider + 'Data Source=' + sOldMDB; sNewMDB := sProvider + 'Data Source=' + sNewMDB; try oJetEng := CoJetEngine.Create; oJetEng.CompactDatabase(sOldMDB, sNewMDB); oJetEng := Nil; Result := True; except oJetEng := Nil; Result := False; end; end; 使用该函数的例子如下： if CompactAndRepair('d:\db\Old.mdb', 'd:\db\New.mdb') then ShowMessage('操作成功') else ShowMessage('操作失败'); 应注意的是，在压缩和修复数据库的过程中，不能有其它的操作打开该数据库，否则操作会失败。 另外，要想上面的函数编译通过，你需要先把Microsoft Jet and Replication Objects 2.1 Library导入到Delphi中，步骤如下： 1、在Delphi集成开发环境中，点选菜单(Project-Import Type Library)。 2、在弹出的对话框中，移动滚动条，找到Microsoft Jet and Replication Objects 2.1 Library。 3、点击Install按钮。 然后把JRO_TLB单元添加到你的Delphi应用程序中的Uses单元。好了，运行程序试一下吧，数据库文件是不是小了好多呢？