ACCESS使用链接表共享数据库的安全性案例探讨

access同SQL Server等其他数据库相比安全性相对较低，但如果根据不同的情况，灵活运用本身提供的安全机制，综合其他安全措施的应用，也能取得相当满意的效果。

下面是本人通过ACCESS的链接表对于局域网络数据库的共享的实例探讨，从一个侧面介绍了access的局域网络数据库的安全共享方法，经实践，方法简单易行，特别是在局域网内能起到很好的安全防范作用。

问题的提出

我在使用access初期开发应用程序时，网络共享数据库采用了映射网络驱动器的方法：即先映射网络驱动器（固定盘符），再把数据库进行拆分，后台数据库放在网络驱动器，然后打开前台数据库，点“文件”→“获取外部数据”→“链接表”，从映射网络驱动器上把所需的后台数据库中（网络数据库）链接起来。这种方法虽然十分简便，但问题也是显而易见的：存在着诸如拷贝数据库，打开数据库进行直接的修改删除等安全操作隐患，如果在网络数据库上加密码，那么每个用户在进行应用程序操作时一开始就要进行密码输入，且不说烦琐（特别是链接多个数据库），因为每个操作员都知道密码，也起不到保密的作用。那么如何做到使用链接表共享网络数据库的安全，

数据库说明及运行环境

本人开发的OBS系统是一套手袋行业的管理系统，主数据库名为BAG.mdb，随着开发的深入及应用，数据量加大，随后进行了拆分，前台仍为BAG.mdb（约20M，内含所有本系统所开发的查询、窗体、报表、宏、模块），后台拆分为3个数据库：BAG_be.mdb（约200M），bag_1yb.mdb（约120M），仓库帐.mdb（约10M），加之之前FOXPRO2.6 FOR DOS的MRP-I应用系统的转出的3个后台数据库：大库.mdb（约460M），小库.mdb（约400M），临时库.mdb（约200M）。共有6个后台数据库

后台数据库存放在一台安装有W2K的建有控制域的服务器上，域名为HYOBS，在其一NTFS分区上设为共享（用户的建立及权限的分配在此略），共享文件名为HY2007，此盘共建有4个目录， 6个数据库的网络位置设计如下：

BAG_be.mdb、bag_1yb.mdb、仓库帐.mdb3个数据库放于\\HYOBS\HY2007\OBS-SC\下，大库.mdb放于\\HYOBS\HY2007\大库\下,小库.mdb放于\\HYOBS\HY2007\小库\下，临时库.mdb----\\HYOBS\HY2007\小库\下,为演示说明用方便，密码统一设成a00001）

具体步骤

一、链接表（链接满足需要的表）

1、把上述的6个后台数据库，拷贝到本地的任一分区任一目录中，打开前台数据库BAG..mdb，点“文件”→“获取外部数据”→“链接表”，把所需的网络数据库文件全部链接进来。

2、在主数据库BAG.mdb中建立一个表(表名为：表_数据库)，表结构如图1：

用以下代码获取所有链接表及其所在的数据名称（以下程序可加在你认为合造的地方,按钮也可以）

Dim aa As String ‘表所对应的数据库名称

Dim stemp1 As String

Dim stemp2 As String

Dim stemp3 As String

Dim rs As ADODB.Recordset

Set rs = New ADODB.Recordset

'先清除空表

stemp1 = "delete * from 表_数据库"

rs.Open stemp1, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

'获取所有链接表及其所在的数据名称

Dim i As Integer, tdf As TableDef, qdf As QueryDef

For i = 0 To CurrentDb.TableDefs.Count - 1

'以下暂定数据库文件名不会超过255个字任符(注1个汉字和1个字母均占1个字符,包括.mdb 4个字符)

For k = 6 To 255

If Left(Right(CurrentDb.TableDefs(i).Connect, k), 1) = "\" Then

aa = Right(CurrentDb.TableDefs(i).Connect, k - 1)

k = 255

Else

aa = ""

End If

Next k

stemp2 = "insert into 表_数据库(表名称,对应数据库名称) select '" & CurrentDb.TableDefs(i).Name & "','" & aa & "' "

rs.Open stemp2, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

Next i

'由于新增的记录中有6个系统表的表名MSysAccessObjects,MSysaccessXML,MSysACEs,MSysObjects,MSysQueries,MSysRelationships,及刚建立的表名(表_数据库)，请删除：

stemp3 = "delete * from 表_数据库 where [对应数据库名称]='" & "" & "'"

rs.Open stemp3, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

完成后如下图2：

二、刷新链接表（把链接表定位到网络上）

‘刷新各个数据表，使之链接到WINDOWS2000上的共享数据库上

Dim db As Database

Dim a1 As TableDef

Set db = CurrentDb

Set p = CurrentDb.OpenRecordset("select * from 表_数据库")

‘调用表(表_数据库)中新增的记录（表名称及对应数据库名称）

Do Until p.EOF

If p("对应数据库名称") = "仓库帐.mdb" Then