如何在数据备份时用ACCESS源码实现对数据库的关闭

duckula

10楼说的对，我就这么做的

nxjswt

可以这样备份

Dim A, b, c, fs
    b = Format(Now, "yyyymmddhhmm")
    A = CurrentProject.Path
    c = A & "\backup\h2bak明细账删除前" & b & ".mdb"
   
    Set fs = CreateObject("Scripting.FileSystemObject")
   
    fs.copyfile A & "\h2.mdb", A & ".\backup\h2bak明细账删除前" & b & ".mdb"
   
    MsgBox "本系统已自动备份至" & c, vbInformation, "注意"