如何用ADO对ACCESS数据库进行压缩?

wozhy 2002-03-13 10:54:39
请高手指教!
...全文
54 点赞 收藏 1
写回复
1 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
sonicdater 2002-03-13
Dim je As New JRO.JetEngine

' 确保不存在与该压缩数据库同名的文件。
If Dir("C:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind2.mdb") <> "" Then Kill & _
"C:\Program Files\Microsoft Office\Office\Samples\Northwind2.mdb"

'压缩并加密版本 Northwind 数据库。
je.CompactDatabase _
"Provider=Microsoft.Jet.OLEDB.4.0; & _
"Data Source=C:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind.mdb", _
"Provider=Microsoft.Jet.OLEDB.4.0; & _
"Data Source=C:\Program Files\Microsoft Office\" & _
"Office\Samples\Northwind2.mdb;" _
"Jet OLEDB:Encrypt Database=True"
回复
相关推荐
发帖

1184

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2002-03-13 10:54
社区公告
暂无公告