★★如何压缩带密码的数据库?我试过不行.★★

Bizza 2004-01-29 11:50:00

不知道大家有没有试过??

我的代码:(提示密码错误,可是密码是对的啊!已检查过好几次.)
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb" & _
"Jet OLEDB:Database Password=111"

原来可以压缩的代码:
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbpath, _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "temp.mdb"

...全文

48 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

纪俊 2004-01-29

打赏
举报

connpath="database/DataShop.mdb"
Set Engine = CreateObject("JRO.JetEngine")
dbPath=server.MapPath(connpath)
strDBPath = left(dbPath,instrrev(dbPath,"\"))
Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ";Jet Oledb:database password=1234","Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "bak1.asp" & ";Jet OLEDB: Encrypt Database=True"
Set Engine = nothing
if err.number=0 then
response.write "已成功压缩数据！"
end if

转贴的