title image


Smiley Ein Tool zum Auflisten aktueller User - vielleicht hilft's dir weiter...
Sub ShowUserRosterMultipleUsers()



Dim cn As New ADODB.Connection, rs As New ADODB.Recordset

  cn.Provider = "Microsoft.Jet.OLEDB.4.0"

  cn.Open "Data Source=N:\GibsMir2000be.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.

  With rs

    Debug.Print rs(0).Name, "", rs(1).Name, "", rs(2).Name, rs(3).Name

    Do While Not .EOF

      Debug.Print rs(0), rs(1), rs(2), rs(3)

      .MoveNext

    Loop

    .Close

  End With

End Sub









Gruß - Ulf

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: