ACCESS用代码如何压缩与修复带有安全机制工作组的后台文_access编程心得-access开发之路-access攻略

当前位置：主页 > 技巧 > Access技巧 > 编程心得绝招 > 实际编程 > 正文

ACCESS用代码如何压缩与修复带有安全机制工作组的后台文

时间：2006-08-25 09:41 来源：appleking 作者：http://b… 阅读：次

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 "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & ysdb & ";Jet OLEDB:Database Password=" & "", "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & srph & ";Jet OLEDB:Database Password=" & ""

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

(责任编辑：admin)

顶一下

(0)

踩一下

(0)

上一篇：VBA自动安装和删除字体的代码
下一篇：Access到底能做什么