ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как предотвратить зависание?
11 сообщений из 11, страница 1 из 1
Как предотвратить зависание?
    #32876365
Андрей А. Иванов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей А. Иванов
Гость
На открытие формы в adp-проекте запускается хранимая процедура:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
Dim myCommand As ADODB.Command
Set myCommand = New ADODB.Command
Set myCommand.ActiveConnection = CurrentProject.Connection
    myCommand.CommandTimeout =  0 
    myCommand.CommandType = adCmdStoredProc
    myCommand.CommandText = "Temp_Creater"
    myCommand.Parameters.Append myCommand.CreateParameter("@date_from", adChar, adParamInput,  10 , "")
    myCommand.Parameters.Append myCommand.CreateParameter("@date_to", adChar, adParamInput,  10 , "")
    myCommand.Parameters.Append myCommand.CreateParameter("@res", adInteger, adParamOutput,  9 )
    myCommand.Execute
Однако процедура выполняется очень долго и приложение визуально как бы подвисает (не перетаскиваются окошки, в диспетчере задач статус приложения "не отвечает"...). Подскажите пожалуйста, есть ли возможность предварительно указать приложению, что не нужно ожидать окончания работы хранимой на сервере?
...
Рейтинг: 0 / 0
21.01.2005, 10:25:00
| Ответить | Цитировать | Написать  
Как предотвратить зависание?
    #32876419
Фотография Shuhard
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shuhard
Участник
mdb можно было оживлять посредством DoEvents,
а хранимую процедуру вероятно можно запустить в асинхронном режиме(сам не пробовал)
...
Рейтинг: 0 / 0
21.01.2005, 10:42:16
| Ответить | Цитировать | Написать  
Как предотвратить зависание?
    #32876421
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey Sh
Участник
есть такая возможность. см опцию adAsyncExecute в command.execute
...
Рейтинг: 0 / 0
21.01.2005, 10:43:14
| Ответить | Цитировать | Написать  
Как предотвратить зависание?
    #32876496
Андрей А. Иванов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей А. Иванов
Гость
пробовал и так:
Код: plaintext
myCommand.Execute adAsyncExecute
только следующая команда (например, MsgBox ("ок"), все равно выполняется только после окончания работы хранимой.
...
Рейтинг: 0 / 0
21.01.2005, 11:04:36
| Ответить | Цитировать | Написать  
Как предотвратить зависание?
    #32876565
V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
V
Гость
похоже, Ваш код гарантированно обращается к серверу для получения списка параметров
переставьте
Set myCommand.ActiveConnection = CurrentProject.Connection
непосредственно перед
myCommand.Execute.

кроме того,
входные параметры у Вас заданы в виде пустых строк - это так и должно быть?
...
Рейтинг: 0 / 0
21.01.2005, 11:22:56
| Ответить | Цитировать | Написать  
Как предотвратить зависание?
    #32876738
Андрей А. Иванов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей А. Иванов
Гость
Попробовал - не помогает, а пустые строки - это нормально, это тестовый вариант и реально в хранимой ничего полезного пока не происходит...
...
Рейтинг: 0 / 0
21.01.2005, 12:00:10
| Ответить | Цитировать | Написать  
Как предотвратить зависание?
    #32876771
V
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
V
Гость
какой версии адп
и в каком контексте происходит вызов
...
Рейтинг: 0 / 0
21.01.2005, 12:07:10
| Ответить | Цитировать | Написать  
Как предотвратить зависание?
    #32876810
Андрей А. Иванов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей А. Иванов
Гость
2000, вызов я поставил на таймер: первый раз запускается хранимая, последующие разы меняется цвет надписи "ждите..." до тех пор пока переменная @res = 0. По крайней мере, задумка такая была...
...
Рейтинг: 0 / 0
21.01.2005, 12:17:28
| Ответить | Цитировать | Написать  
Как предотвратить зависание?
    #32876930
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey Sh
Участник
adAsyncExecute - третий параметр Command , а не первый
...
Рейтинг: 0 / 0
21.01.2005, 12:44:00
| Ответить | Цитировать | Написать  
Как предотвратить зависание?
    #32877010
Alexey Sh
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Alexey Sh
Участник
а вот так нельзя! автордо тех пор пока переменная @res = 0
проверать нужно cmd.state <> adStateExecuting
...
Рейтинг: 0 / 0
21.01.2005, 13:04:45
| Ответить | Цитировать | Написать  
Как предотвратить зависание?
    #32877098
Андрей А. Иванов
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Андрей А. Иванов
Гость
Спасибо, заработало.
...
Рейтинг: 0 / 0
21.01.2005, 13:29:41
| Ответить | Цитировать | Написать  
11 сообщений из 11, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / Как предотвратить зависание?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&gotonew=1&tid=1669138]:
 0ms
get settings:
 8ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 72ms
get topic data:
 8ms
get first new msg:
 7ms
get forum data:
 3ms
get page messages:
 30ms
get tp. blocked users:
 1ms
others: 252ms
total:  394ms
созд. / загр.: 394ms
x
x
Закрыть


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