ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как выкинуть пользователя, сидящего в базе
13 сообщений из 13, страница 1 из 1
Как выкинуть пользователя, сидящего в базе
    #32255055
GuDVin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GuDVin
Участник
Проблема такая: есть многопользовательская база на аксе2000. Нередко надо оперативно подправить формочку, что не позволяется, когда там сидят юзеры.

Можно ли их принудительно выкинуть?

Существующие темы вроде проглядел, и вариант со служебной таблицей и проверкой по таймеру не очень нравится.
...
Рейтинг: 0 / 0
03.09.2003, 17:19
| Ответить | Цитировать | Написать  
Как выкинуть пользователя, сидящего в базе
    #32255061
Фотография fedd
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
fedd
Участник
Выдернуть сетевой шнурок...

можно еще net sendом всех попросить выйти
...
Рейтинг: 0 / 0
03.09.2003, 17:23
| Ответить | Цитировать | Написать  
Как выкинуть пользователя, сидящего в базе
    #32255080
GuDVin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GuDVin
Участник
Шнурки выдергивать - убегаешься, хотя и так делали
А нет сенд не работает, если нет прокладки. Нужно как раз на этот случай. А то народ логинится и уходит... :-(
...
Рейтинг: 0 / 0
03.09.2003, 17:34
| Ответить | Цитировать | Написать  
Как выкинуть пользователя, сидящего в базе
    #32255091
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
Как вариант:
а) наваять на winsock.ocx "сервер,"
открывающийся на каждом запущенном клиенте-базе Аксцесса
и слушающем команду.
По команде - выход из базы и т.п.
НО: где-то тут обсуждались проблемы коммуникаций по винсоку именно через Эксцес (XL и VB - все ок),
поэтому стоит сначала попробовать надежность, а потом делать ;)))

б) папка (директория ;), лежащая в сети,
в нее по надобности записывается файлик username,
а запущенный клиент периодически проверяте -
если появился файл - читать - отрубиться...
...
Рейтинг: 0 / 0
03.09.2003, 17:41
| Ответить | Цитировать | Написать  
Как выкинуть пользователя, сидящего в базе
    #32255099
GuDVin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GuDVin
Участник
То есть насколько я понял, штатных средств Аска нет.

Тогда вопрос: как повеситься на глобальный таймер (один для всего applicationа), а то похоже он только для формы..
...
Рейтинг: 0 / 0
03.09.2003, 17:50
| Ответить | Цитировать | Написать  
Как выкинуть пользователя, сидящего в базе
    #32255109
assa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assa
Участник
Форма - заставка (че -нить на заднем плане или скрытое). С таймером, (прочими параметрами текущего сеанса - по необходимости). И с простой такой процедуркой:

Private Sub Form_Unload(Cancel As Integer)
Application.Quit
End Sub

чтобы не прихлопнул кто ненароком.
...
Рейтинг: 0 / 0
03.09.2003, 17:55
| Ответить | Цитировать | Написать  
Как выкинуть пользователя, сидящего в базе
    #32255125
GuDVin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GuDVin
Участник
Интересная идея. А как сделать, чтобы она не показывалась в списке окон?

Кстати, тогда проще сделать Cancel = true. Нет?
...
Рейтинг: 0 / 0
03.09.2003, 18:01
| Ответить | Цитировать | Написать  
Как выкинуть пользователя, сидящего в базе
    #32255132
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
Запустить таймер функциями API.
Вот такой модуль добавь в свою базу:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
Option Explicit
Option Private Module

Private Declare Function SetTimer Lib  "user32"  (ByVal lngHandle As Long, ByVal lngEvent As Long, ByVal lngElapse As Long, ByVal lngFuncion As Long) As Long
Private Declare Function KillTimer Lib  "user32"  (ByVal lngHandle As Long, ByVal lngEvent As Long) As Long

' в качестве lngHandle суй туда Application.hWndAccessApp - для глобальности, а так и Me.hWnd можно

Public Sub TimerProgress()
  ' твой код
End Sub
Public Sub CloseTimer(ByVal lngHandle As Long)
    KillTimer lngHandle,  0 
