压缩access数据库？

[yzhtj301]

Dim JR As jro.JetEngine

Set JR = New jro.JetEngine

'conn.Close

JR.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;DataSource=" + App.Path + "\plkk.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + _
App.Path + "\plkk.mdd" '进行压缩
'conn.Open ADO_CON
Set JR = Nothing '释放JR对象


运行时报错“找不到可安装的isam"请教各位是何原因？

[aohan]

你用的是哪个版本的OFFICE？

可能是版本不对

[gg137zeus]

//App.Path + "\plkk.mdd" '进行压缩
还是 App.Path + "\plkk.mdb" '进行压缩

[aohan]

对，楼上倒比较细心，
plkk.mdd 确实写错了

[yzhtj301]

不好意思写错了，但还是报那个错！！！

[阿泰]

你应该用的是office97里的
把数据库mdb打开转换成新版本的应该就好了

[yzhtj301]

什么意思？怎么转换成新版本？

[aohan]

在“工具”里菜单里有一个“数据库实用工具”，里面就有转换数据库的选顶

你把改成："Provider=Microsoft.Jet.OLEDB.3.5;Data Source=

试试

[yzhtj301]

还是不行，又报什么未注册组件！！