首页 相关文章 如何确定有多少人登陆Access数据库?

如何确定有多少人登陆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 schem...[ 查看全文 ]

2016-02-19 标签:

如何确定有多少人登陆Access数据库?的相关文章

手机页面
收藏网站 回到头部