Office中国论坛/Access中国论坛

标题: ACCESS用代码如何压缩与修复带有安全机制工作组的后台文 [打印本页]

---

作者: appleking    时间: 2006-1-15 21:49
标题: ACCESS用代码如何压缩与修复带有安全机制工作组的后台文
ACCESS用代码如何压缩与修复带有安全机制工作组的后台文件

其中工作组的用wmd文件已存在而且知道用户名与密码

如果不带工作组的的优化如下，那带工作组的呢如何


Dim srph As String, ysdb As String
Dim je As New JRO.JetEngine   

srph = CurrentProject.Path & "\base000.mdb"
ysdb = 路径

If Dir(srph) <> "" Then Kill srph
je.CompactDatabase "rovider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ysdb & ";Jet OLEDBatabase Password=" & "", "rovider=Microsoft.Jet.OLEDB.4.0; Data Source=" & srph & ";Jet OLEDBatabase Password=" & ""

Set je = Nothing
FileCopy srph, ysdb
Kill srph
MsgBox "源数据文件已优化！ ", vbInformation, "提示"
End If

---

作者: appleking    时间: 2006-1-16 18:30
没人顶吗。。我自己顶一下

---

作者: appleking    时间: 2006-8-25 17:20
[em03]

---

作者: bpchan    时间: 2008-11-24 13:40
标题: 学习！！！
学习！！！

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3