1. استخدام دوال الوصول إلى قاعدة البيانات
في Microsoft Access، يمكنك إنشاء سجل يحتوي على معلومات حول المستخدمين المتصلين بقاعدة البيانات.
قم بإضافة جدول جديد لتخزين بيانات المستخدمين المتصلين مثل: اسم_المستخدم، اسم_الجهاز، تاريخ_الاتصال، و IP (إذا كان لديك هذه البيانات).
عند فتح قاعدة البيانات، يمكنك استخدام الـ VBA لتسجيل اسم المستخدم أو اسم الجهاز في هذا الجدول.
Private Sub Form_Open(Cancel As Integer)
Dim strUser As String
strUser = Environ("USERNAME") ' أو استخدم وسيلة أخرى للحصول على اسم المستخدم
' إضافة سجل في جدول المستخدمين المتصلين
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO UserConnections (UserName, MachineName, DateTime) VALUES ('" & strUser & "', '" & Environ("COMPUTERNAME") & "', Now())"
DoCmd.SetWarnings True
End Sub
2. استخدام السجلات في SQL Server
إذا كانت قاعدة البيانات تعمل على SQL Server، يمكنك استخدام دالة sys.dm_exec_sessions لعرض الجلسات المتصلة حاليًا:
SELECT session_id, login_name, host_name, program_name, client_interface_name
FROM sys.dm_exec_sessions
WHERE is_user_process = 1;
هذه الاستعلامات ستوفر لك تفاصيل حول المستخدمين المتصلين بالقاعدة، مثل login_name و host_name (اسم الجهاز).