如何确定有多少人登陆数据库?

骑校花啃猪蹄

骑校花啃猪蹄

2016-01-29 15:02

如何确定有多少人登陆数据库?,如何确定有多少人登陆数据库?

Sub ShowUserRosterMultipleUsers()
    Dim cn As New ADODB.Connection
    Dim cn2 As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim i, j As Long

    cn.Provider = "Microsoft.Jet.OLEDB.4.0"
    cn.Open "Data Source=c:Northwind.mdb"

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com)

    cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
    & "Data Source=c:Northwind.mdb"

    ' The user roster is exposed as a provider-specific schema rowset
    ' in the Jet 4 OLE DB provider.  You have to use a GUID to
    ' reference the schema, as provider-specific schemas are not
    ' listed in ADO's type library for schema rowsets

    Set rs = cn.OpenSchema(adSchemaProviderSpecific, _
    , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

    'Output the list of all users in the current database.

(本文来源于图老师网站,更多请访问https://m.tulaoshi.com)

    Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _
    "", rs.Fields(2).Name, rs.Fields(3).Name

    While Not rs.EOF
        Debug.Print rs.Fields(0), rs.Fields(1), _
        rs.Fields(2), rs.Fields(3)
        rs.MoveNext
    Wend

End Sub

展开更多 50%)
分享

猜你喜欢

如何确定有多少人登陆数据库?

电脑网络
如何确定有多少人登陆数据库?

如何确定有多少人登陆Access数据库?

编程语言 网络编程
如何确定有多少人登陆Access数据库?

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

怎么样确定有多少人登陆数据库?

编程语言 网络编程
怎么样确定有多少人登陆数据库?

确定有穷自动机分析内核

C语言教程 C语言函数
确定有穷自动机分析内核

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

怎么确定有没有开眼角

整容
怎么确定有没有开眼角

SQL数据库用户只有“名称”而无“登陆名”解决

编程语言 网络编程
SQL数据库用户只有“名称”而无“登陆名”解决

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

如何拆分复制的Access 97数据库

如何拆分复制的Access 97数据库

浅析《世界OL》锤子的未来和出路

浅析《世界OL》锤子的未来和出路
下拉加载更多内容 ↓