前提条件
如果没有安装office的话,需要安装引擎
安装了office就不用安装引擎
连接数据库
Dim plMydb As Microsoft.Office.Interop.Access.Dao.DatabaseplMydb = DAODBEngine_definst.OpenDatabase(ppDataBase)
备份数据库
AccessDB.CompactDatabase(iMDBFile, iTMPFile)