如何确定有多少人登陆数据库?
sub ShowUserRosterMultipleUsers()
Dim cn作为新的ADODB。连接
Dim cn2作为新的ADODB。连接
Dim rs As New ADODB。记录集
Dim i,j As Long
cn。Provider = "Microsoft。Jet.OLEDB.4.0"
cn。打开“数据源=c:\Northwind.mdb”
cn2。Open "Provider=Microsoft。Jet . OLEDB.4.0”_
& "数据源=c:\Northwind.mdb "
用户名册在Jet 4 OLE DB提供程序中作为特定于提供程序的架构行集
'公开。您必须使用GUID来
'引用架构,因为特定于提供程序的架构不会
'列在ADO的架构行集类型库中
设置rs = cn。open schema(adschemaprovidersspecific,_
," { 947 bb 102-5d 43-11 D1-bdbf-00 c 04 FB 92675 } ")
输出当前数据库中所有用户的列表。
调试。打印rs。字段(0)。名字,“”,rs。字段(1)。名称,_
" ",rs。字段(2)。姓名,rs。字段(3)。名字
而不是rs。EOF
Debug。打印rs。字段(0),rs。字段(1),_
rs。字段(2),rs。字段(3)
rs下一步
末端接头
位律师回复
0条评论