【原创源码】一个获取连接当前Access数据库的用户名的函数

红尘如烟

图中我是打开数据库后，又在另一个数据库打开了到此数据库的链接表，所以两个用户名是一样的

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

复制代码

gordonbwb

我是新手。请问access也可以直接编写程序吗。这是什么语言连mdb的源码吗？

红尘如烟

修改了一下，原来的由于包含了vbNllChar字符，所在在列表框中不能正常显示

shame

www.office-cn.net

luhao

多谢

lsb79967530

人生得意万千重，春回梦醒原是空。红尘佳人如烟事，云淡风轻一笑中。
黑夜给了我黑色的眼睛，我却翻着白眼看黄片＿＿＿
楼猪搞笑

chuang0321

学学......

jameszheng1981

学习学习

zss427607

谢谢你与大家分享

学习

13555609005

学习吓