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

wozhy 2002-03-13 10:54:39
请高手指教!
...全文
51 点赞 收藏 1
写回复
1 条回复
切换为时间正序
请发表友善的回复…
发表回复
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"
回复
发动态
发帖子

1180

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
社区公告
暂无公告