彻底隐藏ACCESS文件所有的基本表包括链接表及系统表函数
来源:互联网 发布:买淘宝号多少钱 编辑:程序博客网 时间:2024/04/28 02:33
因为系统的安全着想,所以想彻底隐藏所有的重要的表.之前在网上看到相关的文章,一种方法是将表的名称前面加一个前缀"USYS",将用户自己的表变成系统表,以起到隐藏的目的.但是,如果有心人将工具菜单的选项中的系统对象勾选,则还是会被显示出来.
另外一种方法是用代码隐藏表.在网上看到例子,只是我实际运行时,发现不能隐藏链接表.
以下这段代码可以隐藏系统中所有的表和链接表.而且不能通过一般办法使其恢复显示.如果要恢复,只需要将下段代码改改就行.
这段代码在执行时我将系统表排除在外了,如果不排除系统表的话,则会连系统表一起给隐藏掉了.
Function chediyincangbiao() '彻底隐蔽所有的表格包括链接表及系统表等
On Error GoTo Err_Command0_Click
Dim db As Database
Dim i As Integer
Set db = DBEngine.Workspaces(0).Databases(0)
db.TableDefs.Refresh
For i = 0 To db.TableDefs.Count - 1
'此项操作应避开系统表,以免将系统表属性改而造成问题.
If db.TableDefs(i).name = "msysaccessobjects" or db.TableDefs(i).name = "MSYSACCESSXML" _
or db.TableDefs(i).name = "MSYSACES" or db.TableDefs(i).name = "MSYSOBJECTS" _
or db.TableDefs(i).name = "MSYSQUERIES" or db.TableDefs(i).name = "MSYSRELATIONSHIPS" Then
Else
CurrentDb.TableDefs(db.TableDefs(i).name).Attributes = 1
End If
Next i
Set db = Nothing
MsgBox "当前数据库中的所有表格都已被隐藏."
Exit_Command0_Click:
Exit Function
Err_Command0_Click:
MsgBox Err.Description
Resume Exit_Command0_Click
End Function
- 彻底隐藏ACCESS文件所有的基本表包括链接表及系统表函数
- access表隐藏列隐藏
- 如何彻底隐藏Excel2007的工作表
- 如何彻底隐藏Excel2007的工作表
- Access链接表的使用
- access隐藏表
- linux下复制目录中所有文件及子目录(包括隐藏文件)
- Excel2010 彻底隐藏工作表
- 批处理--将指定磁盘根目录所有隐藏的文件(包括文件夹)去除隐藏属性
- 彻底隐藏文件的方法
- 访问Access链接表!
- 列举出所有进程(包括隐藏的)
- 怎样列出Access所有的表名?
- [access查询]将access表导出为TXT文件及将TXT文件导入access表的几个SQL语句
- ls -a 显示所有文件,包括隐藏文件
- 更改文件的系统及隐藏属性
- 获取ACCESS数据库中所有表及对象信息
- 获取ACCESS数据库中所有表及对象信息
- Dragon-Studio 之 Flash Alternativa 3D引擎 基础教程-3.打造基类
- camera学习(一)--参数设置
- 为什么要用CPAN
- Struts2概述
- 解决camera的两个小问题
- 彻底隐藏ACCESS文件所有的基本表包括链接表及系统表函数
- 代码审查
- centos5.4_64与Broadcom BCM5709不兼容问题
- 第三十六讲:Android手机摄像头编程入门
- Readiris Pro 12 中文版- 专业OCR扫描软件
- Ajax send 方法
- Differences between WM_NOTIFY and WM_COMMAND
- 在ubuntu10.04里面安装zimbra
- 祝贺新年兼暂别