Как прекратить подключение к Mysql (из Excel) через X секунд прошло

Question

Привет, у меня есть некоторый код VBA, который сначала подключается к базе данных MySQL на удаленном сервере, затем запрашивает ее.

Иногда база данных MySQL недоступна (не работает сервер, проблема с подключением к Интернету и т. Д.), Ноподключение кода VBA (см. код ниже, 2-я строка) продолжается в течение нескольких минут, что довольно неприятно для пользователя.

...
Set oConn = New ADODB.Connection    
oConn.Open connection_string
...

Есть ли способ остановиться, скажем, через 25 секунд с VBA, чтобы можно было отобразить сообщение «Сервер, кажется, не работает. Пожалуйста, свяжитесь с системным администратором»?

Спасибозаранее за вашу помощь

Answer 1

Вы можете использовать свойство ConnectionTimeout ADODB.Connection:

Set oConn = New ADODB.Connection
oConn.ConnectionTimeout = 25
oConn.Open connection_string