天天站长

 找回密码
 用户注册
查看: 109681|回复: 2

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

[复制链接]

0

主题

0

听众

5451

积分

钻石会员

Rank: 7Rank: 7Rank: 7

UID
22
积分
5451
威望
617
金币
2603
贡献
0
活跃
0
魅力
0
注册时间
2007-3-22
发表于 2007-5-24 00:40:17 |显示全部楼层
&nbsp;&nbsp;&nbsp;&nbsp;<P><FONT size=2>Sub&nbsp;ShowUserRosterMultipleUsers()<BR>&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;cn&nbsp;As&nbsp;New&nbsp;ADODB.Connection<BR>&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;cn2&nbsp;As&nbsp;New&nbsp;ADODB.Connection<BR>&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;rs&nbsp;As&nbsp;New&nbsp;ADODB.Recordset<BR>&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;i,&nbsp;j&nbsp;As&nbsp;Long&nbsp;&nbsp;&nbsp;&nbsp;cn.Provider&nbsp;=&nbsp;"Microsoft.Jet.OLEDB.4.0"<BR>&nbsp;&nbsp;&nbsp;&nbsp;cn.Open&nbsp;"Data&nbsp;Source=c:\Northwind.mdb"&nbsp;&nbsp;&nbsp;&nbsp;cn2.Open&nbsp;"Provider=Microsoft.Jet.OLEDB.4.0;"&nbsp;_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&amp;&nbsp;"Data&nbsp;Source=c:\Northwind.mdb"&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;The&nbsp;user&nbsp;roster&nbsp;is&nbsp;exposed&nbsp;as&nbsp;a&nbsp;provider-specific&nbsp;schema&nbsp;rowset<BR>&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;in&nbsp;the&nbsp;Jet&nbsp;4&nbsp;OLE&nbsp;DB&nbsp;provider.&nbsp;&nbsp;You&nbsp;have&nbsp;to&nbsp;use&nbsp;a&nbsp;GUID&nbsp;to<BR>&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;reference&nbsp;the&nbsp;schema,&nbsp;as&nbsp;provider-specific&nbsp;schemas&nbsp;are&nbsp;not<BR>&nbsp;&nbsp;&nbsp;&nbsp;'&nbsp;listed&nbsp;in&nbsp;ADO's&nbsp;type&nbsp;library&nbsp;for&nbsp;schema&nbsp;rowsets&nbsp;&nbsp;&nbsp;&nbsp;Set&nbsp;rs&nbsp;=&nbsp;cn.OpenSchema(adSchemaProviderSpecific,&nbsp;_<BR>&nbsp;&nbsp;&nbsp;&nbsp;,&nbsp;"{947bb102-5d43-11d1-bdbf-00c04fb92675}")&nbsp;&nbsp;&nbsp;&nbsp;'Output&nbsp;the&nbsp;list&nbsp;of&nbsp;all&nbsp;users&nbsp;in&nbsp;the&nbsp;current&nbsp;database.&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print&nbsp;rs.Fields(0).Name,&nbsp;"",&nbsp;rs.Fields(1).Name,&nbsp;_<BR>&nbsp;&nbsp;&nbsp;&nbsp;"",&nbsp;rs.Fields(2).Name,&nbsp;rs.Fields(3).Name&nbsp;&nbsp;&nbsp;&nbsp;While&nbsp;Not&nbsp;rs.EOF<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Debug.Print&nbsp;rs.Fields(0),&nbsp;rs.Fields(1),&nbsp;_<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rs.Fields(2),&nbsp;rs.Fields(3)<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;rs.MoveNext<BR>&nbsp;&nbsp;&nbsp;&nbsp;WendEnd&nbsp;Sub                                                         

0

主题

0

听众

1016

积分

黄金会员

Rank: 4

UID
60080
积分
1016
威望
0
金币
675
贡献
0
活跃
2
魅力
1
注册时间
2013-12-23
发表于 2013-12-23 21:31:58 |显示全部楼层
看帖子的要发表下看法
[url=http://www.http://www.jsjlbbs.com/[b]建设交流论坛[/b][/url]
[url=http://www.http://www.jsjlbbs.com/][b]施工组织设计[/b][/url]&amp;lt;strong&amp;gt;
回复

使用道具 举报

3#
无效楼层,该帖已经被删除
您需要登录后才可以回帖 登录 | 用户注册


|申请友情链接|关于我们|商家合作|广告报价|联系我们|法律声明|隐私条款|无图浏览|手机浏览|  


敬请您尊重网上道德,遵守《全国人大常委会关于维护互联网安全的决定》及中华人民共和国其它各项有关法律法规。

本网所有帖子均来源网友上传,本站未进行任何修改和未获取任何利益,且仅代表作者本人意见,不代表本网站立场。

天天站长 技术支持:杭州桐庐家园网络技术有限公司 广告合作:13968063988 在线QQ:18118865

Copyright ©2003-2012 Powered by 安网数据 All Rights Reserved. 备案信息:浙B2-20060153号