Наш ИТ-отдел недавно перешел от наших баз данных к кластеру. Этот шаг сломал многие устаревшие приложения, которые перечисляют базы данных следующим кодом:
Dim objConn As ServerConnection
objConn = New ServerConnection()
If Me.ComboServers.Text.Trim.Length() > 0 Then
objConn.ServerInstance = Me.ComboServers.Text.Trim()
End If
Me.SMOServer = New Server(objConn)
Me.ComboDatabases.Items.Clear()
For Each objDB As Database In Me.SMOServer.Databases
Me.ComboDatabases.Items.Add(objDB.Name)
Next
Этот код работает достаточно хорошо при подключении к автономной базе данных, но не подключается к именованному экземпляру в кластере SQL.
Как мне перечислить базы данных в именованном экземпляре в кластере SQL?