Office中国论坛/Access中国论坛

标题: 如何调用主菜单上的“压缩和修复数据库”命令？ [打印本页]

作者: 李寻欢 时间: 2003-3-29 17:28
标题: 如何调用主菜单上的“压缩和修复数据库”命令？
如题

作者: cattjiu 时间: 2003-3-29 17:56
http://www.office-cn.net/bbs/dispbbs.asp?boardID=2&replyID=2816&ID=564&skin=1

作者: eio 时间: 2003-3-29 18:00
这是一个“掩眼法”，我从来都不用，宁愿用工具栏以及快捷菜单！

作者: KOMAZ 时间: 2003-3-29 19:20
用CompactRepair 方法

压缩和修复指定的数据库 (.mdb) 或 Microsoft Access 项目 (.adp) 文件。返回 Boolean 型值；如果处理成功，返回 True。

expression.CompactRepair(SourceFile, DestinationFile, LogFile)

expression 必需。返回“Applies To”列表中的一个对象的表达式。

SourceFile  String 型，必需。代表要压缩和修复的数据库或项目文件的完整路径和文件名。

DestinationFile  String 型，必需。完整的路径和文件名，代表所返回文件的保存位置。

LogFile  Boolean 型，可选。如果在目标目录中创建一个日志文件用于记录在源文件中检测到的损坏，则为 True。只有在源文件中检测到损坏时，才创建日志文件。如果 LogFile 为 False 或省略，就不创建日志文件，即使在源文件中检测到损坏也是如此。

说明
源文件不可以是当前数据库，也不能被其他用户打开，因为调用该方法将会以独占方式打开源文件。

示例************************************************************
下面的示例将压缩和修复一个数据库，如果在源文件中检测到损坏，则会创建一个日志文件，并根据恢复是否成功而返回一个 Boolean 值。为使该示例运行，必须将源文件和目标文件的路径和文件名传给它。

Function RepairDatabase(strSource As String, _
      strDestination As String) As Boolean
      ' Input values: the paths and file names of
      ' the source and destination files.

' Trap for errors.
On Error GoTo error_handler

' Compact and repair the database. Use the return value of
' the CompactRepair method to determine if the file was
' successfully compacted.
RepairDatabase = _
      Application.CompactRepair( _
      LogFile:=True, _
      SourceFile:=strSource, _
      DestinationFile:=strDestination)

' Reset the error trap and exit the function.
On Error GoTo 0
Exit Function

' Return False if an error occurs.
error_handler:
RepairDatabase = False

End Function

作者: 李寻欢 时间: 2003-3-29 22:55
谢谢！

作者: ail 时间: 2003-7-15 08:05
不明白
如何我要把后端的数据库如a.mdb当点击后压缩，注意不是压缩前台，该如何做呢？

作者: cg1 时间: 2003-7-15 16:14
http://access911.net/index.asp?board=4&mode=3&recordid=71FAB71E
http://access911.net/index.asp?board=4&mode=3&recordid=76FABF1E17DC

作者: ail 时间: 2003-7-16 08:00
谢谢

作者: ail 时间: 2003-7-16 08:10
忘记这一点了：后台数据库有密码，因而提示错误，但我不知如何做？

作者: 徐阿鹏 时间: 2003-7-16 16:48
在系统菜单中－》工具－》选项－》常规－》关闭时压缩

作者: ail 时间: 2003-7-17 19:45
也就是说在后台的ACCESS的选项中把每次关闭时压缩就可以，是这样吗，不用VBA可以吗？我以前就是这样，但不觉得已压缩的感觉，倒是前台每次关闭压缩有感觉。
若我想用一按钮来控制后台压缩，如何做呢？（最好的，因为当数据大时控制比较好。）

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)