End Sub
Public Sub StartTimer(ByVal lngHandle As Long, ByVal lngInterval As Long)
    SetTimer lngHandle,  0 , lngInterval, AddressOf TimerProgress
End Sub


Остается только проблема его запуска. Надо его куда-нибудь рассувать, но тут вариантов масса.


2Alexus12: Кстати идея с клиентом winsock'а в базе мне понравилась.... прикольно. А то скоко не читал все обычно к таймеру скатываются, а тут новенько, интересненько.... это ведь можно только базу по команде с сервера закрывать, но еще за пользователями следить и пакостить, целого трояна наваять мона (чтобы он еще им потом что-нибудь типа VNC закачивал и запускал в тихоря - для получения удаленного доступа админа к своим пользователям ... :) )
...
Рейтинг: 0 / 0
03.09.2003, 18:06
| Ответить | Цитировать | Написать  
Как выкинуть пользователя, сидящего в базе
    #32255151
GuDVin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
GuDVin
Участник
Вот это прикольно, надо будет попробовать!

А lngHandle - это хэндл таймера вроде, а не аппликухи?

С запуском у меня проблемы нет, у меня одна форма гарантированно запускается. Нечего если на онлоад поставить? Повторный запуск таймера не критичен?

за пользователями следить и пакостить
Ба, шаловливые ручки... :-) А убирать за пользователем кто будет... А то ведь он испугается...:-)
...
Рейтинг: 0 / 0
03.09.2003, 18:15
| Ответить | Цитировать | Написать  
Как выкинуть пользователя, сидящего в базе
    #32255511
Фотография SergeySV
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SergeySV
Участник
Таймер привязывается к окну. В lngHandle запихни Application.hWndAccessApp и по Access не закроешь он будет действовать.

Таймер можно запускать несколько раз (с таким же lngHandle), он просто продолжит свою работу, и потом легко будет убит (с одного раза) через CloseTimer
...
Рейтинг: 0 / 0
04.09.2003, 10:34
| Ответить | Цитировать | Написать  
Как выкинуть пользователя, сидящего в базе
    #32255577
Alexus12
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexus12
Участник
>Кстати идея с клиентом winsock'а в базе мне понравилась.... прикольно.

Тока не с клиентом, а с сервером - он после запуска должен открыть свой порт на прослушивание на каждой машине, запустившей твою базу.

>А то скоко не читал все обычно к таймеру скатываются, а тут новенько, интересненько.... это ведь можно только базу по команде с сервера закрывать, но еще за пользователями следить и пакостить, целого трояна наваять мона (чтобы он еще им потом что-нибудь типа VNC закачивал и запускал в тихоря - для получения удаленного доступа админа к своим пользователям ... :) )

наверное, можно - в той же сети, а иначе (из инета) файрвол не пропустит ;)))
наверное, что-то для передачи копий экрана и удаленного мувинга мыша можно сделать -
чтобы юзер звякнул, когда что-то сломалось -
а админ подконнектился и мышом отремонтировал.
...
Рейтинг: 0 / 0
04.09.2003, 11:13
| Ответить | Цитировать | Написать  
Как выкинуть пользователя, сидящего в базе
    #32255680
assa
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
assa
Участник
>>Кстати, тогда проще сделать Cancel = true. Нет?
ГЫ!

А из приложения выходить - event отключать? Можно, но не "проще".
...
Рейтинг: 0 / 0
04.09.2003, 12:08
| Ответить | Цитировать | Написать  
Как выкинуть пользователя, сидящего в базе
    #32255787
АлексейЕ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейЕ
Участник
> Интересная идея. А как сделать, чтобы она не показывалась в списке окон?

Если форма Visible = True, то в списке окон она отсутствует.
...
Рейтинг: 0 / 0
04.09.2003, 13:04
| Ответить | Цитировать | Написать  
13 сообщений из 13, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как выкинуть пользователя, сидящего в базе
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32255109&tid=1679595]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 45ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 43ms
get tp. blocked users:
 1ms
others: 202ms
total:  332ms
созд. / загр.: 332ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]