怎样压缩数据库？？？？？

Set JRO_DataBase = CreateObject("jro.JetEngine")
  StrOld ="c:\1.DBTeam.mdb" 
  StrNew = "c:\2.DBTeam.mdb"
  StrProv = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
  JRO_DataBase.CompactDatabase StrProv & StrOld, StrProv & StrNew
  Kill StrOld
  Name StrNew As StrOld
  Set JRO_DataBase = Nothing

解决方案 »

  1.   

    引用Microsoft Jet and Replication Objects X.X libraryDim jro As jro.JetEngine
    Set jro = New jro.JetEngine
    jro.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\data1.mdb", "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\data2.mdb;Jet OLEDB:Engine Type=4"
    Set jro=Nothing
      

  2.   

    谢谢两位了！请问怎样用代码修恢ACCESS2000数据库呢？