在局域網上的其他計算機上查找SQL Server實例

Question

我有以下功能來查找SQL Server實例。它在本地計算機上正常工作。您能否告訴我如何使用此功能檢查局域網上其他計算機上的實例？我正在使用VS 2008（.NET Framework 3.5）和SQL Server Express 2005.

Private Function MyInstanceFound(ByVal MyInstanceName As String) As Boolean 
    Dim InstanceFound As Boolean = False 
    Dim MC As ManagedComputer = New ManagedComputer() 
    For Each SI As ServerInstance In MC.ServerInstances 
     If SI.Name.ToString = MyInstanceName Then 
      InstanceFound = True 
      Exit For 
     End If 
    Next 
    Return InstanceFound 
End Function 

在此先感謝您。

問候， SKPaul

Answer 1

您需要使用另一個ManagedComputer構造，像這樣的：

public ManagedComputer (
    string machineName 
) 

ManagedComputer Constructor (String)

Answer 2

Public Shared Function GetServerList(ByVal cmbServers As ComboBox) 
    Dim Server As String = String.Empty 
    Dim instance As Sql.SqlDataSourceEnumerator = Sql.SqlDataSourceEnumerator.Instance 
    Dim table As System.Data.DataTable = instance.GetDataSources() 
    For Each row As System.Data.DataRow In table.Rows 
     Server = String.Empty 
     Server = row("ServerName") 
     If row("InstanceName").ToString.Length > 0 Then 
      Server = Server & "\" & row("InstanceName") 
     End If 
     cmbServers.Items.Add(Server) 
    Next 
    cmbServers.SelectedIndex = cmbServers.FindStringExact(Environment.MachineName) 

End Function 

添加組合框名txtservidores形式。調用函數 GetServerList（txtServidores）