当前位置: 首页 > 图文教程 > 数据库 > Access > 如何在ACCESS中压缩当前数据库

Access
多表查询技巧
用 INNER JOIN语法联接多个表建记录集
union这个连接是有什么用的和INNER JOIN有什么区别
Microsoft Access 数据库常规规格
随机提取N条记录
给你的数据库文件减肥
将Access数据库移植到SQL Server
Access使用查询--1.2.用选择查询进行分组数据的计算
Access使用宏控制程序
Access使用宏控制程序 3.在宏中使用条件
Access使用宏控制程序 4.常用的宏操作
Access使用宏控制程序--1.5.一个宏的实例——检验口令
Access使用宏控制程序--1.6.使用宏的几点说明
Access使用查询--1.1. 用选择查询建立计算字段
Access使用查询
使用准则进行条件查询
Access使用查询 在查询中执行计算的注意事项
使用准则进行条件查询--1.3.运行查询前输入参数
建立自由的会计日期的报表--1.3.根据用户选择日期自动计算期初期末日期
建立自由的会计日期的报表--1.4.让报表处理期初和期末之间的数据

Access 中的 如何在ACCESS中压缩当前数据库


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-17   浏览: 41 ::
收藏到网摘: n/a

ACCESS只能压缩已关闭的ACCESS数据库,因此,不能在代码中直接对当前的数据库进行。但可以调用ACCESS菜单的方法解决这个问题。accDoDefaultAction是一个Office Object Library没有公布的调用菜单的方法,下面就是解决这个问题的例程:

'对于简体中文版OFFICE:

'压缩当前使用的数据库

'要引用Microsoft Office 10.0(或9.0) Object Library

'英文版Office:

'压缩当前使用的数据库

'要引用Microsoft Office 10.0(或9.0) Object Library

以下为引用的内容:
Public Sub CompactDB()
    CommandBars("Menu Bar"). _
    Controls("Tools"). _
    Controls("Database utilities"). _
    Controls("Compact and repair database..."). _
    accDoDefaultAction
End Sub

或者:

'压缩当前使用的数据库

'要引用Microsoft Office 10.0(或9.0) Object Library

以下为引用的内容:
Public Sub CompactDB()
    CommandBars("Tools").Controls(7).Controls(2).accDoDefaultAction
End Sub

注:运行本程序,你必须引用 Microsoft Office 9.0 Object Library (Office 2000)或 Microsoft Office 10.0 Object Library (Office XP)