WEB开发网      婵犵數濞€濞佳囧磹婵犳艾鐤炬い鎰堕檮閸嬬喐銇勯弽銊с€掗梻鍕閺岋箑螣娓氼垱笑闂佽姘﹂褔婀佸┑鐘诧工妤犲憡绂嶉崜褏纾奸弶鍫涘妼缁楁岸鏌熷畡鐗堝殗闁诡喒鏅犲畷褰掝敃閵堝棙顔忔繝鐢靛仦閸ㄥ爼骞愰幘顔肩;闁规崘绉ぐ鎺撳亹闁绘垶锕╁Λ鍕⒑閹肩偛濡奸悗娑掓櫇缁顓兼径妯绘櫇闂佹寧绻傞弻濠囨晝閸屾稓鍘甸柣搴㈢⊕閿氶柣蹇ョ稻缁绘繃绻濋崘銊т紝闂佽鍨伴崯鏉戠暦閻旂⒈鏁傞柛鈾€鏅欑槐妯衡攽閻愬樊鍤熷┑顔藉劤铻為柛鏇ㄥ墯閸欏繘鏌嶉崫鍕櫣缂佲偓婢跺绠鹃柟瀛樼箘閿涘秵顨ラ悙顏勭伈闁诡喖缍婂畷鎯邦槻婵℃彃顭烽弻娑㈠Ω閵夈儺鍔夌紓浣稿€哥粔褰掑极閹剧粯鏅搁柨鐕傛嫹 ---闂傚倷鐒︾€笛兠洪埡鍛闁跨噦鎷�
开发学院数据库Access 了解Microsoft Access安全性 阅读

了解Microsoft Access安全性

 2007-10-15 15:15:06 来源:WEB开发网 闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹闂傚倷绀侀幉锟犲垂閻㈠灚宕查柟鎵閸庡秵銇勯幒鎴濃偓鐢稿磻閹炬枼妲堟繛鍡楃С濞岊亞绱撻崒姘扁枌闁瑰嚖鎷�婵犵數濮幏鍐川椤撴繄鎹曢梻渚€娼уú銈吤洪妸鈺佺劦妞ゆ帊鑳堕埊鏇㈡煏閸モ晛浠х紒杈╁仱閺佹捇鏁撻敓锟�闂傚倷绶氬ḿ褍螞閹绢喖绠柨鐕傛嫹  闂傚倷鑳舵灙缂佺粯顨呴埢宥夊即閵忕姵鐎梺缁樺姈椤愮厧鈽夊Ο閿嬬€婚梺褰掑亰閸撴稑鈻斿鑸碘拺闁告稑饪村▓鏃€绻涚仦鍌氬闁崇粯鎹囬獮瀣攽閹邦剚顔傛俊鐐€栧濠氬储瑜忛幉鎾晸閿燂拷
核心提示:通过编程设置权限要对数据库中的各种对象设置权限,可以使用 Group 或 User 对象的 SetPermissions 方法,了解Microsoft Access安全性(6),在下面的过程中,我们首先撤消组的所有权限,我们讨论了实现 Access 数据库不同保护级别的各种方法,介绍了共享级和用户级安全性,然后再赋予组

通过编程设置权限

要对数据库中的各种对象设置权限,可以使用 Group 或 User 对象的 SetPermissions 方法。在下面的过程中,我们首先撤消组的所有权限,然后再赋予组特定的权限。这样可以确保该组只具有我们指定的权限:

Private Function SetGroupPermissions(ByVal strGroup As String, _
     ByVal strTable As String, ByVal strObjectType As String, _
     ByVal strAction As String, _
     ByVal strRevokeEnum As String) As Boolean
   Dim catDB As ADOX.Catalog
   On Error GoTo SetGroupPermissions_Err
   Set catDB = New ADOX.Catalog
   With catDB
     ' 在当前数据库中打开 Catalog 对象。
     .ActiveConnection = CurrentProject.Connection
     ' 撤消组的所有权限。
     .Groups(strGroup).SetPermissions tblTable, _
       strObjectType, strAction, strRevokeEnum
      
     ' 赋予组特定的权限。
     .Groups(strGroup).SetPermissions tblTable, _
       strObjectType, strAction, _
       adRightRead Or adRightInsert Or adRightUpdate
   End With
   ' 关闭 Catalog 对象。
   Set catDB = Nothing
   SetGroupPermissions = True
SetGroupPermissions_Err:
   Msgbox Err.Number & ":" & Err.Description
   SetGroupPermissions = False
End Function

在当前数据库中打开一个 Catalog 对象后,我们使用了 Groups 集合的 SetPermissions 方法,撤消了该组对 Employees 表的所有权限。第一个参数是表的名称,第二个参数显示了对象的类型,这里是表。第三个参数指定了在设置权限时要执行的操作的类型,第四个参数是一个权限常数,指定了该组没有任何权限。我们已经撤消了该组对 Employees 表的所有权限,现在可以赋予其所希望的权限。下一个语句的前三个参数与前一个语句中的相同。第四个参数是通过使用 Or 运算符,组合不同的权限常数所创建的一个值。这里,我们赋予了读取、插入和更新该表的权限。要对指定类型(例如上述示例中的表)的所有新对象设置权限,请将用于赋予权限的语句中的第一个参数更改为 NULL 关键字。例如:

...
catDB.Groups(strGroup).SetPermissions NULL, adPermObjTable
...

小结

在本文中,我们讨论了实现 Access 数据库不同保护级别的各种方法,介绍了共享级和用户级安全性。同时还介绍了如何使用 Access Security Wizard 以及如何通过编程来实现安全设置。

上一页  1 2 3 4 5 6 

Tags:了解 Microsoft Access

编辑录入:爽爽 [复制链接] [打 印]
赞助商链接