|
0
sunson
20.03.13
✎
14:27
|
Всего мнений: 3
Дорогие друзья! Извините, что к вам обращаюсь. Сами мы не местные)))
Мне надо собрать статистику по работе пользователей в течение дня. Т.е. определить в какое время дня сколько пользователей не просто сидят в базе, но реально в ней что-то делают. Сама база находится на SQL. Отсюда вопрос: Можно ли это сделать средствами SQL? Если да, то как это сделать? И конечно хотелось бы получить эти данные в форме какой либо диаграммы для простоты анализа.
Помогите, кто чем может. Посоветуйте, не проходите мимо.)
|
|
|
4
GANR
20.03.13
✎
14:31
|
Соединение (IInfoBaseConnectionInfo)
Соединение (IInfoBaseConnectionInfo)
Свойства:
AppID (AppID)
blockedByDBMS (blockedByDBMS)
bytesAll (bytesAll)
bytesLast5Min (bytesLast5Min)
callsAll (callsAll)
callsLast5Min (callsLast5Min)
ConnectedAt (ConnectedAt)
ConnID (ConnID)
dbConnMode (dbConnMode)
dbmsBytesAll (dbmsBytesAll)
dbmsBytesLast5Min (dbmsBytesLast5Min)
dbProcInfo (dbProcInfo)
dbProcTook (dbProcTook)
dbProcTookAt (dbProcTookAt)
durationAll (durationAll)
durationAllDBMS (durationAllDBMS)
durationCurrent (durationCurrent)
durationCurrentDBMS (durationCurrentDBMS)
durationLast5Min (durationLast5Min)
durationLast5MinDBMS (durationLast5MinDBMS)
HostName (HostName)
IBConnMode (IBConnMode)
ThreadMode (ThreadMode)
UserName (UserName)
Описание:
Содержит параметры одного соединения клиентского приложения с информационной базой на кластере серверов 1С:Предприятия.
Представляет собой объект с интерфейсом IInfoBaseConnectionInfo.
Доступность:
Интеграция.
Пример:
Rem Пример удаления всех соединений (фрагмент на VBScript):
Set connector = CreateObject("V82.COMConnector")
Set ragent = connector.ConnectAgent("CentralServer")
ragent.AuthenticateAgent "CentralAdminName", "Password"
clusters = ragent.GetClusters()
Set cluster = clusters(0)
ragent.Authenticate cluster, "ClusterAdminName", "Password"
processes = ragent.GetWorkingProcesses(cluster)
Set process0 = processes(0)
WorkingAddress = process0.HostName ":" process0.MainPort
Set server = connector.ConnectWorkingProcess(WorkingAddress)
server.AddAuthentication "InfoBaseUserName", "Password"
Set ibDesc = server.CreateInfoBaseInfo()
ibDesc.Name = "InfoBaseName"
connections = server.GetInfoBaseConnections(ibDesc)
Dim i
For i = LBound(connections) To UBound(connections)
set connection = connections(i)
server.Disconnect connection
Next
См. также:
Соединение с рабочим процессом, метод Disconnect
--------------------------------------------------------------------------------
© ООО "1С", 1996-2012. Все права защищены.
Можно средствами 1С |
|
