如何壓縮自己本身

binbow_z

我这个是压缩后端数据库的,在前端启动时使用,啊?书上讲这个只能压缩关闭的数据库,小七兄有一段源码,让我去找找

binbow_z

这是七兄的代码,压缩前也要关闭数据库

修复数据库的函数：

Function RepDB(strDBPathName As String)
On Error GoTo err_RepDB
DBEngine.RepairDatabase strDBPathName
RepDB = "ass"
Exit Function
err_RepDB:
Select Case Err.Number
   Case 3356
       MsgBox Err.Description & vbLf & _
           "准备修复的数据库处于打开状态，请关闭所有操作后重试！"
   Case Else
       MsgBox Err.Description
End Select
RepDB = CVErr(65535)
End Function

压缩数据库的函数：

Function ComDB(strDBPathName As String)
On Error GoTo err_ComDB
Dim strTempName As String
Randomize
strTempName = Environ("Temp") & "\TempDB" & _
   Int((99 * Rnd) + 1) & ".mdb"
   DBEngine.CompactDatabase strDBPathName, strTempName
   Kill strDBPathName
   Name strTempName As strDBPathName
   ComDB = "ass"
   Exit Function
err_ComDB:
   MsgBox Err.Description
ComDB = CVErr(65534)
End Function

binbow_z

能否采用先关闭数据库,再压缩,然后再打开,在ACCESS2000中文版高级编程中有一例子,先让用户退出再压缩,那程序太难了,没看懂

binbow_z

欲知道压缩数据库详细信息,可去此地
http://www.mvps.org/access/general/gen0013.htm

zhuyiwen

binbow_z版主，辛苦了

tsx

盖茨的压缩都是在关闭状态下运行，难道你要超过他！！！？？？

tsx

盖茨的压缩都是在关闭状态下运行，难道你要超过他！！！？？？

大熊

想破脑袋也没想出有什么实用性！

binbow_z

以下是引用大熊在2002-4-10 21:20:56的发言：
想破脑袋也没想出有什么实用性！

他的实用性是在启动时检测并修复后端数据库的错误
对于大熊版主的观点,本人有一点小看法

wangling

SendKeys "%W1"   
SendKeys "%TDC"