是调用API函数还是用那个COMMON DIALOG的SHOWSAVE,我一个都用不来有没有简单的例子呢?谢谢了

解决方案 »

  1.   

    不是啊我想先让用户选择个路径然后把数据库拷贝到这个路径下,是不是应该先调用下API然后在用FILECOPY呢?这样能行吗
      

  2.   

    '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
      

  3.   

    VBMAN:请问我这样写对不对的 
    RepairMdb " " & App.Path & "\超市管理系统数据库.mdb", " " & App.Path & " \备份\超市管理系统数据库.mdb"
    我现在想直接点备份就能把我这个数据库直接放到那个位置,请帮帮我这个我一点都搞不明白呵呵,一点思路都没
      

  4.   

    RepairMdb App.Path & "\超市管理系统数据库.mdb", App.Path & "\备份\超市管理系统数据库.mdb"