Private Sub method1() Dim mc As New Microsoft.SqlServer.Management.Smo.Wmi.ManagedComputer mc.ConnectionSettings.ProviderArchitecture = ProviderArchitecture.Use64bit For Each si As ServerInstance In mc.ServerInstances cmbInstances.Items.Add(mc.Name & "\" & si.Name) Next End Sub Private Sub method2() Dim dt As DataTable dt = System.Data.Sql.SqlDataSourceEnumerator.Instance.GetDataSources For Each a As DataRow In dt.Rows cmbInstances.Items.Add(a.Item("servername") & "\" & a.Item("instancename")) Next End Sub Private Sub method3() Dim datatable As New DataTable datatable = SmoApplication.EnumAvailableSqlServers(false) cmbInstances.DisplayMember = "Name" cmbInstances.DataSource = datatable End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)