吐血送分了！！！怎么压缩数据带密码的数据库…………………

[flyinthesky]

主　　题：用jro压缩时出现的问题！！11
作　　者：flyinthesky
所属论坛：Visual Basic
问题点数：20
回复次数：1
发表时间：2002-1-10 0:12:48


在无密码时压缩正常。但有密码时总是出现'无ISMA安装信息'的错误提示！！！

请大侠帮助！

[fishzone]

这个问题我遇过，给你我的解决方法：

'压缩和修复数据库
Dim je As New jro.JetEngine
' Make sure that a file doesn't exist with the name of
If Dir(strDataBaseFileNameNew) <> "" Then Kill strDataBaseFileNameNew
' Compacts and encrypts database.
je.CompactDatabase _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Jet OLEDB:Database Password=joybig;" & _
"Data Source=" & strDataBaseFileName, _
_
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Jet OLEDB:Database Password=joybig;" & _
"Data Source=" & strDataBaseFileNameNew & _
";Jet OLEDB:Encrypt Database=True"
Set je = Nothing
FileCopy strDataBaseFileNameNew, strDataBaseFileName
Kill strDataBaseFileNameNew