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 时间: 2002-4-11 04:39
能否采用先关闭数据库,再压缩,然后再打开,在ACCESS2000中文版高级编程中有一例子,先让用户退出再压缩,那程序太难了,没看懂作者: binbow_z 时间: 2002-4-11 04:48
欲知道压缩数据库详细信息,可去此地
http://www.mvps.org/access/general/gen0013.htm作者: zhuyiwen 时间: 2002-4-11 04:55
binbow_z版主,辛苦了作者: tsx 时间: 2002-4-11 05:18
盖茨的压缩都是在关闭状态下运行,难道你要超过他!!!???作者: tsx 时间: 2002-4-11 05:20
盖茨的压缩都是在关闭状态下运行,难道你要超过他!!!???作者: 大熊 时间: 2002-4-11 05:21
想破脑袋也没想出有什么实用性!作者: binbow_z 时间: 2002-4-11 05:38