有什么办法判断现在有多少人在用我的程序

make

有什么办法判断现在有多少人在用我的程序（打开我的数据库）

cnwang

你要的信息在LDB文件中，我之前发过一个例子，你找找。

waltonw

好像没有么?

xiaobaiprogram

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

1. <SCRIPT language=javascript>
   
   
   
   
   
2. function addtitle(){        var straddtitle = "如何确定当前有多少人登陆数据库？";        if (straddtitle.length!==0){                document.title=document.title + "《" + straddtitle + "》；专题号：76FABF1E11DC";        }}作者：未详  摘自：未详  [url=http://access911.net/admin/article_edit.asp?recordid=76FABF1E11DC]编[/url][url=http://access911.net/index.asp?u1=bbs&u2=75FAB41E13DC]辑[/url]：cg1  更新日期：2003-7-6  浏览人次： 629专题地址：http://access911.net/?kbid;76FABF1E11DC简述：阅读前需掌握：难度等级：
   
   
   
   
   
3. <script>

复制代码

等级未评定问题：









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




回答：









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 "rovider=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




    WendEnd Sub