 |
ACCESS用代码如何压缩与修复带有安全机制工作组的后台文 |
热 |
| ACCESS用代码如何压缩与修复带有安全机制工作组的后台文 |
|
| 作者：http://b… 文章来源：appleking 点击数： 本日：{$DayHits} 更新时间：2006-8-25 9:41:54 |
|
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
|
| 文章录入：tm 责任编辑：tm |
|
上一篇文章： 用VBA统计字符串中的中文字个数
下一篇文章： Access多条件格式研究笔记 |
| 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |
用户登录 
新用户注册 
网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）