Кто подключался к базе, когда и сколько времени ею пользовались
Кто работает в сети?
От: Дима 12.04.2001 16:01:38 Re:Кто работает в сети? Вам наверняка захочется знать: кто подключался к базе, когда и сколько времени ею пользовались. Я предлагаю так. Создать на серверной части таблицу "Пользователи" с полями: Пользователь, ВремяВхода, ВремяВыхода. На клиентской части в главной форме (открывается самой первой при запуске Аксесса) в процедуре загрузки поставить
Dim rst As ADODB.Recordset Set rst = New ADODB.Recordset rst.Open "Пользователи", CurrentProject.Connection, adOpenDynamic, adLockOptimistic With rst .AddNew .Fields("Пользователь") = CurrentUser .Fields("ВремяВхода") = Now .Update End With rst.Close
А при выгрузке
Dim rst As ADODB.Recordset Dim rst1 As ADODB.Recordset Set rst = New ADODB.Recordset Set rst1 = New ADODB.Recordset rst.Open "Пользователи", CurrentProject.Connection, adOpenDynamic, adLockOptimistic rst1.Open "SELECT Max([ВремяВхода]) As ВремяВх " _ & "FROM Пользователи WHERE (((Пользователи.Пользователь)='" & CurrentUser & "'));", CurrentProject.Connection With rst .Find "[ВремяВхода]=#" & rst1.Fields("ВремяВх") & "#", 1 If .EOF Then Else .Fields("ВремяВыхода") = Now .Update End If End With rst1.Close rst.Close