标题: 使用代码压缩后端数据库！ [打印本页] 作者: paul16 时间: 2004-4-7 19:37 标题: 使用代码压缩后端数据库！ Public Sub 压缩后端数据库() '压缩后端数据
Dim StrFTemp As String
Dim StrFName As String
Dim Lstar As Long, Lend As Long
StrFName = "D:\PoseSky商业管理软件\PoseSky_be.mdb"
StrFTemp = "D:\PoseSky商业管理软件\temp001.mdb"
If Dir(StrFTemp) <> "" Then Kill StrFTemp
If Dir(StrFName) <> "" Then Name StrFName As StrFTemp Else MsgBox StrFName & "不存在，无法进行压缩！"
DBEngine.CompactDatabase StrFTemp, StrFName, , , ";pwd=密码"
Kill StrFTemp
End Sub作者: haixing 时间: 2004-4-9 01:30
如果密码不正确，第一次运行后，文件变为temp001.mdb，
再运行一次，可什么也没有了！！！作者: paul16 时间: 2004-4-9 02:48
你密码要输入正确就没问题了啊!这个主要是为了解决压缩问题,出错可就没辙了 ! :-)作者: haixing 时间: 2004-4-10 20:38