如何確定有多少人登陸數據庫？

　　Sub ShowUserRosterMultipleUsers()
    Dim cn As New ADODBConnection
    Dim cn As New ADODBConnection
    Dim rs As New ADODBRecordset
    Dim i j As Long

　　cnProvider = "MicrosoftJetOLEDB"
    cnOpen "Data Source=c:Northwindmdb"

　　cnOpen "Provider=MicrosoftJetOLEDB;" _
    & "Data Source=c:Northwindmdb"

　　&#; The user roster is exposed as a providerspecific schema rowset
    &#; in the Jet  OLE DB provider  You have to use a GUID to
    &#; reference the schema as providerspecific schemas are not
    &#; listed in ADO&#;s type library for schema rowsets

　　Set rs = cnOpenSchema(adSchemaProviderSpecific _
     "{bbddbdbfcfb}")

　　&#;Output the list of all users in the current database

　　DebugPrint rsFields()Name "" rsFields()Name _
    "" rsFields()Name rsFields()Name

　　While Not rsEOF
        DebugPrint rsFields() rsFields() _
        rsFields() rsFields()
        rsMoveNext
    Wend

　　End Sub

生活不易，碼農辛苦
如果您覺得本網站對您的學習有所幫助,可以手機掃描二維碼進行捐贈