如果要通过编程实现 “修复与压缩” 的功能可以用 CompactDatabase 方法：
- DAO :: DBEngine.CompactDatabase
- JRO :: CompactDatabase

百度搜一下一大把

Jack315 发表于 2014-11-30 08:18
如果要通过编程实现 “修复与压缩” 的功能可以用 CompactDatabase 方法：
- DAO :: DBEngine.CompactDatab ...

CompactDatabase  方法：这个怎么使用，谢谢

本帖最后由 Jack315 于 2014-11-30 18:06 编辑

luo_wei 发表于 2014-11-30 16:00
CompactDatabase  方法：这个怎么使用，谢谢

假设编程环境为 Access VBA。首先要引用相应的库，比如 Microsoft Jet and Replication Object 2.6 Library。下面这段代码片段演示 CompactDatabase 的使用方法：

1. 
   
2. Private Sub CompactDBFile()
   
3. ' 压缩数据库文件
   
4.     Const cstrTemporaryFileName = "Temporary.mdb"
   
5.     Dim jroJE As New JRO.JetEngine
   
6.     Dim strSourceFile As String
   
7.     Dim strDestinationFile As String
   
8. 
   
9.     ' 如果数据库文件之前已打开连接，则关闭该数据库文件的连接
   
10.     If mconData.State <> adStateClosed Then CloseConnection
    
11. 
    
12.     ' mstrFileName 含有欲操作的数据库文件名
    
13.     strDestinationFile = GetDatabankDirectory & mstrFileName
    
14.     If Dir(strDestinationFile) <> "" Then
    
15.         ' 确保临时文件不存在
    
16.         strSourceFile = GetDatabankDirectory & cstrTemporaryFileName
    
17.         If Dir(strSourceFile) <> "" Then Kill strSourceFile
    
18. 
    
19.         ' 将欲压缩文件改名为临时文件
    
20.         Name strDestinationFile As strSourceFile
    
21. 
    
22.         ' 压缩临时文件
    
23.         jroJE.CompactDatabase cstrConnection & strSourceFile & ";", cstrConnection & strDestinationFile & ";"
    
24.         ’ 删除临时文件
    
25.         Kill strSourceFile
    
26.     End If
    
27. End Sub

复制代码
另外，LZ也可以参考 Access VBA 中关于 CompactDatabase 方法的帮助：