Асинхронный коннект

[tofik]

Народ!
Я снова прошу помощи!
Суть проблеммы:
Допустим я асинхронно коннекчусь к серверу с БД, через ADO!
На форме у меня есть две кнопочки "Connect", "Disconnect".
Первой я непосредственно подключаюсь к прописанному в connection_string серверу, а второй соответственно отключаюсь!
А теперь представим, что в connection_string я некорректно прописал имя сервера и теперь я должен ждать пока не будет ConnectionTimeout!
Что мне сделать, чтобы я смог прерывать AsyncConnect, нажатием кнопки!

Поможите братья!!!

[Jenizix]

А в имя сервера ты пишешь его ip или имя буквами?

[aaf]

попрбовать close ему сделать.
или nothing а потом close

[alibek]

У Connection есть метод .Cancel

[tofik]

В конекшан стринге пишу имя сервера!
Если это имя введено не корректно, он ищет его и слетает только при коннекшан таймауте, close не работает и не должен работать, т.к. не произошло соединения!
с Nothing щас попробую
а вот кенсел нифига не закрывает!
Спасибо большое!

[tofik]

Кому интересно, то я разобрался!
Если хочешь остановить асинхронный коннект, не дожидаясь пока он слетит по таймауту, надо просто создать его заново, типа
Set Conn = New ADODB.Connection
и всё!!!!

Всем спасибо!

[alibek]

Не обязательно.
Достаточно было сделать

Код: Выделить всё

Conn.Cancel
Set Conn = Nothing

[retiv]

Код: Выделить всё

Conn.Cancel
Set Conn = Nothing


не работает!
На строке Conn.Cancel программа висит до окончания таймаута и только после него переходит на Set Conn = Nothing.

Вот код, который устанавливает соединение:

Код: Выделить всё

   Set Conn = New ADODB.Connection
   Conn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=db;Data Source=server"
   Conn.ConnectionTimeout = 100
   Conn.CommandTimeout = 100
   Conn.Open , , , adAsyncConnect 


Что не так?

[tofik]

У меня есть:

Public WithEvents Conn As ADODB.Connection

Я пытаюсь установить соединение по:

Set Conn = New ADODB.Connection
Conn.ConnectionString = Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=DataBase;Data Source=server
Conn.ConnectionTimeout = 10
Conn.CommandTimeout = 10
Conn.Open Conn_String, , , adAsyncConnect

Допустим сервера с именем "server" нет! Чтобы не дожидаться

Conn.ConnectionTimeout = 10

я жму на кнопочку с кодом
If Conn.State = adStateOpen Then
Conn.Close
Else
Conn.Cancel
Set Conn = Nothing
End If
на
Conn.Cancel
программа останавливается, дожидается
Conn.ConnectionTimeout = 10
и переходит на процедуру

Private Sub Conn_ConnectComplete(ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pConnection As ADODB.Connection)
If pConnection.State = adStateOpen Then
.......
End If
End Sub

и при сравнении pConnection.State = adStateOpen вываливает ошибку:
[DBNETLIB][ConnectionOpen (Connect()).]SQL Server does not exist or access denied

т.к. в pConnection.State , как собственно и в Conn.State(см. выше) передается эта строка с ошибкой вместо состояния соединения!

Если в отладчике перед тем как произойдет conn.cencel посмотреть чему равен conn.state, изначально он будет как раз той строчкой, после чего примет нормальное числовое значение!
Почему так, и как сделать Нормально!!!!!
Помогите!