压缩、修复ACCESS 复制 ACCESS

最新推荐文章于 2021-05-23 06:30:31 发布

原创最新推荐文章于 2021-05-23 06:30:31 发布 · 723 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#access #microsoft #database #command

VB ACCESS 专栏收录该内容

5 篇文章

订阅专栏

本文介绍了一个使用VBA脚本的方法来压缩Access数据库文件。通过具体的VBA代码示例，展示了如何从一个源数据库文件中复制所有数据到另一个目标数据库文件，并在此过程中进行压缩，同时还提供了检查压缩前后文件大小的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub Command1_Click()
   'Sou: 源mdb文件路径和名称；Des: 目标mdb文件路径和名称
   '引用　Microsoft Jet and Replication Objects 2.6
    Dim miJRO As JRO.JetEngine
    Set miJRO = New JRO.JetEngine
    miJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & "D:/Sterilizing04Data.mdb " & ";" _
        & "Jet OLEDB:Database Password=123", _
    "Provider=Microsoft.Jet.OLEDB.4.0; " _
        & "Data Source=" & "D:/12/Sterilizing04Data.mdb" & ";" _
        & "Jet OLEDB:Database Password=123"
End Sub
Private Sub Command2_Click()
   ' MsgBox FileLen("D:/Sterilizing04Data.mdb")

MsgBox Format(FileLen("D:/Sterilizing04Data.mdb") / (CLng(1024) * 1024), "0.0")

End Sub