Bir veritabanýna Access'te Microsoft Jet UserRoster kullanarak oturum açan belirleme

Bu makalede, Microsoft Visual Basic for Applications veritabanýna açan kullanýcýlarýn listesini çýkýþ için nasýl kullanýlacaðý gösterilmektedir.

Microsoft, programlama örneklerini yalnýzca gösterim amacýyla saðlar; örtülü veya açýk garanti vermez. Buna satýlabilirlik veya belirli bir amaca uygunluk zýmni garantileri de dahildir, ancak bunlarla sýnýrlý deðildir. Bu makale, gösterilen programlama dilini ve yordamlarý oluþturmak ve hata ayýklamak amacýyla kullanýlan araçlarý kullanmayý bildiðinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamýn iþlevselliðinin açýklanmasýna yardýmcý olabilir. Ancak gereksinimlerinizi karþýlamaya yönelik olarak ek iþlevsellik saðlamak veya yordamlar geliþtirmek amacýyla bu örnekleri deðiþtirmezler.

Aþaðýdaki örnek kodu kullandýðýnýzda, aþaðýdaki bilgiler verilir:

• Bilgisayar Adý.
• Oturum açma adý'ný týklatýn.
• Olup olmadýðýný kullanýcý veritabanýna baðlý olan. (Bir kullanýcýnýn KIMLIÐI kilit veritabanýnda kadar son kullanýcýnýn baðlantýsýný kesmeden veya yuva için yeni bir kullanýcý baðlantý iadesi kadar kalýr.)
• Kullanýcý baðlantýsý olup olmadýðýna normal koþullarda sona erdirildi.

Bu bilgiler, belirli bir kullanýcýnýn faaliyetler ile iliþkili bir veritabaný Bozulmasý sorunlarý yalýtmak için kullanýlabilir.

Yordam

DIKKAT: Bu örnekteki adýmlarý, Northwind.mdb adlý örnek veritabanýný deðiþtirme. Northwind.mdb dosyasýný yedekleyin ve bu adýmlarý veritabanýnýn bir kopyasýnda isteyebilirsiniz.


Bir veritabanýna açmýþ belirlemek için þu adýmlarý izleyin:

1. Northwind.mdb örnek veritabanýný açýn.
   
   Not Access 2007'de, Northwind2007 örnek veritabanýný açýn, sonra da Northwind2007 örnek veritabanýný kapatýn ve yeniden Northwind2007 örnek veritabanýný açýn.
2. Görünüm) menüsünde, Veritabaný nesneleri için iþaretleyin ve sonra modüller ' i týklatýn.
   
   Not Access 2007'de, Visual BasicVeritabaný araçlarý</a1> sekmesinde <a2>makro</a2> grubunu týklatýn.
3. Yeni ' yi týklatýn.
   
   Not Access 2007'de, Ekle menüsünden Visual Basic Düzenleyicisi'nde modülü ' nü týklatýn.
4. Aþaðýdaki kodu yazýn veya yapýþtýrýn:
   
   Not Bu makaledeki örnek kod Microsoft ActiveX Data Objects kullanýr. Bu kodun düzgün çalýþmasý için Microsoft ActiveX Data Objects 2.1 veya sonraki bir sürümünü kitaplýðý baþvurmalýdýr. Bunu yapmak için <a0></a0>, Visual Basic Düzenleyicisi'nde Araçlar menüsünden Baþvurular ' ý týklatýn ve ActiveX Data Objects 2.1 kitaplýðý</a0> onay kutusunun seçili olduðundan emin olun.

   Sub ShowUserRosterMultipleUsers()
       Dim cn As New ADODB.Connection
       Dim rs As New ADODB.Recordset
       Dim i, j As Long
   
       Set cn = CurrentProject.Connection
   
       ' The user roster is exposed as a provider-specific schema rowset
       ' in the Jet 4.0 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 Sub
   					

5. Modül ShowUsers kaydedin.
6. Komut penceresi açmak için CTRL + G tuþlarýna basýn.
7. Komut penceresi içinde aþaðýdaki satýrý yazýn ve ENTER tuþuna basýn:

   ShowUserRosterMultipleUsers
   					

   komut penceresi, veritabanýna açan kullanýcýlarýn listesini verdiðini unutmayýn.