| |
|
|
| | Нужны идеи :)
Есть программа клиент сервер (сервер MS SQL 2008 R2)
Нужны идеи как через сервер управлать клиентской частьё
например задать собшение "база обнавлаеться подаждитье 5 мин"
и т.п. но не только собшение дажы отключить комп рестарт и т.п. | |
| |
| |
| |
 1 Кб. |
|
| | У меня нет идей  | |
| |
| |
| |
|
|
| | у меня есть идея )))
- не сервера это дело, такой чушнёй заниматся !  - на клиенте это должно решатся... | |
| |
| |
| |
|
|
| | не это всё в сервере должно быть | |
| |
| |
| |
5 Кб. |
|
| | 
| |
| |
| |
| |
|
|
| | Идея вот вчём создать в базе SQL таблицу в нём поле при написании кода в этой таблици и имя юзера или для всех юзеров этот код будит выполняца в клиентской частьи у меня по опыту многа раз за день! бывает случии где надо отключить конкретного юзера или всех от базы или просто рестарт компа и т.п. с базой работают примерно 130 чел так что через RADMIN иногда потключитца не магу если кому интерестно кто-то хочит помочь или просто хочит готовый код нет проблем | |
| |
| |
| |
36 Кб. |
|
| | вариант Аськи на аксе - тама мона было послать сообщение конкретному юзверю
вроде оно | |
| |
| |
| |
|
|
| | ну в принцепе почти то но надо кантралировать а не разговаривать | |
| |
| |
| |
|
|
| | а если -
делаем таблы
№ 1. юзер, команда,
№ 2. команда, скрипт (макрос, функция)
у клиента невидимая форма с таймером который опрашивает таблу № 1 и если есть для него комнада - запскаем на выполнение нужный процесс - скрипт, сообщение и проч. потом удаляет выполненную команду.
а сервак (другой клиент) естественно выкладывает команды юзверям в эту таблу | |
| |
| |
| |
|
|
| | я и про это говарю ну если будит возможно то без формы | |
| |
| |
| |
|
|
| | точнее возможно  | |
| |
| |
|
|
|
|
| |
|
|
| |
Function mk() ' создать модуль
Dim m As Object ' сам модуль
Dim mc As CodeModule ' код в модулье
Dim i As Long
Dim str As String 'строка
str = "public Function c()" & vbCrLf & "msgbox 1" & vbCrLf & "End Function"
On Error GoTo er
Set m = Application.VBE.ActiveVBProject.VBComponents.Add(vbext_ct_StdModule)
m.Name = "2"
Set mc = m.CodeModule
With mc
i = .CountOfLines + 1
.InsertLines i, str
End With
Set m = Nothing
DoCmd.Save acModule, "2"
Call c
er: MsgBox Err.Number & " " & Err.Description
End Function
|
вот написал такой код но незнаю пока почему незапускаеца функция с | |
| |
| |
|
|
| |
|
|
| | ума на это хватает  | |
| |
| |
