Не могу остановить Асинхронное соединение (ADO)

22.07.2010, 18:17. **Показов** 946. **Ответов** 2

Студворк — интернет-сервис помощи студентам

Так осуществляю соединение:

Visual Basic
1
2
3
4
5
6
   Conn_String = "Provider=SQLOLEDB.1;Persist Security_ _Info=False;User ID=sa;Initial Catalog=MyDataBase;Data Source=server"
   Set Conn = New ADODB.Connection
   Conn.ConnectionString = Conn_String
   Conn.ConnectionTimeout = 10
   Conn.CommandTimeout = 10
   Conn.Open Conn_String, , , adAsyncConnect

Если соединение происходит удачно, я свободно отключаюсь:

Visual Basic
1
Conn.Close

Но если сервера с именем 'server' нет, попытка соединения будет длиться до таймаута
Допустим я не хочу ждать и делаю попытку отменить соединение:

Visual Basic
1
Conn.Cancel

что, как я полагаю верно! Однако выполнение проги останавливается на этом операторе и точно также слетает только после таймаута

Почему???

Я как то не корректно выполняю асинхронное соединение?

23.07.2010, 13:37

Вынеси в отдельный поток, и не парься...

26.07.2010, 17:46

Нет!
Есть метод cancel он должен работать, но не работает!
Почему???
Никто не знает!

А насчет других способов:
можно сделать ему Nothing:

Visual Basic
1
Set Conn = Nothing

можно создать его заново:

Visual Basic
1
Set Conn = New ADODB.Connection

он тоже отменится, но это не корректно!

Cancel должен работать!

Попробуй сам, если получиться, скажи как делал, буду чрезмерно благодарен!

Новые блоги и статьи Все статьи Все блоги /
Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20%	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .	Использование значений реквизитов справочника в документе, с определенными условиями и правами Maks 07.04.2026 1. Контроль срока действия договора Алгоритм из решения ниже реализован на примере нетипового документа "ЗаявкаНаРаботу", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если. . .
Доступность команды формы по условию Maks 07.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: сделать доступной кнопку (команда формы "ЗавершитьСписание") при. . .	Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .

Messir
	23.07.2010, 13:37
	Вынеси в отдельный поток, и не парься...