NASýL YAPýLýR: Baðlantýsý denetimi kullanarak Access 2000 çalýþma zamaný sýrasýnda kullanýcý oturum aç'ý engelle

Microsoft Visual Basic for Applications'da bulunan bir Microsoft Access kullanarak, kullanýcýlarýn bir Jet veritabanýna oturum açmasýný engelleyebilirsiniz. Kullanýcý veritabanýnda zaten varsa, bunlar üzerinde oturum kalýr; ancak, diðer kullanýcýlar veritabanýný açabilirsiniz. Bu bir pasif kapatma olarak adlandýrýlýr.

Bu makaledeki kod örneðini passive bir kapatma gerçekleþtirmek gösterilmiþtir ve veritabanýna zaten olan kullanýcýlarýn listesini çýkýþ nasýl iyi bir þekilde oturum açtý.

Baðlantý denetimi

Baðlantý Denetimi (edilgen kapatma olarak da bilinir) özelliði, kullanýcýlarýn veritabanýna baðlanmasýný engeller. Bu özelliði, bakým, örneðin gerçekleþtirmek için bir veritabaný için özel eriþim edinmek veritabanýný sýkýþtýrma duyan veya veritabaný þemasýnýn ya da uygulamalarý için bir güncelleþtirme yapmak duyan bir veritabaný yöneticisi için yararlýdýr.

Baðlantý denetimi çalýþtýrýldýðýnda, þu anda bir veritabanýna baðlý olan kullanýcýlarýn baðlantý kesme'kadar etkilenmeden kalýr. Bu noktada, baðlantý denetimi iptal kadar yeniden eriþemiyor.

Aþaðýdaki senaryolarda, bu özelliði þeklini içine ek bilgiler saðlar:

• Veritabanýnda beþ kullanýcýlarýdýr'ý týklatýn. Edilgen kapatma kullanýcý beþ baþlatýr. Kullanýcý altý veritabanýna baðlanmaya çalýþýr, ancak eriþim engellendi ve beþ kullanýcýya, veritabanýný açýlmasýný engelliyor bildiren bir hata iletisi döndürdü.
• Veritabanýnda beþ kullanýcýlarýdýr'ý týklatýn. Edilgen kapatma kullanýcý beþ baþlatýr. Kullanýcý, bir veritabaný kapatýr ve veritabanýna baðlanmayý dener, ancak eriþim ve bir hata iletisi engellendi, bu beþ kullanýcý veritabaný açýlmasýný engelliyor belirten döndürdü.
• Veritabanýnda beþ kullanýcýlarýdýr'ý týklatýn. Edilgen kapatma kullanýcý beþ baþlatýr. <a1>Kullanýcý</a1> beþ veritabaný kapatýr. <a1>Kullanýcý</a1> altý, veritabanýný açmaya çalýþýrsa ve baþarýlý olmuþtur. Yeniden adlandýrýlan kullanýcý veritabanýna baðlý iken passive kapatma yalnýzca devam ederse olmasýdýr.
• Veritabanýnda beþ kullanýcýlarýdýr'ý týklatýn. Edilgen kapatma kullanýcý beþ baþlatýr. Kullanýcýlara 1 dört veritabaný çýkýn. Kullanýcý beþ kullanýcý liste iþlevselliðini arar ve hiçbir kullanýcý veritabanýnda olup olmadýðýný belirler. <a1>Kullanýcý</a1> beþ veritabaný kapatýr ve hemen veritabanýnýn sýkýþtýrýlmasýna neden olur.

Kullanýcý listesi

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ýlmakta olan bir bilgisayarýn 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

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. Kod örneði göstermek için <a0></a0>, aþaðýdaki adýmlarý izleyin:

1. Northwind örnek veritabanýndaki C:\ dizinine kopyalayýn.
2. Microsoft Access'te C:\Northwind açýn.
3. ShutDownDB adlý yeni bir modül oluþturun.
4. Araçlar menüsünde, Baþvurular ' ý týklatýn.
5. Baþvurular) iletiþim kutusunda, aþaðýdaki baþvuru seçmek için týklatýn:
   Microsoft ActiveX Data Objects 2.1 kitaplýðý
6. Yeni modüle aþaðýdaki kodu yazýn:
   

   Sub ShowUserRosterAndPassiveShutdown()
       Dim cn As New ADODB.Connection
       Dim cn2 As New ADODB.Connection
       Dim cn3 As New ADODB.Connection
       Dim rs As New ADODB.Recordset
       Dim j As Long
   
       On Error GoTo ErrHandler
       
       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"
       
       ' Restrict other users from opening the database
       cn.Properties("Jet OLEDB:Connection Control") = 1
       
       ' Attempt to open another connection to the database
       cn3.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
       
       Do While Not rs.EOF
          Debug.Print rs.Fields(0), rs.Fields(1), _
          rs.Fields(2), rs.Fields(3)
          rs.MoveNext
       Loop
       
       ' Close one of the remaining connections
       cn2.Close
       
       ' Reopen the user roster to verify that no other users are in the
       ' database Output the list of all users in the current database.
       
       Set rs = cn.OpenSchema(adSchemaProviderSpecific, , _
       "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
       
       Debug.Print rs.Fields(0).Name, "", rs.Fields(1).Name, _
       "", rs.Fields(2).Name, rs.Fields(3).Name
       
       Do While Not rs.EOF
          Debug.Print rs.Fields(0), rs.Fields(1), _
          rs.Fields(2), rs.Fields(3)
          rs.MoveNext
       Loop
       
       cn.Close
       
       Exit Sub
   
   ErrHandler:
   
       For j = 0 To cn.Errors.Count - 1
          Debug.Print "Conn Err Num : "; cn.Errors(j).Number
          Debug.Print "Conn Err Desc: "; cn.Errors(j).Description
       Next j
       
       For j = 0 To cn2.Errors.Count - 1
          Debug.Print "Conn Err Num : "; cn2.Errors(j).Number
          Debug.Print "Conn Err Desc: "; cn2.Errors(j).Description
       Next j
       
       For j = 0 To cn3.Errors.Count - 1
          Debug.Print "Conn Err Num : "; cn3.Errors(j).Number
          Debug.Print "Conn Err Desc: "; cn3.Errors(j).Description
       Next j
       
       Resume Next
   
   End Sub
   					

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

    ShowUserRosterAndPassiveShutdown
    					

Veritabaný kullanýcýlarýný komut penceresi içinde görüntülenen listesi unutmayýn.