Bir veritabaný için Access 2000'de Microsoft Jet UserRoster kullanarak oturum açan belirleme

Microsoft Visual Basic for Applications, Microsoft Access 2000'de kullandýðýnýzda, veritabanýna oturum açmýþ kullanýcýlarýn listesini çýktýsýný alabilirsiniz. Bu makaledeki kod örneðini gösterir, bunun nasýl yapýlacaðý.

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. Kullanýcý liste özelliðini kullanan bir Microsoft Jet veritabanýna baðlý olan belirleme saðlar. ADO programlama arabiriminde elde edilebilir ve her kullanýcý için aþaðýdaki bilgileri verir:

• Kullanýcý kullanan bir bilgisayar adý.
  
• Güvenlik adýný (yani, kullanýcý kimliði
  
• 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.)
  
• Olup olmadýðýný Kullanýcý baðlantýsýnýn normal olarak sona erdirildi.
  
• Kullanýcý liste özelliði hangi kullanýcýlarýn hala baðlý olduðunuzdan, böylece kullanýcýlarýn baðlantýsýný kesmek için sorulmasýný belirlemek için baðlantý denetim özelliði ile birlikte kullanýlabilir.

Kullanýcý liste özelliði, belirli bir kullanýcýnýn faaliyetler ile iliþkili bir veritabaný Bozulmasý sorunlarý yalýtma yararlýdýr.

Kod örneði

Kod örneði göstermek için <a0></a0>, aþaðýdaki adýmlarý izleyin:

Not: örnek kodu Bu makale kullanan Microsoft ActiveX Data Objects. Bu kodun düzgün çalýþmasý için Microsoft ActiveX Data Objects 2.x (2.x 2.1 veya sonrasý olduðu.) 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 Microsoft ActiveX Data Objects 2.x kitaplýðý</a0> onay kutusunun seçili olduðundan emin olun.

1. Northwind örnek veritabanýndaki C:\ klasörüne kopyalayýn.
2. Microsoft Access'te C:\Northwind açýn.
3. Veritabaný penceresinde, nesneleri altýnda modüller ' i týklatýn ve Yeni ' yi týklatýn.
4. Modül ShowUsers kaydedin.
5. Yeni ShowUsers modüle aþaðýdaki kodu yazýn:

   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 Sub
   					

6. Northwind veritabanýný kapatýn ve istendiðinde, deðiþiklikleri (Bu veritabanýna eklemiþ olduðunuz kod nedeniyle, özel bir kilidi açmak için yapmanýz gerekir) ShutDownDB kaydedin.
7. C:\Northwind yeniden açýn.
8. Visual Basic Düzenleyicisi'nde komut penceresi açmak için CTRL + G tuþlarýna basýn.
9. Aþaðýdaki komut penceresi içinde yazýn ve ENTER tuþuna basýn:

   ShowUserRosterMultipleUsers
   					

   içinde hemen penceresi veritabanýndaki kullanýcýlarýn listesini verir unutmayýn.