Office中国论坛/Access中国论坛

标题: 【原创源码】一个获取连接当前Access数据库的用户名的函数 [打印本页]
作者: 红尘如烟    时间: 2007-1-7 20:58
标题: 【原创源码】一个获取连接当前Access数据库的用户名的函数
本帖最后由 红尘如烟 于 2010-4-17 15:06 编辑
图中我是打开数据库后，又在另一个数据库打开了到此数据库的链接表，所以两个用户名是一样的
  1. '===================================================================================================

  2. '-函数名称：  GetDbConnectedUsers

  3. '-功能描述：  获取连接当前Access数据库的计算机名

  4. '-输入参数：  Delimiter      可选的，各连接计算机名之间的分隔符

  5. '-返回参数：  调用成功返回由指定分隔符分隔的所有连接到当前数据库的计算机名，调用失败返回空字符串

  6. '-使用示例：  strUsers = GetDbConnectedUsers()

  7. '-使用说明：

  8. '-参　　考：  微软例程

  9. '-作　　者：　红尘如烟

  10. '-创作日期：  2007-7-1

  11. '-修    改：  2010-4-16 红尘如烟

  12. '===================================================================================================

  13. Public Function GetDbConnectedUsers(Optional Delimiter As String = ";") As String

  14.     On Error GoTo Exit_GetDbConnectedUsers

  15.    

  16.     Dim strTemp As String

  17.     Dim rst     As Object

  18.    

  19.     Set rst = CurrentProject.Connection.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

  20.     Do Until rst.EOF

  21.         strTemp = rst![COMPUTER_NAME]

  22.         GetDbConnectedUsers = GetDbConnectedUsers & Delimiter & Left$(strTemp, InStrRev(strTemp, vbNullChar) - 1)

  23.         rst.MoveNext

  24.     Loop

  25.     rst.Close

  26.     GetDbConnectedUsers = Mid$(GetDbConnectedUsers, 2)

  27.    

  28. Exit_GetDbConnectedUsers:

  29.     Set rst = Nothing

  30.     Exit Function

  31.    

  32. Err_GetDbConnectedUsers:

  33.     GetDbConnectedUsers = ""

  34.     Resume Exit_GetDbConnectedUsers

  35. End Function
复制代码
作者: 真主    时间: 2007-1-8 17:28
[attach]22514[/attach]
原str改为strUsers才可用
作者: 红尘如烟    时间: 2007-1-9 05:16
晕，想不到居然还会犯这种低级错误！多谢2楼的提醒

作者: jpj123123    时间: 2008-2-15 21:36
虚心学习了!!!!!!!!
作者: yasen88    时间: 2008-4-3 22:36
好好学习
作者: yasen88    时间: 2008-4-3 22:38
虚心一点好
作者: ABCaccess    时间: 2008-6-1 01:47
谢谢你与大众分享
作者: ynjxw    时间: 2008-6-1 14:50
我的文件有几个人在用,但是怎么只能获得一个计算机名?
作者: ivychou    时间: 2008-6-2 11:06
标题: OFFICE里的数据库怎么设计一个表里可以有分类小计和总计？
我是刚刚才学习这个数据库的，对于编程更是不懂，现在老总要我弄一个数据库，可以分类小计、计算百分比、以及总计？

请各位高手帮帮忙。[:12]
作者: 7777777    时间: 2008-6-2 20:10
谢谢你与大众分享
作者: jiangboo    时间: 2008-6-3 04:09
虚心学习了!!!!!!!!
作者: XWQ2000    时间: 2008-8-31 16:32
谢谢你与大众分享
作者: wu8313    时间: 2008-8-31 21:59
如果有客户机连接到这个库，可以查看连接机器名和登录名吗？
如果仅仅是查看本机的话，使用这个函数就简单有效了：
Environ ("COMPUTERNAME")
Environ ("USERNAME")
作者: 086-china    时间: 2008-9-1 09:29
谢谢你与大众分享
作者: 13555609005    时间: 2008-9-2 12:03
学习吓
作者: zss427607    时间: 2008-9-28 23:07
谢谢你与大家分享

学习
作者: jameszheng1981    时间: 2008-12-13 10:17
学习学习
作者: chuang0321    时间: 2009-1-20 09:30
学学......
作者: lsb79967530    时间: 2009-5-4 08:02
人生得意万千重，春回梦醒原是空。红尘佳人如烟事，云淡风轻一笑中。
黑夜给了我黑色的眼睛，我却翻着白眼看黄片＿＿＿
楼猪搞笑
作者: luhao    时间: 2009-5-9 21:25
多谢
作者: shame    时间: 2009-8-14 14:33
www.office-cn.net
作者: 红尘如烟    时间: 2010-4-16 23:09
修改了一下，原来的由于包含了vbNllChar字符，所在在列表框中不能正常显示
作者: gordonbwb    时间: 2010-4-19 17:44
我是新手。请问access也可以直接编写程序吗。这是什么语言连mdb的源码吗？



欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3