Cara menentukan siapa yang login database dengan menggunakan Microsoft Jet UserRoster pada Access 2000

ID Artikel: 198755 - Melihat produk di mana artikel ini berlaku.

Peringatan: artikel ini adalah terjemahan oleh mesin

Klik disini untuk menampilkan sumber Inggris dan terjemahan oleh mesin secara berdampingan

Perbesar semua | Perkecil semua

Dengan menggunakan Microsoft Visual Basic untuk aplikasi di Microsoft Access 2000, Anda bisa output daftar pengguna yang login ke database. Kode contoh dalam artikel ini menunjukkan kepada Anda bagaimana untuk melakukannya.

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. Teknisi dukungan Microsoft dapat membantu menjelaskan fungsionalitas prosedur tertentu, namun mereka tidak akan memodifikasi contoh untuk memberikan fungsionalitas tambahan atau menyusun prosedur untuk memenuhi persyaratan khusus Anda. Pengguna daftar fitur menyediakan cara untuk menentukan yang saat ini terhubung ke Microsoft Jet database. Daftar dapat Diperoleh melalui ADO pemrograman antarmuka dan kembali berikut informasi untuk setiap pengguna:

Nama komputer yang pengguna menggunakan.
Keamanan nama, yaitu user ID.
Apakah atau tidak pengguna saat ini terhubung ke database. (ID pengguna tetap dalam database kunci sampai pengguna terakhir terputus atau sampai slot direklamasi bagi pengguna baru koneksi.)
Apakah atau tidak pengguna sambungan diakhiri biasanya.
Kemampuan daftar pengguna dapat digunakan bersama kontrol sambungan kemampuan untuk menentukan pengguna yang masih terhubung, sehingga mereka dapat diminta untuk memutuskan sambungan.

Daftar pengguna kemampuan ini juga berguna dalam mengisolasi masalah dengan database korupsi yang terkait dengan aktivitas tertentu pengguna.

Contoh kode

Untuk menunjukkan contoh kode, ikuti langkah-langkah:

CATATAN: Kode contoh dalam artikel ini menggunakan Microsoft ActiveX Data Objek. Untuk kode ini untuk menjalankan dengan benar, Anda harus referensi Microsoft Objek Data ActiveX 2.x perpustakaan (di mana 2.x 2,1 atau kemudian.) Untuk melakukannya, klik Referensi pada Alat menu di Editor Visual Basic, dan memastikan bahwa Objek Microsoft ActiveX Data 2.x perpustakaan kotak centang dipilih.

Salin database contoh Northwind folder c: \.
Dalam Microsoft Access, buka C:\Northwind.
Di jendela Database, klik Modul di bawah Objek, lalu klik Baru.
Simpan modul sebagai ShowUsers.

Ketik kode berikut dalam modul baru ShowUsers:

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

Menutup Northwind database dan, Simpan perubahan ke ShutDownDB (ini harus dilakukan untuk melepaskan kunci eksklusif pada database karena untuk kode yang Anda baru saja menambahkan).
Membuka kembali C:\Northwind.
Tekan CTRL + G untuk membuka jendela segera di Visual Dasar Editor.
Ketik berikut dalam jendela segera dan tekan MASUKKAN:
ShowUserRosterMultipleUsers
Perhatikan bahwa di segera jendela kembali daftar pengguna dalam database.

Kembali ke atas | Berikan Masukan

Note This is a "FAST PUBLISH" article created directly from within the Microsoft support organization. The information contained herein is provided as-is in response to emerging issues. As a result of the speed in making it available, the materials may include typographical errors and may be revised at any time without notice. See Terms of Use

(http://go.microsoft.com/fwlink/?LinkId=151500)

for other considerations.

Kembali ke atas | Berikan Masukan

Properti

ID Artikel: 198755 - Kajian Terakhir: 19 September 2011 - Revisi: 2.0

Berlaku bagi:

Microsoft Access 2000 Standard Edition

kbprogramming kbvba kbado kbinfo kbhowtomaster kbmt KB198755 KbMtid

Penerjemahan Mesin

PENTING: Artikel ini diterjemahkan menggunakan perangkat lunak mesin penerjemah Microsoft dan bukan oleh seorang penerjemah. Microsoft menawarkan artikel yang diterjemahkan oleh seorang penerjemah maupun artikel yang diterjemahkan menggunakan mesin sehingga Anda akan memiliki akses ke seluruh artikel baru yang diterbitkan di Pangkalan Pengetahuan (Knowledge Base) dalam bahasa yang Anda gunakan. Namun, artikel yang diterjemahkan menggunakan mesin tidak selalu sempurna. Artikel tersebut mungkin memiliki kesalahan kosa kata, sintaksis, atau tata bahasa, hampir sama seperti orang asing yang berbicara dalam bahasa Anda. Microsoft tidak bertanggung jawab terhadap akurasi, kesalahan atau kerusakan yang disebabkan karena kesalahan penerjemahan konten atau penggunaannya oleh para pelanggan. Microsoft juga sering memperbarui perangkat lunak mesin penerjemah.

Klik disini untuk melihat versi Inggris dari artikel ini:198755

(http://support.microsoft.com/kb/198755/en-us/ )

Kembali ke atas | Berikan Masukan