如何在 X 秒过去后停止连接到 Mysql（从 Excel）

Question

你好 我有一些 VBA 代码，它首先连接到远程服务器中的 MySQL 数据库，然后查询它。

有时 MySQL 数据库不可用（服务器停机、互联网连接问题等），但连接 VBA 代码（参见下面的代码，第二行）会持续几分钟，这对用户来说相当令人沮丧。

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

有没有办法在使用 VBA 25 秒后停止，以便显示一条消息，例如“服务器似乎已关闭。请联系您的系统管理员”？

预先感谢您的帮助

Answer 1

您可以使用 ADODB.Connection 的 ConnectionTimeout 属性：

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