• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Demo Liệt kê số lượng User đang mở table nào

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thư viện thủ thuật
  • [Thủ Thuật] Demo Liệt kê số lượng User đang mở table nào
• Demo Liệt kê số lượng User đang mở table nào

• Demo Liệt kê số lượng User đang mở table nào

  maidinhdan > 11-05-15, 04:54 PM

  Công dụng Demo:
  - Xem máy tính nào đang mở file Backend, cụ thể là đang mở table nào ( trong demo có đoạn code chỉ liệt kê 1 table thôi)
  - Demo này không căn cứ vào login bằng tài khoản mà căn cứ vào Computer Name máy tính đang mở file Backend
  - Link động hơn việc theo dõi đăng nhập khác là không cần biết người truy cập tắt ứng dụng như thế nào bằng nút close hay nút Alt+F4 thì ứng dụng vẫn theo dõi được là máy đó đang truy cập hay đã thoát hẳn.
  - Sau 30s tự động kiểm tra lại 1 lần.
  
  Khả năng áp dụng:
  - Thích hợp trong mạng LAN Áp dụng để theo dõi máy tính nào trong đơn vị đang truy cập vào file backend thông qua "Link table".
  
  Yêu cầu: file Backend không có password. ( chỉ dòng Private Const mcon_SEC_AdminsAcountPWD  As String = "" nếu file bạn có pass)
  
  Một số code trong demo có thể tham khảo nửa:
  - mdl_Listbox_AlignLabels: Tự động canh chỉnh label, text box chạy cùng form khi thay đổi kích thước form từ mini sang Max ( thích hợp trên 2003,2007,2010)
  
  

  Hình minh họa.
  

  
  Tác giả code: Info@IntuiDev.com
  Sưu tầm và chỉnh sửa by maidinhdan@gmail.com.

• RE: Demo Xem máy tính nào đang truy cập file Backend

  maidinhdan > 16-06-15, 10:01 PM

  Bài này hay sao thấy ít người đọc quá nhỉ.

• RE: Demo Xem máy tính nào đang truy cập file Backend

  chuvoicon > 23-06-15, 11:40 AM

  Lưu ý nho nhỏ là demo này chỉ áp dụng đc cho data không có pas :v

• RE: Demo Xem máy tính nào đang truy cập file Backend

  maidinhdan > 23-06-15, 04:31 PM

  (23-06-15, 11:40 AM)chuvoicon Đã viết: Lưu ý nho nhỏ là demo này chỉ áp dụng đc cho data không có pas :v

  
  Làm việc gì cũng cần đọc từ từ nhé, như vậy mới không bỏ sót. Bạn lên trên xem lại phần tô màu đỏ.
  
  Trân trọng.

• RE: Demo Liệt kê số lượng User đang mở table nào

  maidinhdan > 28-08-15, 02:43 PM

  Điều chỉnh lại tiêu đề: Ai đang truy cập file Back End.
  
  Thành " Demo Liệt kê số lượng User đang mở table nào"
  
  
  Lý do: áp dụng demo này, nếu phát hiện nhiều người truy cập nhiều quá qua LAN thì cho User tiếp theo truy cập vào file dự phòng gì đó.

• RE: Demo Liệt kê số lượng User đang mở table nào

  phamlong24 > 10-03-16, 07:00 PM

  (11-05-15, 04:54 PM)maidinhdan Đã viết: Công dụng Demo:
  - Xem máy tính nào đang mở file Backend, cụ thể là đang mở table nào ( trong demo có đoạn code chỉ liệt kê 1 table thôi)
  - Demo này không căn cứ vào login bằng tài khoản mà căn cứ vào Computer Name máy tính đang mở file Backend
  - Link động hơn việc theo dõi đăng nhập khác là không cần biết người truy cập tắt ứng dụng như thế nào bằng nút close hay nút Alt+F4 thì ứng dụng vẫn theo dõi được là máy đó đang truy cập hay đã thoát hẳn.
  - Sau 30s tự động kiểm tra lại 1 lần.
  Tác giả code: Info@IntuiDev.com
  Sưu tầm và chỉnh sửa by maidinhdan@gmail.com.

  
  Xin hỏi các bạn làm thế nào để tạo NHẬT KÝ theo dõi đăng nhập csdl. 
  Ví dụ khi mở Nhật ký sẽ biết được tài khoản nào, thời gian, những thao tác Khi mở CSDL? 

