Ms access MS Access Jet数据库编程紧凑

参考：

大家好，我正在寻找一种通过预定任务运行批处理脚本的方法，以压缩和/或修复“Jet”.mdb文件/数据库

环境
Win 7 32位
Jet 4.x格式
application.exe原始代码语言未知

---

我确实安装了喷气发动机，但让我们假装它不是一个场景请求

自动化是这里的终极游戏。

我已经阅读了上述链接“”

我真的不是一个编码员，所以我花了大约2-3个小时来完成所有的工作，我失败得很惨(

我的请求-如果你能帮忙，请。 我需要完整的“复制和过去的代码”-我的手指患有诵读困难症；）我就是不能在这个级别上编码

我可以使一个简单的批处理文件成功运行。 我不在乎它是VBA还是直线命令行，但您必须指导我如何使它工作

谢谢你的帮助

致以最良好的祝愿，

---

Vincent

这是一个精巧版的compact on close，显示常见问题的信息；例如，当源文件不存在时；当源文件具有无效的文件扩展名时；当目标文件存在时（不能）

下面是另一个压缩/修复功能，但不建议在每次关闭时任意执行-只需使用自己的错误代码替换/删除我的错误代码即可

Function RepairDatabase(strSource As String, _
        strDestination As String) As Boolean
        ' Input values: the paths and file names of
        ' the source and destination files.

Dim strSource As String
Dim strDestination As String

strSource = "\\Dg\Debt \2010\Summary\Summary.mdb"
strDestination = "\\Dg\Debt \2010\Summary\Summary_Compact.mdb"

    ' Trap for errors.
    On Error GoTo ErrorRoutine

    ' Compact and repair the database. Use the return value of
    ' the CompactRepair method to determine if the file was
    ' successfully compacted.
    RepairDatabase = _
        Application.CompactRepair( _
        LogFile:=True, _
        SourceFile:=strSource, _
        DestinationFile:=strDestination)

    ' Reset the error trap and exit the function.
    On Error GoTo 0
    Exit Function

' Return False if an error occurs.
Exit_Function:
    Exit Function
ErrorRoutine:
    RepairDatabase = False
    Call LogError(Err.Number, Err.Description, conMod & ".RepairDatabase", , True)
    Resume Exit_Function
End Function

Call the function as such:
Call RepairDatabase(strSource, strDestination)

按如下方式调用函数：

Call RepairDatabase(strSource, strDestination)

---

抱歉，StAcExcel不是一个代码编写服务-请保持问题，并考虑更合适的感谢。我来看看。致以最良好的祝愿，

Call RepairDatabase(strSource, strDestination)