如何列举出网络上所有的SQL Server服务器

引用Microsoft SQLDMO Object Library

Private Sub Nsqlser_DropDown()

If Nsqlser.ListCount > 0 Then Exit Sub

Dim Server As SQLDMO.NameList '名字列表namelist

Dim appDMO As New SQLDMO.Application 'sqldmo应用

Dim i As Integer

Set Server = appDMO.ListAvailableSQLServers '得到所有的sql sever 列表

For i = 1 To Server.Count

Nsqlser.AddItem Server(i) 'Nsqlser为下拉列表框

Next

End Sub