如何確定有多少人登陸數(shù)據(jù)庫?_Access數(shù)據(jù)庫教程

      編輯Tag賺U幣
      教程Tag:暫無Tag,歡迎添加,賺取U幣!

      推薦:使用準(zhǔn)則進(jìn)行條件查詢
      指定多個準(zhǔn)則可以對相同的字段或不同的字段輸入多個準(zhǔn)則。在多個“準(zhǔn)則”單元格中輸入表達(dá)式時,Microsoft Access 將使用 And 或 Or 運(yùn)算符進(jìn)行組合。如果此表達(dá)式是在同一行的不同單



      以下為引用的內(nèi)容:
      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 SuD

      分享:取得磁碟機(jī)之Volumn及Serial Number
      適用ACCESS97、2000 這兩項磁碟機(jī)資料須使用API函數(shù)方可取得,代碼如下: 以下為引用的內(nèi)容: Private Declare Function GetVolumeInf

      來源:模板無憂//所屬分類:Access數(shù)據(jù)庫教程/更新時間:2008-08-22
      相關(guān)Access數(shù)據(jù)庫教程