如何压缩ACCESS 数据库（不使用DAO）

[道素]

不胜感激

[robin_xin_xin]

关注

[ASSASSIN_GEN]

使用JRO(工程菜单->引用->Microsoft jet and replication objects 2.5)
JRO jetengine对象用一个CompactDatabase方法可以压缩数据库。
下面是一个使用CompactDatabase压缩数据库的例子：
strConnOriginal = "Prvider = Microsoft.jet.oledb.4.0;Data Source = FilePath;" '源数据库
strConnNew = "Microsoft.jet.oledb.4.0;Data Source = FilePath;" '压缩后数据库
set jroEngine = New JRO.JetEngine
jroEngine.CompactDatabase strConnOriginal,strConnNew

[cqq_chen]

sheet arj or zip

[netfor2000]

ZIP　等就可以了。