为什么Acess数据库中的所有记录都删除了?其属性显示其文件大小还有2M多?(10分)

如题 2M是没删除之前的大小?

Acess就是这样的，你用Acess中的工具->数据库实用工具->压缩和修复数据库操作一下，应该就是你Acess实际的大小了

记录了操作过程就像SQLServer的Log数据文件一样

那 属性中显示的是它的实际大小么?

当然是实际大小，不过如果有删除的条目，整理下会小很多

就是在access里选择压缩数据库，数据被删除后占用的空间不会被自动释放

在那里选择压缩?我找了一下 没有找到?? 也是要通过代码实现么?

工具->数据库实用程序->压缩和修复数据库

恩 谢谢 hs-kill
可我用的数据库 将来要发布给用户 总不能让用户也这样做把
所以还还是要用程序来实现

在网站上找到的


在使用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单元。好了，运行程序试一下吧，数据库文件是不是小了好多呢？

（以上程序在Delphi5 Enterprise、Access2000、Windows98SE下调试通过）

接受答案了.