Office中国论坛/Access中国论坛

标题: 如何获取当前工作组 [打印本页]

作者: chenghai 时间: 2004-1-14 17:29
标题: 如何获取当前工作组
在对数据库设置安全机制后，利用currentuser()可以获取当前用户名，不知有什么函数可以获取当前用户所属的工作组名？
（没有currentgroup()这个函数）

作者: hi-wzj 时间: 2004-1-14 18:22
SysCmd(acSysCmdGetWorkgroupFile)
syscmd函数还有很多功能，不妨看看。

作者: chenghai 时间: 2004-1-14 20:28
不是，syscmd文件能够获得工作组文件本身，不能够知道当前用户是属于什么工作组。
如：用户“张三”属于“用户组”和“管理员组”，用户“李四”属于“用户组”和“只读组”，我想知道的是这个工作组。

作者: zhengjialon 时间: 2004-1-14 20:35
可能要利用到ADOX，试试看，我没有做过。

作者: 李寻欢 时间: 2004-1-14 21:17
Adox有一个user对象，该对象有一个Groups集合
因为一个用户可以属于多个组，所以要用循环来获取

作者: chenghai 时间: 2004-1-15 16:35
寻欢兄能讲讲实例吗？对于ADOX我是一窍不通。

作者: zhengjialon 时间: 2004-1-15 16:40
在ADO的帮助里一般都有相关的实例。

作者: zyz218 时间: 2007-9-3 15:37
这也是个好问题，希望大家一起来探讨一下！

作者: lirong 时间: 2007-9-15 00:10
Sub UserGroup()
Dim wsp  As Workspace
Dim usr  As User
Dim grp  As Group
'傳回預設工作區的參照位址。
Set wsp = DBEngine.Workspaces(0)
For Each grp In wsp.Groups
      For Each usr In grp.Users
         MsgBox usr.Name
      Next
Next
Set wsp = Nothing
End Sub

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)