打开到多个数据库的连接-唤醒

Question

我有大量的Azure数据库，目前有6个，但随着时间的推移，这个数量还会增加。

数据库很少被访问，因此为了节省成本，它们被设置为1小时后自动休眠。

我需要连接到Access中的一个或多个数据库来检索数据，因此需要唤醒正确的数据库，每个数据库大约需要30-60秒。

我正试图使用AttachDSNLessTable动态地将它们添加为链接表，但在调用之前，我需要唤醒数据库。我想异步地完成这项工作，因为唤醒过程可能需要一些时间，随着数据库数量的增加，这将变得荒谬。

我的想法是创建一个ADODB连接的数组，在数组中循环并使用adAsyncConnect选项调用.Open方法，然后监视所有连接的连接状态，直到所有连接都显示为Open或出现错误。

我一直在尝试的代码如下：

Dim databases() As DatabaseInfo
Dim connections() As ADODB.Command
Dim drv As String
Dim i As Integer
databases = getDatabaseInfo()
drv = GetDriverName()
ReDim connections(UBound(databases))
For i = 0 To UBound(databases)
Dim c As ADODB.Command
Dim con As ADODB.Connection
Dim sConn As String
sConn = "ODBC;DRIVER=" & drv & ";SERVER=" & databases(i).Server & ";DATABASE=" & databases(i).Name & ";UID=" & databases(i).Username & ";PWD=" & databases(i).Password
connections(i) = New ADODB.Connection 'Receive error 
connections(i).Open sConn, , , adAsyncConnect
Next i

我在connections(i) = New ADODB.Connection行收到一个编译错误，错误为Invalid use of property。

这是否意味着无法在数组中使用ADODB连接？如果没有，是否有其他方法可以异步连接到数据库列表？

Answer 1

这是问题代码：

Dim connections() As ADODB.Command

变量名称和用法表明您的意图是一个连接数组，因此它应该是：

Dim connections() As ADODB.Connection

这将避免由于试图将连接实例分配给命令变量而导致的编译错误。