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)


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

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

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

(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.

Đ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ì đó.

(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? 

(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.

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

(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ừ.

Cảm ơn bạn mình sẽ lưu ý và kiểm tra lại.