X秒後にMysql（Excelから）への接続を中止する方法

こんにちは私はリモートサーバのMySQLデータベースに最初に接続するいくつかのVBAコードを持っています。X秒後にMysql（Excelから）への接続を中止する方法

MySQLデータベースを使用できない場合（サーバーダウン、インターネット接続の問題など）、接続VBAコード（2行目のコードを参照）が数分間続く場合があります。

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

後に停止する方法はありますが、VBAで25秒ので、メッセージは次のように表示することができると言うには、「サーバーがダウンしているようです。あなたのシステム管理者に連絡してください」？あなたの助けを事前に

おかげ

2011-01-04 griseldas

あなたはADODB.ConnectionのののConnectionTimeoutプロパティを使用することができます。

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

2011-01-04 22:35:02

答えて