如何在数据库打开时压缩数据库(2)？

作者：摘自：录入：cg1 时间：2002-11-19 浏览人次：788

专题地址：http://www.access911.net/index.asp?u1=a&u2=76FA 如果需要更详细的评论或说明，请点击该地址。

简述：

'可惜兼容性不是很好。稍微修改了一下，可以适合97与XP，没有ACCESS 2000的，希望你们能给我补上。

Dim ref As Reference
Dim I As Byte

Set ref = References!Access

'记得引用 Microsoft Office X.X Object Library
'我不用Application.Vertion是由于，这个属性在Access 97中不存在。
Select Case ref.Major
    Case 8: I = 6 ''Access 97
    Case 9: I = 7 ''Access XP
Case Else
    MsgBo.....................
...........

资料库随时有更新，欲查看最新详情请单击专题地址：http://www.access911.net/index.asp?u1=a&u2=76FA

上一篇：如何在数据库打开时压缩数据库？

下一篇：如何在VBA或者JET SQL下编程更改ACCESS MDB 数据库口令(密码)？

2010年7月2日生成静态资料