Đánh giá chủ đề:
  • 6 Votes - 3 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Hiển thị user và computer name log in vào chương trình
#1
Hỏi: Nếu mình muốn biết được hiện máy nào (theo tên máy) đang sử dụng chương trinh Access của mình hoặc số lượng người hiện đang sử dụng chương trình của mình thì có làm được không?

Đáp:

1) Để hiển thị user và computer name log in vào chương trình bạn phải dùng ADO recordset (không dùng DAO) do vậy bạn nhớ tham chiếu đến thư viện ADO 2.x

2) Dùng 1 loại ADO recordset đặc biệt , có tên là Schema Information để lấy thông tin user và computer name log in đang sử dụng chương trình.

3) Cách làm như sau :
- Bạn tạo 1 Form (F_TrackUsers) có 1 listbox và 2 command button.
+ Listbox tên : lboConnections
Đây là unbound Listbox, lưu ý : Row Source Type : value list.
+ 1 command button tên : CmdRefresh
+ 1 command button tên : CmdClose

- Ở cửa sổ viết code, nhập các đoạn code sau :
Mã PHP:
Private Sub cmdClose_Click()
    
DoCmd.Close
    End Sub

    
Private Sub cmdRefresh_Click()
    
ListConnections
    End Sub

    
Private Sub Form_Load()
    
ListConnections
    End Sub

    
Private Sub ListConnections()
    
Dim cnn As ADODB.Connection
    Dim rst 
As ADODB.Recordset
    Dim strComputerName 
As String

    Set cnn 
CurrentProject.Connection
    Set rst 
cnn.OpenSchema(adSchemaProviderSpecific, , _
    
"{947bb102-5d43-11d1-bdbf-00c04fb92675}")
    
lboConnections.RowSource vbNullString
    lboConnections
.AddItem "Computer Name;Login Name"

    
Do While Not rst.EOF
    
If rst("Connected"Then
    strComputerName 
rst("Computer_Name")
    
lboConnections.AddItem Left(strComputerName_
    InStr
(strComputerNamevbNullChar) - 1) & ";" rst("Login_Name")
    
End If
    
rst.MoveNext
    Loop
    rst
.Close
    Set rst 
Nothing
    Set cnn 
Nothing
    End Sub 


4) Nguyên lý : Khi bạn mở form F_TrackUsers, Sub ListConnections() sử dụng ADO record đăc biệt đã nói ở trên để lấy thông tin và hiển thị trong listbox lboConnections.

tác giả: hungtano
Chữ ký của Noname 020
ღღღღღTài sản của Noname (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Nhập đường dẫn 1 file ảnh vào chương trình để lưu! Noname 29 11,191 08-09-16, 08:24 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Demo Liệt kê số lượng User đang mở table nào maidinhdan 9 1,313 09-06-16, 09:01 AM
Bài mới nhất: nguyenhungcuong
  [Thủ Thuật] Hiện thông báo nhắc nhở và gửi vào TASK của MS OUTLOOK ongke0711 5 548 16-01-16, 11:41 PM
Bài mới nhất: lamvanphung
  [Thủ Thuật] Tạo Menu thu gọn hoặc mở rộng (Ẩn/ Hiện các menu con) ongke0711 3 574 14-10-15, 11:52 AM
Bài mới nhất: ongke0711
  Thủ Thuật Lưu Vết Truy Cập Chương trình (Audit Trail) Noname 4 4,785 10-04-15, 02:08 PM
Bài mới nhất: m.vuong2211

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