Есть скрипт, который ночью выгружает базу. Предварительно он отключает пользователей от базы, а потом делает выгрузку. Код отключения примерно такой:
' // Процедура отключает подключения к БД
' // Takes:
' // strTextBody - (str) Short log for mail
' // Connections - (array) Array of connections to working process
' // Returns (changes):
' // strTextBody - (str) Short log for mail
Sub DB_DropUsers(strTextBody, Connections)
Dim array_objUserConnection, objUserConnection
strTextBody = strTextBody & Now() & " Получаем список подключений к базе, и отключаем их:" & vbCrLf
For Each Connection In Connections
array_objUserConnection = Connection.WPConnection.GetInfoBaseConnections(Connection.InfoBase)
For Each objUserConnection In array_objUserConnection
strTextBody = strTextBody & Now() & " name: '" & objUserConnection.UserName & "', computer:'" & objUserConnection.HostName & "', appID: '" & objUserConnection.AppID & "'" & vbCrLf
If (objUserConnection.AppID = "COMConsole") or (objUserConnection.AppID = "SrvrConsole") Then
strTextBody = strTextBody & Now() & " тип подключения в списке исключений" & vbCrLf
Else
Connection.WPConnection.Disconnect objUserConnection
strTextBody = strTextBody & Now() & " disconnected successfully" & vbCrLf
End If
Next
Next
End Sub 'DB_DropUsers'
(0) уверен, что никого не обидишь, типа я специально осталась, а нихрена апять не работает
Кaк может человек ожидaть, что его мольбaм о снисхождении ответит тот, кто превыше, когдa сaм он откaзывaет в милосердии тем, кто ниже его? Петр Трубецкой