使用代码压缩后端数据库！

paul16

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

如果密码不正确，第一次运行后，文件变为temp001.mdb，
再运行一次，可什么也没有了！！！

paul16

你密码要输入正确就没问题了啊!这个主要是为了解决压缩问题,出错可就没辙了 !  :-)

haixing

以下是引用paul16在2004-4-8 18:47:41的发言：
你密码要输入正确就没问题了啊!这个主要是为了解决压缩问题,出错可就没辙了 !  :-)

说得也是。