2010-01-19 12 views

Répondre

1

Ceci liste toutes les instances SQL Server utilisant SQL-DMO. Vous devrez filtrer les instances 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 

De here.

Ce SO question indique qu'il ne trouvera pas d'instances Express; besoin d'utiliser SQLBrowseConnect.