不知道copyfile行不行:),可能是最简单的吧!

解决方案 »

  1.   

    复制!粘贴!
    ACCESS不支持事物!不属于服务器类型的数据库!建议使用SQL Server或Oracle
      

  2.   

    压缩:复制同时压缩了删除的记录
    引用Microsoft Jet and Replication Objects X.X library
    Dim jro As jro.JetEngine
    Set jro = New jro.JetEngine
    jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\nwind2.mdb", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\abbc2.mdb;Jet OLEDB:Engine Type=4"
      

  3.   

    ACCESS不支持事物???
    兄弟大概是高手,一直都用Oracle,没有用过ACCESS吧