Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Thủ Thuật] Demo Liệt kê số lượng User đang mở table nào
#1
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.

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.
[Hình: demoaidangtruycap.png]

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


File đính kèm
.zip   Demo_Ai_dang_truy_cap_file_Backend.zip (Kích cỡ: 45 KB / Tải về: 105)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn trungn077 , heartlessss11 , Noname , Minh Tiên , chuvoicon , thucgia , conmeo
#2
Bài này hay sao thấy ít người đọc quá nhỉ.040
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Lưu ý nho nhỏ là demo này chỉ áp dụng đc cho data không có pas :v
Chữ ký của chuvoicon Xin chào, mình là chuvoicon, Tham gia http://thuthuataccess.com/forum từ ngày 18-11 -13.
Reply
Những người đã cảm ơn
#4
(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.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname
#5
Đ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ì đó.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Noname , phuc_thanhtien
#6
(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? 
Chữ ký của phamlong24 Xin chào, mình là phamlong24, Tham gia http://thuthuataccess.com/forum từ ngày 14-04 -14.
Reply
Những người đã cảm ơn
#7
(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.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#8
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
Chữ ký của nguyenhungcuong Học - Hỏi - Hiểu - Hành
Reply
Những người đã cảm ơn
#9
(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ừ.
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#10
Cảm ơn bạn mình sẽ lưu ý và kiểm tra lại.
Chữ ký của nguyenhungcuong Học - Hỏi - Hiểu - Hành
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] Ẩn record trong table theo ngày tháng tvn_hut 6 486 24-04-16, 01:00 AM
Bài mới nhất: tvn_hut
  Tùy chọn liên kết lại các table từ file data có password Noname 37 14,803 21-01-16, 10:59 AM
Bài mới nhất: minhhoacatv
  [Thủ Thuật] Hỏi_Xác định phiên bản Access đang dùng maidinhdan 1 379 18-12-15, 08:43 AM
Bài mới nhất: ongke0711
  [Thủ Thuật] Demo Dọn rác 1 tháng 1 lần (Gửi M.Vương) maidinhdan 9 1,640 27-08-15, 12:42 PM
Bài mới nhất: ledangvan
  Hướng Dẫn Demo Cho tất cả thông báo tiếng việt vào một Macro maidinhdan 3 988 23-07-15, 03:09 PM
Bài mới nhất: maidinhdan

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ơ