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

SubShowUserRosterMultipleUsers()
DimcnAsNewADODB.Connection
Dimcn2AsNewADODB.Connection
DimrsAsNewADODB.Recordset
Dimi,jAsLong

织梦好，好织梦

cn.Provider="Microsoft.Jet.OLEDB.4.0"
cn.Open"DataSource=c:orthwind.mdb"

cn2.Open"Provider=Microsoft.Jet.OLEDB.4.0;"_
&"DataSource=c:orthwind.mdb" 内容来自dedecms

'Theuserrosterisexposedasaprovider-specificschemarowset
'intheJet4OLEDBprovider.YouhavetouseaGUIDto
'referencetheschema,asprovider-specificschemasarenot
'listedinADO'stypelibraryforschemarowsets

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

'Outputthelistofallusersinthecurrentdatabase. dedecms.com

Debug.Printrs.Fields(0).Name,"",rs.Fields(1).Name,_
"",rs.Fields(2).Name,rs.Fields(3).Name 内容来自dedecms

WhileNotrs.EOF
Debug.Printrs.Fields(0),rs.Fields(1),_
rs.Fields(2),rs.Fields(3)
rs.MoveNext
Wend 内容来自dedecms

EndSub
织梦内容管理系统

看完这篇，您有何感觉呢？