Cara menentukan siapa yang login database dengan menggunakan Microsoft Jet UserRoster dalam akses

Artikel ini menunjukkan kepada Anda bagaimana menggunakan Microsoft Visual Basic for Applications untuk menampilkan daftar pengguna yang logon ke database.

Microsoft menyediakan contoh pemrograman hanya sebagai ilustrasi, tanpa jaminan apa pun baik tersurat maupun tersirat. Termasuk, namun tidak terbatas pada, jaminan tersirat mengenai kelayakan untuk diperdagangkan atau kesesuaian untuk keperluan tertentu. Artikel ini mengasumsikan bahwa Anda telah terbiasa dengan bahasa pemrograman yang ditunjukkan dan dengan alat yang digunakan untuk membuat dan mendebug prosedur. Insinyur dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu. Namun, mereka tidak akan memodifikasi contoh ini untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan spesifik Anda.

Ketika Anda menggunakan kode contoh berikut, informasi berikut akan dikirim:

• Nama komputer.
• Nama masuk.
• Apakah atau tidak pengguna saat ini terhubung ke database. (ID pengguna tetap dalam database kunci sampai pengguna terakhir terputus atau sampai slot direklamasi untuk sambungan pengguna baru.)
• Apakah atau tidak pengguna koneksi dihentikan dalam keadaan normal.

Informasi ini juga dapat digunakan untuk mengisolasi masalah dengan database korupsi yang berhubungan dengan kegiatan tertentu pengguna.

Prosedur

HATI-HATI: Jika Anda mengikuti langkah-langkah dalam contoh ini, Anda mengubah database contoh Northwind.mdb. Anda dapat membuat cadangan berkas Northwind.mdb dan ikuti petunjuk pada salinan database.


Untuk menentukan siapa yang login ke database, ikuti langkah berikut:

1. Membuka sampel database, Northwind.mdb.
   
   Catatan Access 2007, membuka database contoh Northwind2007, dekat Northwind2007 sampel database dan kemudian buka kembali database contoh Northwind2007.
2. Pada Lihat menu, titik Database objek, lalu klik Modul.
   
   Catatan Di Access 2007, klik Visual Basic dalam Makro kelompok pada Database Tools tab.
3. Klik Baru.
   
   Catatan Di Access 2007, klik Modul pada Masukkan menu di Editor Visual Basic.
4. Ketik atau tempel kode berikut:
   
   Catatan Kode contoh dalam artikel ini menggunakan objek Data ActiveX Microsoft. Untuk kode ini untuk menjalankan dengan benar, Anda harus referensi Microsoft ActiveX Data objek 2.1 atau versi perpustakaan. Untuk melakukannya, klik Referensi pada Alat menu di Editor Visual Basic, dan memastikan bahwa Objek Microsoft ActiveX Data 2,1 perpustakaan kotak centang dipilih.

   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. Menyimpan modul sebagai ShowUsers.
6. Tekan CTRL + G untuk membuka jendela segera.
7. Ketik baris berikut di jendela segera, dan kemudian tekan ENTER:

   ShowUserRosterMultipleUsers
   					

   Perhatikan bahwa jendela segera kembali daftar pengguna yang logon ke database.