如何确定有多少人登陆数据库？-会员卡,广州印刷,深圳印刷,印刷公司,名片,彩页,名片设计,设计教程,名片制作,彩色名片,名片模板,贵宾卡,pvc卡,设计欣赏,深圳名片,广州名片,business card design

首页	名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash

» 彩色名片
» PVC卡
» 彩色磁性卡
» 彩页/画册
» 个性印务
» 彩色不干胶
» 明信片
   » 明信片
   » 彩色书签
   » 门挂
» 其他产品与服务
   » 创业锦囊
   » 办公用品
   » 信封、信纸
   » 便签纸、斜面纸砖
   » 无碳复印纸
   » 海报
   » 大篇幅印刷
   » KT板
   » 海报
   » 横幅

如何确定有多少人登陆数据库？
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

返回类别: 教程
上一教程: 在ACCESS中使用“存储过程”(二)
下一教程: 巧用 SYBASE数据库中的超级用户密码

您可以阅读与"如何确定有多少人登陆数据库？"相关的教程:
· 如何迅速杀死占用过多资源(CPU,内存)的数据库进程
· 如何在SQL数据库中得到重复次数最多的记录
· 如何使用ERWIN进行基于MYSQL的数据库设计
· 当SQL SERVER数据库崩溃时如何恢复？
· 当SQL SERVER数据库崩溃时如何恢复


	快精灵印艺坊版权所有	首页会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店网站地图关于我们友情链接