• RE: Demo Liệt kê số lượng User đang mở table nào

  maidinhdan > 10-03-16, 09:55 PM

  (10-03-16, 07:00 PM)phamlong24 Đã viết:

  (11-05-15, 04:54 PM)maidinhdan Đã viết: Công dụng Demo:
  - Xem máy tính nào đang mở file Backend, cụ thể là đang mở table nào ( trong demo có đoạn code chỉ liệt kê 1 table thôi)
  - Demo này không căn cứ vào login bằng tài khoản mà căn cứ vào Computer Name máy tính đang mở file Backend
  - Link động hơn việc theo dõi đăng nhập khác là không cần biết người truy cập tắt ứng dụng như thế nào bằng nút close hay nút Alt+F4 thì ứng dụng vẫn theo dõi được là máy đó đang truy cập hay đã thoát hẳn.
  - Sau 30s tự động kiểm tra lại 1 lần.
  Tác giả code: Info@IntuiDev.com
  Sưu tầm và chỉnh sửa by maidinhdan@gmail.com.

  
  Xin hỏi các bạn làm thế nào để tạo NHẬT KÝ theo dõi đăng nhập csdl. 
  Ví dụ khi mở Nhật ký sẽ biết được tài khoản nào, thời gian, những thao tác Khi mở CSDL? 

  
  Link : ( vừa phân quyền + Ghi lại lịch sử): http://thuthuataccess.com/forum/post-278...l#pid27851 ( đọc đến bài #10 nhé)
  
  Sau này trước khi đặt câu hỏi nhớ sử dụng chức năng tìm kiếm của diễn đàn.
  
  Những chủ đề diễn đàn đã có mà bạn đặt câu hỏi nửa, Ban quản trị sẽ không trả lời.
  
  Thân mến.

• RE: Demo Liệt kê số lượng User đang mở table nào

  nguyenhungcuong > 08-06-16, 06:55 PM

  Bạn xem lại giúp mình, chương trình "Demo Liệt kê số lượng User đang mở table nào" chạy bị lỗi:
  
  'will show all user's currently being connected to a database
  '
  '* based on information provided within the Microsoft KnowledgeBase *
  Private Sub Transfer_UserRosterMultipleUsers(ByVal strPath_Filename_ToBackend As String)
     Dim cn As adodb.Connection
     Dim rs As adodb.Recordset
     Dim strRowSource As String
     Dim strUserToCheck As String
     
     Set cn = New adodb.Connection
     Set rs = New adodb.Recordset
     
     lstConnections.RowSource = ""
     DoCmd.Hourglass True
     
     With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Data Source") = mstrConnectedDB
        If mconfSecuredDB Then
           .Properties("User Id") = mcon_SEC_AdminsAcountName
           .Properties("Password") = mcon_SEC_AdminsAcountPWD
           .Properties("Jet OLEDB:System database") = getPath(mstrConnectedDB) & mcon_SEC_MDW_Name
        End If
        .Open 'nó báo lỗi ở phần này
     End With
     
     '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.
     strRowSource = ""
     '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)
        If mconfSecuredDB Then
           strUserToCheck = mcon_SEC_AdminsAcountName
        Else
           strUserToCheck = CurrentUser
        End If
        If Trim(rs.Fields(1)) = strUserToCheck Then
           'do not show the real name of the user that called this form
           strRowSource = strRowSource & _
              """" & getCleanedString(rs.Fields(0)) & """;""" & "[Caller of form]" & """;""" & _
                 Choose(CBool(rs.Fields(2)) + 2, "Yes", "No") & """;""" & Nz(rs.Fields(3), "N/A") & """;"
        Else
           strRowSource = strRowSource & _
              """" & getCleanedString(rs.Fields(0)) & """;""" & getCleanedString(rs.Fields(1)) & """;""" & _
                 Choose(CBool(rs.Fields(2)) + 2, "Yes", "No") & """;""" & Nz(rs.Fields(3), "N/A") & """;"
        End If
        rs.MoveNext
     Wend
     
     'cut off trailing ';' and transfer to listbox
     strRowSource = Left(strRowSource, Len(strRowSource) - 1)
     lstConnections.RowSource = strRowSource
     
     'clean up
     rs.Close: Set rs = Nothing
     cn.Close: Set cn = Nothing
  
     DoCmd.Hourglass False
  End Sub

• RE: Demo Liệt kê số lượng User đang mở table nào

  maidinhdan > 08-06-16, 11:45 PM

  (08-06-16, 06:55 PM)nguyenhungcuong Đã viết: Bạn xem lại giúp mình, chương trình "Demo Liệt kê số lượng User đang mở table nào" chạy bị lỗi:
  ...
        .Open 'nó báo lỗi ở phần này
   
  ....

  
  Giải thích lỗi: Lỗi này do bạn mà ra:
  
  Lý do: Bạn quá nôn nóng, vừa tải về mở luôn mà không chịu giải nén file ra thì làm sao nó dò được là cái file "NetworkUsers_Backend.mdb" đang nằm ở đâu.
  
  Mục đích của Demo mình làm ra để cho mọi ai có nhu cầu ứng dụng trong mạng LAN ( mạng nội bộ trong một cơ quan) xem máy nào đang truy cập vào và sử dụng dữ liệu trên máy chủ.
  
  Cẩn trọng trước mọi câu hỏi mình sắp nêu ra!
  
  Đừng nóng vội, học viết code phải từ từ.

• RE: Demo Liệt kê số lượng User đang mở table nào

  nguyenhungcuong > 09-06-16, 09:01 AM

  Cảm ơn bạn mình sẽ lưu ý và kiểm tra lại.
• Bài trước Bài tiếp