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

2016-01-29 15:02 10 1 收藏

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

【 tulaoshi.com - Access数据库】

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"

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.

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

来源:https://www.tulaoshi.com/n/20160129/1495070.html

上一篇：如何拆分复制的Access 97数据库
下一篇：浅析《世界OL》锤子的未来和出路

看过《如何确定有多少人登陆数据库？》的人还看了以下文章更多>>

用MySQL创建数据库和数据库表

标签：编程语言网络编程

Access数据库最多大概能承受多少数据？

标签：编程语言网络编程

1、Access数据库最多大概能承受多少数据？ 2、50M大小的Access数据库如果转换成MYSQL大概需要多少数据库空间？如果转换成SQL2000大概需要多少空间呢？答: 1、ACCESS最大的数据库能到4G（我觉得这个是以前的理论，4G是fat32磁盘文件的限制，如果ntfs……）至于ACCESS数据库多大后你的系统运行不了了，那得看相关运行...

优化－数据库

标签： SQLServer

与没有数据库的网站相比，数据库的存取会降低你的系统性能。但是大多数情况下，网站和数据库有密不可分的关系，正是数据库给站点提供了大容量、多样性、个性化等特色，并实现了很多特殊的功能。 1不要忘记给数据库做索引。合理的索引能立即显著地提高数据库整个系统的性能。可以参考有关...

SQL Server数据库导入MySQL数据库体验

标签： MySQL mysql数据库

因工作需要，要将存放在sql server数据库中的数据全部导入到mysql数据库中，在网上搜集相关资料，找到两种方法，现在分别谈谈对他们的看法。第一种是安装mysql ODBC，利用sql server的导出功能，选择mysql数据源，进行数据的直接导出，这种方法很简便，但是针对实际应用有很多弊端，最主要体现就是数据类型问题，首先，sql server数据库中的...

如何优化Access数据库

标签：编程语言网络编程

How to speed up database access Here is a trick to loop through a recordset faster. Often when looping through a recordset people will use the following code: Do While Not Records.EOF Combo1.AddItem Records![Full Name] Eecords.Movenext LoopThe problem is that everytime the database moves to the next re...

查看更多精彩>>