用支持zip格式的压缩控件压缩数据库,再把压缩过的文件复制到备份目录中.

解决方案 »

  1.   

    先引用
    Microsoft Scripting Runtimedim Fso as new filesystemobject
    Fso.CopyFile App.Path & "\DB.mdb", CommonDialog1.FileName, True
      

  2.   

    复制之前先关闭连接,然后拷贝就行了
    如:
    AdoCon.close
    FileCopy SourceDBPathName, OutputFileName
      

  3.   

    补充:
    AdoCon的定义为
    dim AdoCon as ADODB.Connection 如果需要压缩,找个控件,调用ZIP就行了
      

  4.   

    两种方式:1,就是上面讲的文件拷贝,这个方法比较方便,但有一个缺点就是ACCESS数据库在使用过程中将会越来越大,及时数据库中的数据非常少也很大,所以备份后所占用空间也会越来越大。
    2,用代码重新生成一个和要备份的数据库相同的新数据库,再用select * into newTable from oldTable语句将所有的数据复制到新的数据库中。
    以上是我的一点见解,希望能对你又帮助。
      

  5.   

    up
    access变大起来蛮恐怖的