1180
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
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"
' 确保不存在与该压缩数据库同名的文件。
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"