压缩修复外部mdb(带密码)

时　间:2012-07-03 09:37:38
作　者:叶海峰   ID：31  城市：广州
摘　要:压缩修复外部mdb(带密码)
正　文:

网友殷小宝问:

在前台中因为数据表是系统自动编号,删除表中的全部记录,必须要压缩修复数据库,才能使自动编号从1开始,因为是链接表,所以必须还在对后台的数据库进行压缩与修复,下面是压缩数据库的代码:
 
Public Function Compact()
        With CommandBars.Add(, msoBarFloating, , True)
          .Controls.Add msoControlButton, CommandBars("Tools").Controls(7).CommandBar.Controls(2).ID
          .Visible = True
         .Controls(1).SetFocus
          SendKeys "{ENTER}"
     End With
End Function

如果数据库是带有密码的，则代码该怎么写？

下面整理了一个带密码的压缩修复数据库示例,供参考:

 (用DAO的方法,适用于2007与2010版本accdb文件,与access的版本无关,都可以压缩修复数据库)

附件:

点击这里下载