Перечислите экземпляры SQL Express 2005, используя код VB6

Question

Как составить список всех экземпляров SQL Server 2005 Express Edition с помощью приложения vb6?

Answer 1

Этот образец использует SQLBrowseConnect API.

Answer 2

Будет выведен список всех экземпляров SQL Server с использованием SQL-DMO. Вам нужно будет фильтровать экземпляры Express.

Function listServers(vControl As Object)
    Dim oApp As SQLDMO.Application 
    Dim oNames  As SQLDMO.NameList 

    Set oApp = New SQLDMO.Application 
    Set oNames = oApp.ListAvailableSQLServers() 

    For Each oName In oNames 
        vControl.AddItem oName 
    Next 
End Function 

С здесь .

Этот ТАК * вопрос говорит, что он не найдет экземпляры Express; нужно использовать SQLBrowseConnect.