Как предотвратить зависание? / Microsoft Access

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / 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

Участник

Сообщения: 4 676

Рейтинг: 0 / 0

mdb можно было оживлять посредством DoEvents,
а хранимую процедуру вероятно можно запустить в асинхронном режиме(сам не пробовал)

...

Рейтинг:

0 / 0

21.01.2005, 10:42:16

| Ответить | Цитировать | Написать

Как предотвратить зависание?

#32876421

Alexey Sh

Участник

Откуда: SPB

Сообщения: 1 940

Рейтинг: 0 / 0

есть такая возможность. см опцию 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

Гость

похоже, Ваш код гарантированно обращается к серверу для получения списка параметров
переставьте
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

Гость

какой версии адп
и в каком контексте происходит вызов

...

Рейтинг:

0 / 0

21.01.2005, 12:07:10

| Ответить | Цитировать | Написать

Как предотвратить зависание?

#32876810

Андрей А. Иванов

Гость

2000, вызов я поставил на таймер: первый раз запускается хранимая, последующие разы меняется цвет надписи "ждите..." до тех пор пока переменная @res = 0. По крайней мере, задумка такая была...

...

Рейтинг:

0 / 0

21.01.2005, 12:17:28

| Ответить | Цитировать | Написать

Как предотвратить зависание?

#32876930

Alexey Sh

Участник

Откуда: SPB

Сообщения: 1 940

Рейтинг: 0 / 0

adAsyncExecute - третий параметр Command , а не первый

...

Рейтинг:

0 / 0

21.01.2005, 12:44:00

| Ответить | Цитировать | Написать

Как предотвратить зависание?

#32877010

Alexey Sh

Участник

Откуда: SPB

Сообщения: 1 940

Рейтинг: 0 / 0

а вот так нельзя! автордо тех пор пока переменная @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):

start [/forum/topic.php?fid=45&msg=32877098&tid=1669138]:	0ms
get settings:	7ms
get forum list:	9ms
check forum access:	2ms
check topic access:	2ms
track hit:	31ms
get topic data:	7ms
get forum data:	2ms
get page messages:	30ms
get tp. blocked users:	1ms
others:	230ms

total:	321ms

	Необходимые cookie
	Cookie для сбора статистики
	Cookie для маркетинга и рекламы