'access修复压缩,可用于备份还原 '引用 Microsoft Jet and Replication Objects 2.6Sub RepairMdb(Sou As String,Des as String ) 'Sou: 源mdb文件路径和名称;Des: 目标mdb文件路径和名称 Dim miJRO As jro.JetEngine Set miJRO = New jro.JetEngine miJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " _ & "Data Source=" & Sou & ";" _ & "Jet OLEDB:Database Password=123", _ "Provider=Microsoft.Jet.OLEDB.4.0; " _ & "Data Source=" & Des & ";" _ & "Jet OLEDB:Database Password=123" End Sub
'引用 Microsoft Jet and Replication Objects 2.6Sub RepairMdb(Sou As String,Des as String )
'Sou: 源mdb文件路径和名称;Des: 目标mdb文件路径和名称
Dim miJRO As jro.JetEngine
Set miJRO = New jro.JetEngine
miJRO.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & Sou & ";" _
& "Jet OLEDB:Database Password=123", _
"Provider=Microsoft.Jet.OLEDB.4.0; " _
& "Data Source=" & Des & ";" _
& "Jet OLEDB:Database Password=123"
End Sub
RepairMdb " " & App.Path & "\超市管理系统数据库.mdb", " " & App.Path & " \备份\超市管理系统数据库.mdb"
我现在想直接点备份就能把我这个数据库直接放到那个位置,请帮帮我这个我一点都搞不明白呵呵,一点思路都没