powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Интересно...?
9 сообщений из 9, страница 1 из 1
Интересно...?
    #33110774
CLilian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Возможно ли сделать так что бы программа написаное на ВБ6 которая канектица к SQL Server-у, если юзер не пользуетца программой через некоторое время праграмма прекратила связь с сервером т.е.
Код: plaintext
cn.close
ну типа как в виндоусе если ничего не делать через некоторое время включица screen saver.
Может ктото сделал подобное, поделитесь как. Спасибо!
...
Рейтинг: 0 / 0
Интересно...?
    #33110934
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CLilianВозможно ли сделать так что бы программа написаное на ВБ6 которая канектица к SQL Server-у, если юзер не пользуетца программой через некоторое время праграмма прекратила связь с сервером т.е.
Код: plaintext
cn.close
ну типа как в виндоусе если ничего не делать через некоторое время включица screen saver.
Может ктото сделал подобное, поделитесь как. Спасибо!
Не понял, в чем проблема-то?
Таймер сделать - задача для студента второго курса.
...
Рейтинг: 0 / 0
Интересно...?
    #33112520
CLilian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
С таймером все понятно. Но как кантралировать если юзер пользетьца праграммой или нет. Веть праграма может проста так работать я имею в веду что допустим юзер ушол на обед а прогу забыл выключить штобы в это время никто посторонии не работал с данными, программа сама должна завершить свое действие через указаный интервал времени.
Пример:
Таймер = 5 минут
Если юзер работает то это время както должно остановица. Но как юзер вообше не работает т.е. никаких работ программа не делает таймер должен включитца. И тут надо учесть что форм в праграмме много.

Вопрос заключается в следуюшем:
Где разместить код по аквации таймера в форме или формам и как посмотреть работает юзер спрограммой или нет?
...
Рейтинг: 0 / 0
Интересно...?
    #33112566
Фотография nibbles
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
CLilianС таймером все понятно. Но как кантралировать если юзер пользетьца праграммой или нет. Веть праграма может проста так работать я имею в веду что допустим юзер ушол на обед а прогу забыл выключить штобы в это время никто посторонии не работал с данными, программа сама должна завершить свое действие через указаный интервал времени.
Пример:
Таймер = 5 минут
Если юзер работает то это время както должно остановица. Но как юзер вообше не работает т.е. никаких работ программа не делает таймер должен включитца. И тут надо учесть что форм в праграмме много.

Вопрос заключается в следуюшем:
Где разместить код по аквации таймера в форме или формам и как посмотреть работает юзер спрограммой или нет?
Отслеживание щелчков и чейджей. Либо перехват нажатий мыши и клавиатуры через API (посмотрите про хуки и субклассинг в этом форуме) - смысл в том, чтобы перехватывать ЛЮБОЕ шевеление мыши или клавы
...
Рейтинг: 0 / 0
Интересно...?
    #33112634
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Гораздо проще объявить соединение с базой как withevents и повесить включение таймера на adoCn_ExecuteComplete
...
Рейтинг: 0 / 0
Интересно...?
    #33112739
CLilian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AntonariyГораздо проще объявить соединение с базой как withevents и повесить включение таймера на adoCn_ExecuteComplete
А примерчик можно если не трудно?
...
Рейтинг: 0 / 0
Интересно...?
    #33113426
CLilian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
To Antonariy
Может сылку подскажеш где можно найти подобный пример?
...
Рейтинг: 0 / 0
Интересно...?
    #33115102
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Код: plaintext
1.
2.
3.
4.
Dim Withevents cn as ADODB.Connection

Private Sub cn_ExecuteComplete(ByVal RecordsAffected As Long, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pCommand As ADODB.Command, ByVal pRecordset As ADODB.Recordset, ByVal pConnection As ADODB.Connection)
    Timer1.Enabled = True
End Sub
...
Рейтинг: 0 / 0
Интересно...?
    #33115570
CLilian
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо щас попробую!
...
Рейтинг: 0 / 0
9 сообщений из 9, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Интересно...?
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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