列出局域网内所有SQL服务器的另外一个办法

列出局域网内所有SQL服务器的另外一个办法   

楼上介绍的是用服务器端sql server提供的SP的方法来返回一个数据集。另外，介绍一个用sql server客户端dmo对象获得sql服务器列表的方法，你需要在VB程序应用#Microsoft SQLDMO Object Library，通常这个文件的路径在\Program Files\Microsoft SQL Server\80\Tools\Binn\SQLDMO.dll：

    Dim oApp As New SQLDMO.Application
    Dim oNameList As NameList
    Dim i As Integer
   
    On Error GoTo errorhandler:
   
    Set oNameList = oApp.ListAvailableSQLServers
   
    For i = 1 To oNameList.Count
        lstServer.AddItem oNameList.Item(i)
    Next i
   
    Set oNameList = Nothing
    Set oApp = Nothing