转自(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单元。好了,运行程序试一下吧,数据库文件是不是小了好多呢?
posted on 2010-02-04 14:48
无声 阅读(1020)
评论(0) 编辑 收藏 所属分类:
职场生活