Đá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
  [Thủ Thuật] [Hàm] Lấy địa chỉ IP của máy vi tính hiện hành maidinhdan 0 113 09-09-17, 11:47 PM
Bài mới nhất: maidinhdan
  [Thủ Thuật] Tạo Menu thu gọn hoặc mở rộng (Ẩn/ Hiện các menu con) ongke0711 4 1,446 11-05-17, 09:32 PM
Bài mới nhất: quocbinh77dilang@gmail.com
  Làm sao hiện thanh công cụ tranmtam 0 211 09-03-17, 02:47 PM
Bài mới nhất: tranmtam
  Nhập đường dẫn 1 file ảnh vào chương trình để lưu! Noname 29 13,083 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 2,307 09-06-16, 09:01 AM
Bài mới nhất: nguyenhungcuong

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ơ