关于使用ACCESS数据库的容量问题！请高手帮忙！！

我在使用ACCESS数据库发现一个问题，就是你往数据库中添加十兆的数据，然后再将这十兆的数据全部删除，但是数据库的容量依然为十兆，只有在ACCESS数据库窗口中点击菜单栏上的工具－－>数据库实用工具－－>压缩和修复数据库！这样才能使大小变成实际大小！如何在程序实现此功能！我用的是vb6！还请高手帮忙！！！！

6 个解决方案

#1

DBEngine.CompactDatabase

#2

access中删除并非真正意义上的删除，而只是在删除的记录上作个标记而已，只有压缩后才真正删除了，所以在删除操作后需要再做一次压缩才可

#3

如何使用 ADO 來压缩或修复 Microsoft Access 文件 


以前使用 DAO 時，Microsoft 有提供 CompactDatabase Method 來压缩 Microsoft Access 文件，RepairDatabase Method 來修复损坏的 Microsoft Access 文件，。可是自从 ADO 出來之后，好像忘了提供相对的压缩及修复 Microsoft Access 文件的功能。

現在 Microsoft 发现了这个问题了，也提供了解決方法，不过有版本上的限制！限制說明如下：

ActiveX Data Objects (ADO), version 2.1
Microsoft OLE DB Provider for Jet, version 4.0

這是 Microsoft 提出的 ADO 的延伸功能：Microsoft Jet OLE DB Provider and Replication Objects (JRO)

这个功能在 JET OLE DB Provider version 4.0 (Msjetoledb40.dll) 及 JRO version 2.1 (Msjro.dll) 中第一次被提出！
這些必要的 DLL 文件在您安裝了 MDAC 2.1 之后就有了，您可以在以下的网页中下载 MDAC 的最新版本！

Universal Data Access Web Site

在下载之前先到 VB6 中檢查一下，【控件】【設定引用項目】中的 Microsoft Jet and Replication Objects X.X library 如果已经是 2.1 以上的版本，您就可以不用下载了！

在您安裝了 MDAC 2.1 或以上的版本之后，您就可以使用 ADO 來压缩或修复 Microsoft Access 文件，下面的步骤告訴您如何使用 CompactDatabase Method 來压缩 Microsoft Access 文件：

1、新建一個新表单，选择功能表中的【控件】【設定引用項目】。
2、加入 Microsoft Jet and Replication Objects X.X library，其中 ( X.X 大于或等于 2.1 )。
3、在适当的地方加入以下的程序代码，記得要修改 data source 的內容及目地文件的路径：

Dim jro As jro.JetEngine
Set jro = New jro.JetEngine
jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\nwind2.mdb", _ '來源文件
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\\abbc2.mdb;Jet OLEDB:Engine Type=4" '目的文件

在 DAO 3.60 之后，RepairDatabase Method 已经无法使用了，以上的程序代码显示了 ADO CompactDatabase Method 的用法，而它也取代了 DAO 3.5 時的 RepairDatabase method！

 
 
=============
或者：
升级到VB 6SP3(QA001156 "VB中的sp2,sp3,企业版这三种各代表什么含义")，因为这个版本提供Jet 4.0支持在ADO中使用CompactDatabase。例子： 
    1、在IDE中选择“工程|引用”菜单。 
    2、添加Microsoft Jet and Replication Objects X.X library(这里X.X是大于或等于2.1的数)。 
    3、使用如下代码： 
     Dim jro As jro.JetEngine 
     Set jro = New jro.JetEngine 
     jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\nwind2.mdb", _ 
     "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abbc2.mdb;Jet OLEDB:Engine Type=4"

#4

yoki(小马哥--鬓微霜，又何妨) ,好棒!受益非浅

#5

学习
谢谢了:)

#6

我试用了一下yoki(小马哥--鬓微霜，又何妨)的方法，的确不错，修复、压缩、备份一举三得。不过注意目的文件不能事先存在，数据库有密码的话源文件和目的文件都要加上相应的字段。
Sub BackupMdb(strBack As String)
    Dim miJRO As jro.JetEngine
    Set miJRO = New jro.JetEngine
    miJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & App.Path & "\SailorManage.mdb;" _
        & "Jet OLEDB:Database Password=abc", _
    "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & strBack & ";" _
        & "Jet OLEDB:Database Password=abc"
End Sub