关于access数据库的问题，高手请进

[henryzc]

在对access数据库进行编程时，数据库一直在膨大。本以为是不是数据量太大了，可以将所有的数据表删除后，发现数据库却更大了，一直不得其解。后来在"工具"->"数据库实用工具"->"压缩和修复数据库"后，终于将数据库恢复正常大小。如何通过ADO直接变成实现这个功能呢？

[canoe_eyes]

gz!

[丁淇石头]

这个问题我也一直没弄明白，为什么数据删除了而空间没有释放？UP

[忠向]

个人推测：类似foxpro的pack命令，虽然从逻辑上删除了，可是没有作物理删除！
用ADO，看来你得翻翻ACEESS的type lib了！

[丁淇石头]

你将“工具”--“选项”中“常规”下的“关闭时压缩”选中试试

[FAICHEN]

看来删除就是一种标记，只有整理压缩才真正删除带标记得了

[henryzc]

非常感谢jnxulei(石头)，听君一席话，胜读十年书。直接对数据库进行操作后果然被压缩了，晚上准备通过ADO试试，好用了马上结贴放分。大家都有份

[henryzc]

昨天试了试，不好用啊。怎样才能将不必要的内容删除掉呢？

[康斯坦汀]

头文件加:

#import "C:\PROGRAM FILES\COMMON FILES\System\ado\MSJRO.DLL" no_namespace

.CPP:

...
try
{
IJetEnginePtr jet(__uuidof(JetEngine));
jet->CompactDatabase(
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\nwind2.mdb",
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\abbc.mdb;" \
"Jet OLEDB:Engine Type=4");
}
catch(_com_error &e)
{
::MessageBox(NULL, (LPCTSTR)e.Description( ), "", MB_OK) ;
}

注：
Jet OLEDB:Engine Type / Jet x.x Format MDB Files
1 JET10
2 JET11
3 JET2X
4 JET3X
5 JET4X

[henryzc]

感谢jnxulei(石头)、FAICHEN(CC) 、r3000() 、qiuxiangyong(qxy)、canoe_eyes(阿里)，马上结分